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第 由 章 MATLAB 语言 概述 


经 过 20 余年 的 补充 与 完善 以 及 多 个 版 本 的 升级 换代 ,MATLAB 语言 已 发 展 至 R2008A 
版 本 。MATLAB 是 一 个 包含 众多 科学 、 工 程 计 算 的 庞大 系统 , 是 目前 世界 上 最 流行 的 计算 
机 软件 之 一 。 





MATLAB 语言 的 产生 是 与 数学 计算 紧密 联系 在 一 起 的 。1980 年 ， 美 国 新 墨西哥 州 大 
学 计算 机 系 主任 Cleve Moler 在 给 学 生 讲 授 线性 代数 课程 时 ， 发 现 学 生 在 高 级 语言 编程 上 
花费 很 多 时 间 ， 于 是 着 手 编写 供 学 生 使 用 的 Fortran 子 程 序 库 接 口 程 序 ， 他 将 这 个 接口 程 
序 取 名 为 MATLAB ( 即 Matrix Laboratory 的 前 三 个 字母 的 组 合 ， 意 为 “和 矩阵 实验 室 ” )。 这 
个 程序 获得 了 很 大 的 成 功 ， 受 到 学 生 的 广泛 欢迎 。 

20 世纪 80 年 代 初 期 ，Moler 等 一 批 数学 家 与 软件 专家 组 建 了 MathWorks 软件 开发 公 
司 ， 继 续 从 事 MATLAB 的 研究 和 开发 ，1984 年 推出 了 第 一 个 MATLAB 商业 版 本 ， 其 核 
心 是 用 C 语言 编写 的 。 而 后 ， 它 又 添加 了 丰富 多 彩 的 图 形 图 像 处 理 、 多 媒体 、 符 号 运算 以 
及 与 其 他 流行 软件 的 接口 功能 ， 使 得 MATLAB 的 功能 越 来 越 强 大 。 

MathWorks 公司 正式 推出 MATLAB 后 ,于 1992 年 推出 了 具有 划时代 意义 的 MATLAB 
4.0 版 本 , 之 后 陆续 推出 了 几 个 改进 和 提高 的 版 本 , 2004 年 9 月 正式 推出 MATLAB Release 
14， 即 MATLAB 7.0， 其 功能 在 原 有 的 基础 上 又 有 了 进一步 的 改进 ，2008 年 3 月 推出 了 
R2008A， 它 是 目前 MATLAB 最 新 的 版 本 。 

MATITLAB 经 过 几 十 年 的 研究 与 不 断 完 善 ， 现 已 成 为 国际 上 最 为 流行 的 科学 计算 与 工程 计 
算 软 件 工具 之 一 ， 现 在 的 MATLAB 已 经 不 仅仅 是 一 个 最 初 的 “矩阵 实验 室 ” 了 ， 它 已 发 展 成 
为 一 种 具有 广泛 应 用 前 景 、 全 新 的 计算 机 高 级 编程 语言 ， 可 以 说 它 是 “第 四 代 ” 计 算 机 语言 。 

自 20 世纪 90 年 代 ， 美 国 和 欧洲 的 各 大 学 将 MATLAB 正式 列 入 研究 生 和 本 科 生 的 教 
学 计划 ，MATLAB 软件 已 成 为 应 用 代数 、 自 动 控制 理论 、 数 理 统计 、 数 字 信号 处 理 、 时 间 
序列 分 析 、 动 态 系统 仿真 等 课程 的 基本 教学 工具 ， 成 为 学 生 必 须 掌 握 的 基本 软件 之 一 。 在 
研究 单位 和 工业 界 , MATLAB 也 成 为 工程 师 们 必须 掌握 的 一 种 工具 , 被 认 做 进行 高 效 研究 
与 开发 的 首选 软件 工具 。 





MAILAB 在 学 术 界 和 工程 界 广 受 欢迎 ， 其 主要 优势 和 特点 有 如 下 几 方 面 。 


第 站 章 “MATLA8B 语言 概述 


@@ 友好 的 工作 平台 和 编程 环境 

MATLAB 由 一 系列 工具 组 成 ， 其 中 许多 工具 采用 的 是 图 形 用 户 界面 ， 包 括 MATLAB 
桌面 和 命令 窗口 、 历 史 命 令 窗口 、 编 辑 器 和 调试 器 、 路 径 搜索 和 用 于 用 户 浏览 帮助 、 工 作 
空间 、 文 件 的 浏览 器 。 这 些 图 形 化 的 工具 方便 用 户 使 用 MATLAB 的 函数 和 文件 。 

随 着 MATLAB 的 商业 化 以 及 软件 本 身 的 不 断 升 级 ，MATLAB 的 用 户 界 面 也 越 来 越 精 
致 ， 更 加 接近 Windows 的 标准 界面 ， 人 机 交互 性 更 强 ， 操 作 更 简单 。 

同时 ，MAITLAB 提供 了 完整 的 联机 查询 、 帮 助 系统 ， 极 大 地 方便 了 用 户 的 使 用 。 

MATLAB 简单 的 编程 环境 提供 了 比较 完备 的 调试 系统 , 程序 不 必 经 过 编译 就 可 以 直接 
运行 ， 而 且 能 够 及 时 地 报告 出 现 的 错误 并 进行 出 错 原因 分 析 。 

@ 简单 易 用 的 编程 语言 

MATLAB 语言 是 一 种 高 级 的 矩阵 语言 ， 它 包含 控制 语句 、 函 数 、 数 据 结构 、 输 入 和 和 输 
出 和 面向 对 象 编程 特点 。 用 户 可 以 在 命令 窗口 中 将 输入 语句 与 执行 命令 同步 ， 也 可 以 先 编 
写 好 一 个 较 大 的 复杂 的 应 用 程序 ( M 文件 ) 后 再 一 起 运行 。 

MAILAB 语言 是 基于 流行 的 C++ 语言 基础 上 的 ， 因 此 语法 特征 与 C++ 语言 极为 相似 ， 
而 且 更 加 简单 ， 更 加 符合 科技 人 员 对 数学 表达 式 的 书写 格式 。 使 之 更 利于 非 计 算 机 专业 的 
科技 人 员 使 用 。 而 且 这 种 语言 可 移植 性 好 、 可 拓展 性 强 ， 这 也 是 MATLAB 能 够 深入 到 科 
学 研究 及 工程 计算 各 个 领域 的 重要 原因 。 

@ 强大 的 科学 计算 机 数据 处 理 能 力 

MAILAB 是 一 个 包含 大 量 计 算 算 法 的 集合 , 其 拥有 600 多 个 工程 中 要 用 到 的 数学 运算 
冰 数 ， 可 以 方便 地 实现 用 户 所 需 的 各 种 计算 功能 。 

这 些 函 数 集 包括 从 最 简单 最 基本 的 函数 到 诸如 矩阵、 特征 向 量 、 快 速 傅立叶 变换 的 复 

函数 所 能 解决 的 问题 大 致 包括 德 阵 运 算 和 线性 方程 组 的 求解 、 微 分 方程 及 偏 微分 方程 
的 组 的 求解 、 符 号 运算 、 傅 立 叶 变换 和 数据 的 统计 分 析 、 工 程 中 的 优化 问题 、 稀 疏 矩 阵 运 
算 、 复 数 的 各 种 运算 、 三 角 函 数 和 其 他 初等 数学 运算 、 多 维 数 组 操作 以 及 建 模 动态 仿真 等 。 

函数 中 所 使 用 的 算法 都 是 科研 和 工程 计算 中 的 最 新 研究 成 果 ， 而 前 经 过 了 各 种 优化 和 
容错 处 理 。 

在 通常 情况 下 ， 可 以 用 MATLAB 来 代替 底层 编程 语言 ， 如 C 和 C++。 在 计算 要 求 相 
同 的 情况 下 ， 使 用 MATLAB 的 编程 工作 量 会 大 大 减少 。 

人 出 色 的 图 形 处 理 功能 ， 

MATLAB 自 产生 之 日 起 就 具有 方便 的 数据 可 视 化 功能 , 能 够 将 向 量 和 矩阵 用 图 形 的 形 
式 表现 出 来 ， 并 且 可 以 对 图 形 进行 标注 和 打印 。 

高 层次 的 作 图 包括 二 维和 三 维 的 可 视 化 、 图 像 处 理 、 动 画 和 表达 式 作 图 ， 可 用 于 科学 
计算 和 工程 绘图 。 

MAILAB 对 整个 图 形 处 理 功 能 进行 了 很 大 的 改进 和 完善 ,使 它 不 仅 在 一 般 数据 可 视 化 
软件 都 具有 的 功能 ( 例如 二 维 曲线 和 三 维 曲 面 的 绘制 和 处 理 等 ) 方面 更 加 完善 ， 而 且 对 于 























十 二 道道 3 


欠 ATLA 区 语言 常用 算法 程序 集 


一 些 其 他 软件 所 没有 的 功能 ( 例如 图 形 的 光照 处 理 、 色 度 处 理 以 及 四 维 数据 的 表现 等 )， 
MATLAB 同样 表现 了 出 色 的 处 理 能 力 。 

同时 对 一 些 特殊 的 可 视 化 要 求 , 例如 图 形 对 话 等 , MATLAB 也 有 相应 的 功能 函数 ， 保 
证 了 用 户 不 同 层次 的 要 求 。MATLAB 还 着 重 在 图 形 用 户 界 面 ( GUI ) 的 制作 上 作 了 很 大 的 
改善 ， 对 这 方面 有 特殊 要 求 的 用 户 也 可 以 得 到 满足 。 

急 应 用 广泛 的 模块 集合 工具 箱 

MAITLAB 对 许多 专门 的 领域 都 开发 了 功能 强大 的 模块 集 和 工具 箱 。 一般 来 说 , 它们 都 
是 由 特定 领域 的 专家 开发 的 ,用 户 可 以 直接 使 用 工具 箱 学 习 、 应 用 和 评估 不 同 的 方法 而 不 
需要 自己 编写 代码 。 

目前 ,MATLAB 已 经 把 工具 箱 延 伸 到 了 科学 研究 和 工程 应 用 的 诸多 领域 ,如 数据 采集 、 
数据 库 接 口 、 概 率 统计 、 样 条 拟 合 、 优 化 算法 、 偏 微分 方程 求解 、 神 经 网 络 、 小 波 分 析 、 
信号 处 理 、 图 像 处 理 、 系 统 辨识 、 控 制 系统 设计 、 鲁 棒 控 制 、 模 型 预测 、 模 糊 逻 辑 、 金 融 
分 析 、 地 图 工具 、 非 线性 控制 设计 、 实 时 快速 原型 及 半 实 物 仿真 、 骨 入 式 系 统 开发 、 定 点 仿 
真 、DSP 与 通信 、 电 力 系统 仿真 等 ， 都 在 工具 箱 ( Toolbox ) 家 族 中 有 了 自己 的 一 席 之 地 。 

镶 实用 的 程序 接口 和 发 布 平 台 

MATLAB 可 以 利用 MATLAB 编译 器 和 C/C++ 数 学 库 和 图 形 库 ， 将 自己 的 MATLAB 
程序 自动 转换 为 独立 于 MATLAB 运行 的 C 和 C++ 代码 。 人 允许 用 户 编写 可 以 和 MATLAB 
进行 交互 的 C 或 C++ 语言 程序 。 另 外 ，MATLAB 网 页 服务 程序 还 容许 在 Web 应 用 中 使 用 
自己 的 MATLAB 数学 和 图 形 程序 。 

MATLAB 的 一 个 重要 特色 就 是 它 具 有 一 套 程 序 扩展 系统 和 一 组 称 之 为 工具 箱 的 特殊 
应 用 子 程序 。 工 具 箱 是 MATLAB 函数 的 子 程序 库 ， 每 一 个 工具 箱 都 是 为 某 一 类 学 科 专 业 
和 应 用 而 定制 的 ， 主 要 包括 信号 处 理 、 控 制 系统 、 神 经 网 络 、 模 糊 逻辑 、 小 波 分 析 和 系统 
仿真 等 方面 的 应 用 。 





MATLAB 系统 的 构成 


MATLAB 系统 由 MATLAB 开发 环境 .MATLAB 数学 函数 库 \MATLAB 语言 MATLAB 
图 形 处 理 系 统 和 MATLAB 应 用 程序 接口 ( API ) 五 大 部 分 构成 。 

@ MATLAB 开发 环境 

MATLAB 开发 环境 是 一 套 方 便 用 户 使 用 MATLAB 函数 和 文件 的 工具 集 ， 其 中 许多 工 
具 是 图 形 化 用 户 接口 。 它 是 一 个 集成 化 的 工作 空间 ， 可 以 让 用 户 输入 、 输 出 数据 ， 并 提供 
了 M 文件 的 集成 编译 和 调试 环境 。 它 包括 MATLAB 桌面 、 命 令 窗口 、M 文件 编辑 调试 器 、 
MATILAB 工作 空间 和 在 线 帮 助 文档 。 

人 MAILAB 数学 函数 库 

MATLAB 数学 函数 库 包括 了 大 量 的 计算 算法 ， 从 基本 运算 ( 如 加 法 、 正 弦 函 数 等 ) 到 
复杂 算法 ， 如 和 阵 求 道 、 贝 塞 尔 函 数 、 快 速 傅立叶 变换 等 。 





4 了 攻 和 取 


第 伴 章 MATLAB 语言 概述 


和 MATLAB 语言 

MATLAB 语言 是 一 个 高 级 的 基于 矩阵 /数组 的 语言 ， 它 有 程序 流 控制 、 函 数 、 数 据 结 
构 、 输 入 /输出 和 面向 对 象 编程 等 特色 。 用 户 既 可 以 用 它 来 快速 编写 简单 的 程序 ， 也 可 以 用 
它 来 编号 庞大 复杂 的 应 用 程序 。 

@ MATLAB 图 形 处 理 系统 

图 形 处 理 系统 使 得 MATLAB 能 方便 地 图 形 化 显示 向 量 和 德 阵 ， 而 且 能 对 图 形 添 加 标 
注 和 打印 。 它 包括 强力 的 二 维 及 三 维 图 形 函 数 、 图 像 处 理 和 动画 显示 等 函数 。 

@ MAILAB 应 用 程序 接口 (API ) 

MATLAB 应 用 程序 接口 ( API ) 是 一 个 使 MATLAB 语言 能 与 C、EFortran 等 其 他 高 级 
编程 语言 进行 交互 的 函数 库 , 该 函数 库 的 函数 通过 调用 动态 链接 库 ( DLL ) 实 现 与 MATLAB 
文件 的 数据 交换 , 其 主要 功能 包括 在 MATLAB 中 调用 C 和 Fortran 程序 , 以 及 在 MATLAB 
与 其 他 应 用 程序 间 建 立 客 户 /服务 器 关系 。 


MATLAB 的 工具 箱 





工具 箱 ( Toolbox ) 是 MATLAB 的 关键 部 分 ， 它 是 MATLAB 强大 功能 得 以 实现 的 载 
体 和 手段 ， 它 是 对 MAILAB 基本 功能 的 重要 扩充 。MATLAB 每 年 都 会 增加 一 些 新 的 工具 
箱 ， 所 以 ， 在 一 般 情 况 下 ， 工 具 箱 的 列表 不 是 固定 不 变 的 ， 有 关 MATLAB 工具 箱 的 最 新 
信息 可 以 在 http:Wwww.mathworks.com/products 中 看 到 。 

当前 流行 的 MATLAB 版 本 包括 三 十 几 个 工具 箱 ， 工 具 箱 又 可 以 分 为 功能 性 工具 箱 和 
学 科 工具 箱 。 功 能 性 工具 箱 用 来 扩充 MATLAB 的 符号 计算 、 可 视 化 建 模仿 真 、 文 字 处 理 
以 及 与 硬件 实时 交互 等 功能 ， 能 用 于 多 种 学 科 ; 学 科 工 具 箱 是 专业 性 比较 强 的 工具 箱 ， 控 
制 工具 箱 、 信 号 处 理工 具 箱 、 通 信 工 具 箱 等 都 属于 此 类 。 

下 面 ， 将 科学 计算 中 常用 的 工具 箱 内 所 包含 的 主要 内 容 做 一 下 简要 介绍 。 

1.， 符号 数学 工具 箱 ( Symbolic Math Tooibox ) 

。 符号 表达 式 和 符号 矩阵 的 创建 

。 符号 微 积分 、 线 性 代数 、 方 程 求 解 

。 因 式 分 解 、 展 开 和 简化 

e。 符号 函数 的 二 维 图 形 

。 图 形 化 函数 计算 器 

2， 样 条 工具 箱 (Spline Toolbox ) 

e。 分 段 多 项 式 和 了 B 样 条 

。 样 条 的 构造 

e。 曲线 拟 合 及 平滑 

。 函数 微 积 分 
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3， 最 优 工具 箱 (Optimization Toolbox ) 
。 线性 规划 和 二 次 规划 

e 求 函数 的 最 大 值 和 最 小 位 

e。 多 目标 优化 

。 约束 条 件 下 的 优化 

e。 非 线性 方程 求解 

4， 偏 微分 方程 工具 箱 (Partial Differential Equation Toolbox ) 
。 二 维 偏 微分 方程 的 图 形 处 理 

e 几何 表示 

。 自 适 应 曲面 绘制 

es。 有 限 元 方法 . 

5， 统计 工具 箱 (Statistics Toolbox ) 

。 概率 分 布 和 随机 数 生成 

e 多 变量 分 析 

e 回归 分 析 

e 主 元 分 析 

e 假设 检验 


MATLAB 桌面 操作 环境 


MATLAB 为 用 户 提供 了 全 新 的 桌面 操作 环境 ， 了 解 并 熟悉 这 些 桌面 操作 环境 是 使 用 
MATLAB 的 基础 ， 下 面 介绍 MATLAB 的 启动 、 主 要 功能 菜单 、 命 令 窗口 、 工 作 空间 、 文 
件 管理 和 帮助 管理 等 。 





1.59.1 MATLAB 启动 和 退出 


以 Windows 操作 系统 为 例 , 进入 Windows 后 , 选择 "开始 " 一 “程序 " 一 "Matlab 7.0”， 
便 可 以 进入 如 图 1-1 所 示 的 MATLAB 主 窗口 。 如 果 安 装 时 选择 在 桌面 上 生成 快捷 方式 ， 
也 可 以 双击 快捷 方式 直接 启动 。 

在 启动 MATLAB 且 命 令 编 辑 区 显示 帮助 信息 后 ， 和 “人 ， 符 号 “|” 表 示 
MATLAB 已 准备 好 ， 正 等 待 用 户 输入 命令 ， 这 时 就 可 以 在 提示 符 “|” 后 面 键入 命令 ， 按 
下 回 车 键 后 , MATLAB 就 会 解释 执行 所 输入 的 命令 ,并 在 命令 后 面 给 出 计算 结 条。 如 果 在 
输入 命令 后 以 分 号 结束 ， 按 回 车 键 后 则 不 会 显示 结果 。 

退出 MATLAB 系统 的 方式 有 两 种 : 

( 1) 在 文件 菜单 ( File ) 中 选择 “Exit” 或 “Quit 

) 用 鼠标 单 击 窗口 右上 角 的 关闭 图 标 。 
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he [1.320.8770.5820.4130. 33] ; 
T_in=[34577910870] ; 
T_out=[42678511374] 
了 xT_im (hsT_out) 
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1.5.2 MATLAB 主 菜单 及 功能 





图 1-1 
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MATLAB 主 窗 
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To gst started Select 了 贡 TLAB HelP or Denos fron the Help Pernu 


打开 MAITLAB 主 窗口 后 ， 即 弹出 其 主 菜单 栏 ， 主 菜单 栏 的 各 菜单 项 及 其 下 拉 菜 单 的 


功能 如 下 所 述 。 
1.， File 主 菜单 项 


单 击 File 主 菜单 项 或 同时 按 下 “Alt+F"” 


组 合 键 ， 弹 出 如 图 1-2 所 示 的 File 下 拉 菜 单 。 


其 中 ， 带 下 划 线 的 字母 表示 快捷 键 ， 即 单 击 该 字母 键 也 可 执行 相应 的 功能 。 


2 





图 1-2 ”File 下 拉 菜 单 


(1 ) New: 用 于 建立 新 的 .m 文件 、 图 形 、 模 型 和 图 形 用 户 界面 。 


(2 ) Open: 用 于 打开 MATLAB 的 ,m 文件 、.fig 文件 、.mat 文件 、.mdl 文件 、 


件 等 ， 也 可 通过 快捷 键 “Ctrl+O” 来 实现 此 项 操作 。 


.cdr 文 
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( 3 ) Close Command Window: 关闭 命令 窗口 。 

(4) Import Data;， 用 于 从 其 他 文件 导入 数据 ， 单 击 后 弹出 对 话 框 ， 选 择 导入 文件 的 路 
径 和 位 置 。 

(5 ) Save Workspace As: 用 于 把 工作 空间 的 数据 存放 到 相应 的 路 径 文件 中 。 

( 6 ) Set Path;， 设置 工作 路 径 。 

( 7 ) Preferences;， 用 于 设置 命令 窗 的 属性 ， 单 击 该 选项 弹出 如 图 1-3 所 示 的 属性 画 
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图 1-3 ”命令 窗口 属性 对 话 


( 8 ) Page Setup: 用 于 页 面 设 置 。 

( 9 ) Print: 用 于 设置 打印 属性 。 

( 10 ) Print Selection， 用 于 对 选择 的 文件 数据 进行 打印 设置 。 
( 1 ) Exit MATLAB: 退出 MATLAB 桌面 操作 环境 。 


2.Edit 主 菜单 项 
单 击 Edit 主 菜单 项 或 同时 按 下 “Alt+E” 组 合 键 ， 弹 出 如 图 1-4 所 示 的 下 拉 菜 单 。 





图 1-4 Edit 下 拉 菜 单 
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) Undo， 用 于 撤销 上 一 步 操作 ， 也 可 通过 快捷 键 “Ctrl+Z” 来 实现 此 项 操作 。 
2 ) Redo: ER 本 上 一 步 操 作 。 

) Cut: 用 于 剪 切 选中 的 对 象 ， 也 可 通过 快捷 键 “Ctrl+W” 来 实现 此 项 操作 。 

) Copy: 同 于 复制 关中 的 对 刘 也 可 通过 快捷 键 “AltrkW” 来 实现 此 项 操作 。 
) Paste;， 用 于 粘贴 剪贴 板 上 的 内 容 ， 也 可 通过 快捷 键 “CtrH+Y” 来 实现 此 项 操作 。 
) Paste Special ， 用 于 特定 内 容 的 粘贴 。 

) Select All: 用 于 全 部 选择 。 

) Delete: 用 于 删除 所 选 的 对 象 ， 也 可 通过 快捷 键 “Ctrl+D” 来 实现 此 项 操作 。 
) Find:， 用 于 查找 所 需 选择 的 对 象 。 

0 ) Find Files， 用 于 查找 所 需 文 件 。 

1 ) Clear Command Window:， 用 于 清除 命令 窗口 区 的 对 象 。 

2 ) Clear Command History ， 用 于 清除 命令 窗口 区 的 历史 记录 。 

3 ) Clear Workspace: 用 于 清除 工作 区 的 对 象 。 


3. Debug 主 菜单 项 
单 击 Debug 主 菜单 项 或 同时 按 下 “Alt+B” 组 合 键 ， 弹 出 如 图 1-$ 所 示 的 下 拉 菜 单 。 


(1 
(2 
(3 
(4 
( 5 
(6 
(7 
(8 
(9 
( 
(1 
(1 
(1 





图 1-5_ Debug 下 拉 菜 单 


( 1 ) Open M-Files when Debugging:， 用 于 调试 时 打开 M 文件 。 

(2) Step:， 用 于 单 步调 试 程 序 ， 也 可 通过 快捷 键 “F10” 来 实现 此 项 操作 。 

(3 ) Step mm: 用 于 单 步调 试 进入 子 函数 ， 也 可 通过 快捷 键 “F11” 来 实现 此 项 操作 。 

(4) Step Out:， 用 于 单 步 调试 从 子 函 数 中 跳出 ， 也 可 通过 快捷 键 “Shift+F11” 来 实现 
此 项 操作 。 

(Si) Continue， 程 序 执行 到 下 一 断 点 ， 也 可 通过 快捷 键 “FS$” 来 实现 此 项 操作 。 

(6) Clear Breakpoints in All Files: 清除 所 有 打开 文件 中 的 断 点 。 

(7 ) Stop 放 Errors/Warnings: 在 程序 出 错 或 报警 处 停止 往 下 执行 。 

( 8 ) Exit Debug Mode: 退出 调试 模式 。 


4. Desktop 主 菜单 项 


单 击 Desktop 主 菜 单项 或 同时 按 下 “AltkD” 组 合 键 ， 弹 出 如 图 1-6 所 示 的 下 拉 菜 单 。 
(1 Undock Command Window:， 将 命令 窗口 变 为 全 屏 显 示 ， 并 设 为 当前 活动 窗口 。 
(2 ) Desktop Layout: 单 击 该 项 后 ， 弹 出 如 图 1-7 所 示 的 子 菜单 ;用 于 工作 区 的 设置 ， 
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其 设置 选项 包括 系统 默认 设置 项 ( Default )、 单 独 命令 窗口 项 ( Command Window Only )、 
命令 历史 窗口 和 命令 窗口 项 ( History and Command Window )、 全 部 标签 项 显示 ( All 


Tabbed )。 





图 1-6 


Organilze 


Tities : 





) Profiler: 
) Toolbar: 
) 
) 








Desktop 下 拉 菜单 图 1-7 Desktop Layout 漳 出 子 荣 音 


Save Layout: 保存 选 定 的 工作 区 设置 。 


Layouts: 管理 保存 的 工作 区 设置 。 


) 
) 
) Command Window: 命令 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 

) Command History:， 命令 历史 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 
) Current Directory:， 当前 路 径 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 
) Workspace: 工作 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 

) Help: 帮助 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 


轮廓 图 窗口 项 ， 选 择 该 项 ， 屏 幕 上 便 会 显示 相应 窗口 。 
显示 或 隐藏 工具 栏 选项 。 





Shortcuts Tooibar， 显 示 或 隐藏 快捷 方式 选项 。 


显示 或 隐藏 标题 栏 选 项 。 


5 Window 主 菜单 项 


单 击 Window 


主 菜单 项 或 同时 按 下 “Alt+W” 组 合 键 ， 弹 出 如 图 1-8 所 示 的 下 拉 菜 单 。 








图 1-8 Window 下 拉 菜 单 


( 1 ) Close Al Documents 关闭 所 有 文档 。 
(2 ) 0 Command Window:， 选 定 命令 窗口 为 当前 活动 窗口 ， 也 可 通过 快捷 键 “Ctrl+0" 


来 实现 此 项 操作 。 
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(3 )1Command History:; 选 定 命令 历史 窗口 为 当前 活动 窗口 , 也 可 通过 快捷 键 “Ctrl+1” 
来 实现 此 项 操作 。 

(4)2 Current Directory: 选 定 当前 路 径 窗口 为 当前 活动 窗口 , 也 可 通过 快捷 键 “Ctrl+2” 
来 实现 此 项 操作 。 

(5 ) 3 Workspace: 选 定 工作 空间 窗口 为 当前 活动 窗口 ， 也 可 通过 快捷 键 “Ctd+3” 来 
实现 此 项 操作 。 
6. Help 主 菜单 项 

单 击 Help 主 菜 单项 或 同时 按 下 “AlttH” 组 合 键 ， 弹 出 如 图 
1-9 所 示 的 下 拉 菜 单 。 

(1) Full Product Family Help:， 显示 所 有 MATLAB 产品 的 帮 
助 信息 。 








) MATLAB Help， 启 动 MATLAB 帮助 。 图 19 Help 下 拉 菜 单 
) Using the Desktop: 启动 Desktop 的 帮助 。 

) Using the Command Window: 启动 命令 窗口 的 帮助 。 

) Web Resources: 显示 Internet 上 一 些 相关 的 资源 网 址 。 
) Check for Updates:， 检查 软件 是 否 更 新 。 

) Demos: 调用 MATLAB 所 提供 的 范例 程序 。 

) About MAITLAB: 显示 有 关 MATLAB 的 信息 。 


1.5.3 MATLAB 命令 窗口 


MATILAB 的 命令 窗口 如 图 1-10 所 示 , 它 用 于 MAITLAB 命令 的 交互 操作 , 具有 两 大 主 
本 
) 提供 用 户 输入 命令 的 操作 平台 ， 用 户 通过 该 窗口 输入 命令 和 数据 ; 
) 提供 命令 执行 结果 的 显示 平台 ， 该 窗口 显示 命令 执行 的 结果 。 


To get statrted，Sselect JRTILAB Help or Demas 


> S=1-12+13+d+.。 





在 提示 符 后 
输入 变量 和 函数 











S=1-12+13+d+..- 
9+d+18; 
S 





图 110 MATLAB 的 命令 窗口 
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在 命令 窗口 内 执行 的 MATLAB 主要 操作 有 : 

。 运行 函数 和 输入 变量 ; 

e。 控制 输入 和 输出 ; 

e 执行 程序 ， 包 括 M 文件 和 外 部 程序 ， 

e 保存 一 段 日 志 ; 

e。 打开 或 关闭 其 他 应 用 窗口 ; 

e 各 应 用 窗口 的 参数 选择 。 

计算 机 安装 好 MATLAB 之 后 , 双击 MATLAB 图 标 ， 就 可 以 进入 命令 窗口 ， 此 时 意味 
着 系统 处 于 准备 接受 命令 的 状态 ， 可 以 在 命令 窗口 中 直接 输入 命令 语句 。 

MATLAB 语句 形式 为 : >> 变 量 = 表达 式 。 

通过 等 号 将 表达 式 的 值 赋 予 变量 。 当 键入 回 车 键 时 ， 该 语句 被 执行 。 语 句 执行 之 后 ， 
窗口 自动 显示 出 语句 执行 的 结果 。 

使 用 方向 键 和 控制 键 可 以 编辑 、 修 改 已 输入 的 命令 ，! 键 回 调 上 一 行 命令 ，| 键 回 调 
下 一 行 命令 。 使 用 “more off” 表 示 不 允许 分 页 ，"more on” 表 示人 允许 分 页 ,， "more (D)” 表 
示 指 定 每 页 输出 的 行 数 。 回 车 前 进 一 行 ， 空 格 键 显示 下 一 页 ，"q” 结 束 当 前 显示 。 

如 果 命 令 语 句 超 过 一 行 或 者 太 长 希望 分 行 输入 , 则 可 以 使 用 多 行 命 令 继续 输入 。 例如， 
输入 下 列 式 子 时 ， 可 以 通过 两 行 输入 。 

>> S-1-12+13+4+... 


9+4+18: 
>> 8 





MATLAB 提供 了 一 组 可 以 在 命令 窗口 中 输入 的 命令 ,以 执行 相应 的 操作 , 常用 的 命令 


及 功能 如 表 1.1 中 所 示 。 


表 1.1 命令 窗口 中 常用 的 命令 及 功能 


clc ， 光 标 













擦 去 一 页 命令 窗口 ， 光 标 回 屏幕 左 上 角 
clear 清除 工作 空间 中 所 有 的 变量 


clear all 从 工作 空间 清除 所 有 变量 和 函数 
clear 变量 名 清除 指定 的 变量 
清除 图 形 窗 口内 容 
从 磁盘 中 删除 指定 文件 
查询 所 列 命令 的 帮助 信息 
which < 文件 名 > 查找 指定 文件 的 路 径 
显示 当前 工作 空间 中 所 有 变量 的 一 个 简单 列表 
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delete < 文件 名 > 


help < 命令 名 > 
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续 表 











列 出 当前 目录 下 的 .m 文件 和 .mat 文件 

load name 下 载 mame' 文 件 中 的 所 有 变量 到 工作 空间 

load name xy 下 载 mame' 文 件 中 的 变量 x,y 到 工作 空间 

save name 保存 工作 空间 变量 到 文件 name.mat 中 

Save name Xy 保存 工作 空间 变量 x、 y 到 文件 name.mat 中 
整理 工作 空间 内 存 

size( 变 量 名 ) 显示 当前 工作 空间 中 变量 的 尺寸 

length( 变 量 名 ) 显示 当前 工作 空间 中 变量 的 长 度 

disp( 变 量 名 ) 显示 当前 工作 空间 中 变量 

”或 “Ctrl+P" 






































”或 “CalHN” 








”或 “Ctrl+B" 





”或 “CtrlrP" 

Home 或 “Ctrl+A” 光标 移 到 行 首 

End 或 “Ctrl+E” 光标 移 到 行 尾 

Esc 或 “CtrlHU" 

Del 或 “Ctrl+D" 清除 光标 后 字符 

Backspace 或 “Ctrl+rH" 清除 光标 前 字符 

“Cu+K” 清除 光标 至 行 尾 字 

中 断 程 序 运行 





























1.5.4 MATLAB 工作 空间 


MATILAB 的 工作 空间 如 图 1-11 所 示 。 





打开 选 定 的 变量 








图 1-11 MATLAB 的 工作 空间 


工作 空间 中 的 变量 以 变量 名 ( Name 和 数值 ( Value ) 和 类 型 ( Class ) 的 形式 显示 出 来 ， 
双击 某 个 变量 ， 将 进入 矩阵 编辑 器 ( Array Editor )， 可 以 直接 观察 变量 中 具体 元 素 的 值 ， 
也 可 以 直接 修改 这 些 元 素 。 


二 本 可 可 13 


内 AT 作 LA 区 语言 党 用 算法 程序 集 


1.5.4.1 


工作 空间 的 工具 条 


MATLAB 7 的 工作 空间 中 还 有 一 个 工具 条 ， 可 快捷 地 在 工作 空间 中 进行 许多 操作 ， 这 
些 操 作 在 图 1-11 中 标注 出 来 了 ， 简单 介绍 如 下 。 


乱 ( 增加 新 变量 ) 在 工作 空间 中 增加 一 个 新 的 变量 ， 并 可 对 此 变量 进行 赋值 、 修 
改 等 操作 。 

国 ( 打开 选 定 的 变量 )， 将 工作 空间 中 选 定 的 变量 在 矩阵 编辑 器 ( Array Editor ) 中 
打开 ， 可 对 此 变量 进行 修改 等 操作 。 

( 导入 文件 ): 将 MAILAB 支持 格式 的 文件 导入 到 工作 空间 中 。 

吕 《和 仆 量 保 站 为 文件 ) 将 工作 空间 中 选 定 的 变量 以 文件 的 形式 保存 起 来 。 

痢 ( 删除 变量 ) 将 工作 空间 中 选 定 的 变量 删除 。 
必 肖 ( 将 变量 绘制 成 图 形 )， 将 工作 空间 中 选 定 的 变量 绘制 成 图 形 ， 支 持 的 绘图 函 
数 有 plot、bar、stem、stairs、area、pie、hist 和 plot3 等 。 





1.5.4.2 ”工作 空间 相关 的 常用 命令 
MATLAB 还 有 几 个 常用 的 工作 空间 操作 的 命令 , 分 别 是 who、whos clear、size length， 
其 各 自 功能 描述 如 下 。 


who: 显示 当前 工作 空间 中 所 有 变量 的 一 个 简单 列表 。 

whos: 列 出 变量 的 大 小 、 数 据 格 式 等 详细 信息 

clear: 清除 工作 空 3 间 中 的 所 有 变量 。 

clear 变量 名 : 清除 指定 的 变量 。 

Size(a) : 获取 向 量 的 本 数 与 列 数 。 

length(a)， 获取 向量 a 的 长 度 ， 并 在 屏幕 上 显示 。 如 果 a 是 矩阵 ， 则 显示 的 参数 为 
行 数 中 的 最 大 值 。 


1.5.4.3 ”工作 空间 的 数据 存 取 函 数 
MATLAB 提供 了 以 下 保存 ( save ) 和 载 入 ( load ) 工作 空间 的 函数 。 


1. 


Save 函数 


save 命令 是 将 MATLAB 工作 空间 中 的 变量 存 入 磁盘 ， 具 体格 式 介绍 如 下 。 


save: 将 当前 MATLAB 工作 空间 中 所 有 变量 以 二 进 制 格式 存 入 名 为 matiab.mat( 默 
认 的 文件 名 ) 的 文件 中 。 

save dfile ( 文件 名 ): 将 当 前 工作 空 s 间 中 所 有 变量 以 二 进 制 格式 存 入 名 为 dfile.mat 
文件 ， 扩 展 名 自动 产生 。 

save dfile x: 只 把 变量 x 以 二 进 制 格式 存 入 dfile.mat 文件 ， 扩 展 名 自动 产生 。 

save dfile.dat x -ascii; 将 变量 x 以 8 位 ASCI 码 形式 存 入 dfile.mat 文件 。 

save dfile.dat xx -ascii -double: 将 变量 x 以 16 位 ASCII 码 形式 存 入 dfile.mat 
文件 。 

save ( fname，'x，'"-ascii' )，fname 是 一 个 预先 定义 好 的 包含 文件 名 的 字符 串 ， 


拓 匣 因 
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该 用 法 将 变量 x 以 ASCII 码 形式 存 入 由 fname 定义 的 文件 中 ， 由 于 在 这 种 用 法 
中 ， 文 件 名 是 一 个 字符 变量 ， 因 此 可 以 方便 地 通过 编程 的 方法 存储 一 系列 数据 
文件 。 

2，]load 函数 

load 命令 是 将 磁盘 上 的 数据 读 入 到 工作 空间 ， 具 体格 式 介 绍 如 下 。 

se load: 把 磁盘 文件 matlab.mat ( 默认 的 文件 名 ) 的 内 容 读 入 内 存 ， 由 于 存储 .mat 文 
件 时 已 包含 了 变量 名 的 信息 , 因此 调 回 时 已 直接 将 原 变量 信息 带 入 , 不 需要 重新 赋 
值 变 量 。 

es load dfile， 把 磁盘 文件 dfile.mat 的 内 容 读 入 内 存 。 

e jload dfile.dat: 把 磁盘 文件 dfile.mat 的 内 容 读 入 内 存 ， 这 是 一 个 ASCII 码 文件 ， 系 
统 自动 将 文件 名 ( dfile ) 定义 为 变量 名 。 

e X=load (fname): fname 是 一 个 预先 定义 好 的 包含 文件 名 的 字符 串 , 将 由 fname 定义 
文件 名 的 数据 文件 读 入 变量 x 中 ,使 用 这 种 方法 可 以 通过 编程 方便 地 调 入 一 系列 数 
据 文 件 。 


1.5.5 MATLAB 文件 管理 


MATLAB 提供 了 一 组 文件 管理 命令 , 包括 列 文件 名 、 显 示 或 删除 文件 、 显 示 或 改变 当 
前 目录 等 ， 相 关 的 命令 及 其 功能 如 表 1.2 所 示 。 


表 1.2 MATLAB 常用 文件 管理 命令 


显示 当前 目录 与 MATLAB 相关 的 文件 及 路 径 |‖ type filename 在 命令 窗口 中 显示 文件 flename 
返 





显示 当前 目录 下 所 有 的 文件 删除 文件 flename 
i 显示 某 个 文件 的 路 径 芭 回 上 一 级 目录 


1.5.6” MATLAB 帮助 使 用 


MATILAB 的 所 有 函数 都 是 以 逻辑 群 组 的 方式 进行 组 织 的 , 而 MATLAB 的 目录 结构 就 
是 以 这 些 群 组 方式 来 编排 的 ， 几 个 常用 的 帮助 命令 介绍 如 下 。 

( 1 ) helpwin: 帮助 窗口 。 

(2 ) helpdesk: 帮助 桌面 ， 浏 览 器 模式 。 

( 3 ) lookfor， 返 回 包含 指定 关键 词 的 项 。 

(4) demo: 打开 示例 窗口 。 

MATLAB 还 提供 了 丰富 的 help 命令 ,如 表 1.3 所 示 , 在 命令 窗口 中 输入 相关 命令 就 可 
以 获得 相关 的 帮助 。 
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表 1.3 MATLAB 常用 帮助 命令 















本 章 首先 概要 讲述 了 MATLAB 语言 的 产生 和 发 展 历程 、 其 优势 及 特点 ， 然 后 一 一 讲 
述 了 MATLAB 的 系统 结构 、 工 具 箱 和 桌面 操作 环境 ， 本 章 是 全 书 内 容 的 基础 ， 需 要 扎实 
掌握 。 
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MATLAB 是 一 门 计算 语言 , 它 的 运算 指令 和 语法 基于 一 系列 基本 的 矩阵 运算 以 及 它们 
的 扩展 运算 ， 它 还 支持 复数 这 一 数值 元 素 ， 这 也 是 MATLAB 区 别 于 其 他 高 级 语言 的 最 大 
特点 之 一 ， 它 给 许多 领域 的 计算 带 来 了 极 大 方便 。 


MATLAB 数值 类 型 


MATLAB 包括 4 种 基本 数据 类 型 , 即 双 精 度数 组 、 字 符 串 数组 、 元 胞 数组 、 构 架 数组 。 
数值 之 间 可 以 相互 转化 ， 这 为 其 计算 功能 开拓 了 广阔 的 空间 。 





1. 变量 与 常量 
变量 是 数值 计算 的 基本 单元 。 与 C 语言 等 其 他 高 级 语言 不 同 ，MATLAB 语言 中 的 变 
量 无 须 事先 定义 ， 一 个 变量 以 其 名 称 在 语句 命令 中 第 一 次 合法 出 现 而 定义 ,运算 表 达 式 变 
量 中 不 允许 有 未 定义 的 变量 ， 也 不 需要 预先 定义 变量 的 类 型 ，MATLAB 会 自动 生成 变量 ， 
并 根据 变量 的 操作 确定 其 类 型 。 
(1) MATILAB 变量 命名 规则 
MATLAB 中 的 变量 命名 规则 如 下 : 
1 ) 变量 名 区 分 大 小 写 ， 因 此 A 与 a 表示 的 是 不 同 的 变量 ; 
) 变量 名 以 英文 字母 开始 ， 第 一 个 字母 后 可 以 使 用 字母 、 数 字 、 下 划 线 ， 但 不 能 使 
和 标点 符号 ; 
3 ) 变量 名 长 度 不 得 超过 31 位 ， 超 过 的 部 分 将 被 忽略 ; 
4 ) 某 些 常量 也 可 以 作为 变量 使 用 ， 如 i 在 MATLAB 中 表示 虚数 单位 ， 但 也 可 以 作为 
变量 使 用 。 
常量 是 指 那些 在 MATLAB 中 已 预先 定义 其 数值 的 变量 ， 软 认 的 常量 如 表 2.1 所 示 。 


表 2.1 MATLAB 默认 常 


浮 点 数 的 相对 误差 
虚数 单位 ， 定 义 为 


函数 实际 输入 参数 个 数 
函数 实际 输出 参数 个 数 
默认 变 旦 名 ， 以 应 答 最 近 一 次 操作 运算 结果 

























nargout 


S (或 ans) 
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(2) MATLAB 变量 的 显示 

任何 MAILAB 语句 的 执行 结果 都 可 以 在 屏幕 上 显示 ， 同 时 赋值 给 指定 的 变量 ， 没 有 
指定 变量 时 ， 赋 值 给 一 个 特殊 的 变量 ans， 数 据 的 显示 格式 由 format 命令 控制 。format 只 
影响 结果 的 显示 ， 不 影响 其 计算 与 存储 。MATLAB 总 是 以 双 字 长 浮 点 数 ( 双 精 度 ) 来 执行 
所 有 的 运算 。 如 果 结 果 为 整数 ， 则 显示 没有 小 数 ; 如 果 结 果 不 是 整数 ， 则 输出 形式 有 表 2.2 
所 示 的 几 种 形式 。 





表 2.2 MATLAB 的 数据 显示 格式 










(3) MATLAB 变量 的 存 取 

工作 空间 中 的 变量 可 以 用 save 命令 存储 到 磁盘 文件 中 。 键 入 命令 “save< 文 件 名 >”， 
将 工作 空间 中 全 部 变量 存 到 “< 文件 名 >.mat” 文 件 中 去 ， 若 省 略 “< 文件 名 >” 则 存 入 文件 
“matlab.mat” 中 ; 命令 “save< 文 件 名 >< 变 量 名 集 >” 将 “< 变量 名 集 >” 指 出 的 变量 存 入 文 
件 “< 文 件 名 >.mat” 中 。 

用 load 命令 可 将 变量 从 磁盘 文件 读 入 MATLAB 的 工作 空间 ， 其 用 法 为 “load< 文 件 名 >”， 
它 将 “< 文件 名 >” 指 出 的 磁盘 文件 中 的 数据 依次 读 入 名 称 与 “< 文件 名 >” 相 同 的 工作 空间 
中 的 变量 中 去 。 若 省 略 “< 文 件 名 >” 则 “matlab.mat” 从 中 读 入 所 有 数据 。 

用 clear 命令 可 从 工作 空间 中 清除 现存 的 变量 。 

2. 字符 串 

字符 是 MATLAB 中 符号 运算 的 基本 元 素 ， 也 是 文字 等 表达 方式 的 基本 元 素 ， 在 
MATILAB 中 ， 字 符 串 作为 字符 数组 用 单 引 号 ( ' ) 引用 到 程序 中 ， 还 可 以 通过 字符 串 运算 组 
成 复杂 的 字符 串 。 字 符 串 数值 和 数字 数值 之 间 可 以 进行 转换 , 也 可 以 执行 字符 串 的 有 关 操 作 。 
3 元 胞 数组 

元 胞 是 元 胞 数组 ( Cell Array ) 的 基本 组 成 部 分 。 元 胞 数组 与 数字 数组 相似 ， 以 下 标 来 
区 分 ， 单 元 胞 数组 由 元 胞 和 元 胞 内 容 两 部 分 组 成 。 用 花 括 号 { } 表 示 元 胞 数组 的 内 容 ， 用 圆 
括号 0 表示 元 胞 元 素 。 与 一 般 的 数字 数组 不 同 ， 元 胞 可 以 存放 任何 类 型 、 任 何 大 小 的 数组 ， 
而 且 同 一 个 元 胞 数组 中 各 元 胞 的 内 容 可 以 不 同 。 

元 胞 数组 创建 与 显示 实例 。 
解 ， MATLAB 程序 代码 如 下 。 









At(L，1)={' An example of cel1 array']: 

At(1lI，2)={f[1L1 2;3 4]} ARAf2，1}=tt (1，[1，8]); A{2，2)})={A(L，2))This 1s an 
examp1le'}: 

celldisp(A) * 显 示 该 元 胞 数组 
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元 胞 数组 A 第 1 行 用 元 胞 数组 标志 法 建立 一 个 字符 串 和 一 个 矩阵 ; 第 2 行 用 元 胞 内 容 
编 址 法 ， 建 立 一 个 传递 函数 和 一 个 由 两 个 元 素 组 成 的 元 胞 组 ， 该 元 胞 组 分 别 是 殷 阵 和 字符 
串 ， 最 后 ， 用 celldisp 函数 显示 该 元 胞 数组 A。 
4. 构架 数组 

与 元 胞 数组 相似 ， 构 架 数组 ( Structure Array ) 也 能 存放 各 类 数据 ， 使 用 指针 方式 传递 
数值 。 构 架 数组 由 结构 变量 名 和 属性 名 组 成 , 用 指针 操作 符 “."” 连接 结构 变量 名 和 属性 名 。 
例如 ， 可 用 parametertemperature 表示 某 一 对 象 的 温度 参数 ， 用 parameterhumidity 表示 某 
一 对 象 的 湿度 参数 等 ， 因 此 ， 该 构架 数组 parameter 由 两 个 属性 组 成 。 


5 对象 

面向 对 象 的 MATLAB 语言 采用 了 多 种 对 象 ， 如 自动 控制 中 常用 的 传递 函数 模型 对 象 
( 娘 object )、 状 态 空间 模型 对 象 ( ss object ) 和 零 极点 模型 对 象 ( zpk object )， 一 些 对 象 之 
闻 可 以 相互 转换 ， 例 如 可 以 从 传递 函数 模型 对 象 转化 为 零 极点 模型 对 象 ， 这 将 在 后 面具 体 
介绍 。 


关系 运算 和 逻辑 运算 


除了 传统 的 数学 运算 外 , MATLAB 还 支持 关系 运算 和 逻辑 运算 。 如 果 你 已 经 有 了 一 些 
编程 经 验 , 那 对 这 些 运 算 不 会 陌生 。 这 些 操作 符 和 函数 的 目的 是 提供 求解 真 / 假 命题 的 答案 。 
关系 运算 和 逻辑 运算 主要 用 于 控制 基于 真 / 假 命题 的 各 MATLAB 命令 ( 通常 在 M 文件 中 ) 
的 流程 或 执行 次 序 。 

作为 所 有 关系 表达 式 和 逻辑 表达 式 的 输入 ，MATLAB 把 任何 非 0 数值 当做 真 ， 把 0 
当做 假 。 所 有 关系 表达 式 和 逻辑 表达 式 的 输出 ， 对 于 真 输出 为 1， 对 于 假 输 出 为 0。 

MATILAB 为 关系 运算 和 逻辑 运算 提供 了 关系 操作 符 和 逻辑 操作 符 ， 如 表 2.3 和 表 2.4 
所 示 。 





表 2.3 关系 运算 符 符号 




















此 外 ，MATLAB 还 提供 了 若干 关系 运算 函数 和 逻辑 运算 函数 ， 分 别 如 表 2.5 和 表 2.6 
所 示 。 
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表 2.5 关系 运算 函数 














表 2.6 ”逻辑 运算 函数 


立方 式 的 逻辑 或 运 
立方 式 的 逻辑 异 或 运 “ 


矩阵 及 其 运算 


MATLAB 软件 的 最 大 特色 是 强大 的 矩阵 计算 功能 ， 在 MATLAB 软件 中 ， 所 有 的 计算 
都 是 以 矩阵 为 单元 进行 的 ,可 见 矩阵 是 MATLAB 的 核心 o 下 面 以 表格 的 形式 列 出 MATLAB 
提供 的 每 类 和 阵 运算 的 函数 ， 并 各 举 一 个 实例 进行 说 明 ， 同 类 函数 的 用 法 基本 类 似 ， 详 细 
的 用 法 及 函数 内 容 说 明 可 参考 联机 帮助 。 


2.3.1 ”和 矩阵 的 创建 


由 闫 行 半 列 构 成 的 数组 a 称 为 四 x 天 阶 矩 阵 ， 它 总 共 由 六 xz 个 元 素 组 成 ， 矩 阵 元 素 记 
为 j ， 其 中 1 表示 行 ，/ 表示 列 。 

当 闫 = 闫 时 ， 和 矩阵 a 称 为 方 阵 。 当 ;xy 时， 所 有 的 ory =0， 且 严 = 站 ， 得 到 的 矩阵 称 为 
对 角 阵 。 

当 对 角 阵 的 对 角 线 上 的 元 素 全 为 1 时 ， 称 为 单位 阵 ， 记 为 了。 

对 于 (mx 用 阶 甜 阵 w， 当 岂 =ar 时 ， 称 w 是 a 的 转 置 算 阵 ， 记 为 w=a'。 

对 于 4 为 (mxD 的 形式 时 , 称 4 是 严 个 元 素 的 列 向量 ， 对 于 a 为 (xD 的 形式 时 , 称 a 
是 二 个 元 素 的 行 向 量 。 

矩阵 的 表现 形式 和 数组 相似 ， 它 以 左 方 括号 “[” 开 始 ， 以 右 方 括 号 “]” 结 束 ， 每 一 
行 元 素 结束 用 行 结束 符号 ( 分 号 “;”) 或 回 车 符 分 割 ， 每 个 元 素 之 问 用 元 素 分 割 符 号 ( 空 
格 或 “，) 分 隔 。 建 立 矩 阵 的 方法 有 直接 输入 矩阵 元 素 、 在 现 有 和 矩阵 中 添加 或 删除 元 素 、 
读 取 数 据 文件 、 采 用 现 有 和 撼 阵 组 合 、 和 矩阵 转向 、 抑 阵 移 位 及 直接 建立 特殊 矩阵 等 。 


和 矩阵 创建 实例 。 
解 ， MATLAB 程序 代码 如 下 。 
>> a=-[1 2 3;45 6] 


运行 结果 是 创建 了 一 个 2x3 的 和 矩阵 a，a 的 第 1 行 由 1、2、3 这 3 个 元 素 组 成 ， 第 2 
行 由 4、5、6 这 3 个 元 素 组 成 ， 输 出 结果 如 下 : 
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a=1 2 3 
4 5 46 
接着 输入 : 


>> b=[a;i 11，12，13]  % 添 加 一 行 元 素 [11，12，13] 


运行 结果 是 创建 了 一 个 3x3 的 矩阵 b，b 和 矩阵 是 在 a 和 矩阵 的 基础 上 添加 一 行 元 素 11、 
12、13， 组 成 一 个 3x3 矩阵， 输出 结果 如 下 


Pp = 工 2 3 


MATLAB 中 对 和 矩阵 元 素 的 访问 如 下 所 示 : 

单个 元 素 的 访问 : b(3, 2) 一 12， 访 问 了 第 3 行 和 第 2 列 交叉 的 元 素 ; 

整 列 元 素 的 访问 : b(:, 3) 一 [3, 6, 13] ， 访 问 了 第 3 列 中 的 所 有 元 素 ; 

整 行 元 素 的 访问 : bd, :) 一 [1L, 4, 11] ， 访 问 了 第 1 行 中 的 所 有 元 素 ; 

整 块 元 素 的 访问 : b(2:3, 2:3) 一 [ 5, 6; 12, 13]， 访 问 了 一 个 (2x2 ) 的 子 块 和 矩阵 。 
MATLAB 提供 了 很 多 个 特殊 和 矩阵 的 生成 函数 ， 表 2.7 列 出 了 一 些 常用 的 生成 尔 数 ， 关 

于 其 他 的 特殊 矩阵 生成 函数 及 使 用 格式 ， 请 参见 联机 帮助 。 


表 2.7 MATLAB 常用 特殊 矩阵 生成 函数 


zeros( ) 生成 元 素 全 为 0 的 矩阵 i 生成 下 三 角 乱 阵 
rand( ) 生成 均匀 分 布 随机 和 矩阵 company() 生成 伴随 和 矩阵 











用。 特殊 算 阵 生 成 函数 使 用 实例 。 
解 : MATLAB 程序 代码 如 下 。 








>> a=[1，2，3);) 4，5，6; 7，8，9]; b=tril(a) g 生 成 下 三 角 和 矩阵 


运行 结果 是 生成 了 b 矩阵 , 它 是 调用 下 三 角 和 矩阵 生成 函数 tril( ) 生 成 的 a 矩阵 的 下 三 角 
和 矩阵， 输出 结果 如 下 ; 


D = 工 0 0 
4 5 0 
7 8 9 


2.3.2 ”和 矩阵 的 运算 
矩阵 与 矩阵 之 间 可 以 进行 如 表 2.8 所 示 的 基本 运算 。 
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表 2.8 矩阵 基本 运算 
能 说 明 果 村 号 能 说 明 
和 矩阵 加 法 





























矩阵 对 数 运 算 
和 矩 阵 指数 运算 











矩阵 基本 运算 实例 。 
解 : MATLAB 程序 代码 如 下 。 


>> a=[1，2; 3，4]) b=[3，5; 2，9]) adqivl=a/b; g% 和 矩阵 的 左 除 
>>adiv2=b\a gs 和 矩阵 的 右 除 


两 矩阵 a 与 b 进行 了 左 除 和 右 除 运算 ， 输 出 结果 如 下 : 


Qiv1 = 0.2941 0.0588 Qiv2= -0.3529 -0.1176 
1 工 .176 -0.1765 0.4118 0.4706 


MATLAB 提供 了 多 种 关于 和 矩阵 的 函数 ， 表 2.9 列 出 了 一 些 常 用 的 矩阵 函数 运算 。 


表 2.9 常用 矩阵 函数 运算 


函数 名 功能 说 了 明 函 数 名 
rot90() 和 矩阵 逆 时 针 旋转 90? eig() 


征 pdim( ) 抢 阵 的 某 维 元 素 翻 转 
和 矩 阵 的 元 素 移 位 






功能 说 明 
计算 矩阵 的 特征 值 和 特征 向 重 
计算 矩阵 的 秩 
计算 窍 阵 的 迹 
计算 和 矩阵 的 范 数 
计算 算 阵 的 特征 方程 的 根 








































trace( ) 


































shiftdimtk ) Poly( ) 


矩阵 函数 运算 实例 。 
解 : MATLAB 程序 代码 如 下 。 
>> a=[1，3，5; 2，4，6) 7，9，13]; [fb，c]=eig(a)  #% 求 取 和 矩阵 的 特征 值 和 特征 向 量 


通过 函数 eig() 计 算 和 矩阵 a 的 特征 向 量 b 和 特征 值 c， 输 出 结果 如 下 ， 


pb=-0.3008 -0.7225 0.2284 
-0.3813 -0.3736 -0.8517 
-0.8742 0.5817 0.4717 


C 三 19.3341 0 0 
0 一 .4744 0 
0 0 0.1403 


和 矩阵 分 解 常用 于 方程 求 根 ， 表 2.10 列 出 了 一 些 常用 的 矩阵 分 解 运算 。 
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表 2.10 ”常用 和 矩阵 分 解 运 算 函 数 











是 呈请 和 生 阵 分解 运 算 函 数 使 用 实例 。 

解 ， MATLAB 程序 代码 如 下 。 

>> a=[6，2，1; 2，3，1; 1，1，1])， [ID，U，P]=lu(a) gs 对 矩阵 进行 LU 分 解 

通过 函数 lu( ) 对 矩阵 a 进行 LU 分 解 ， 得 到 上 三 角 阵 U、 下 三 角 阵 直 、 置 换 矩 阵 P， 输 
出 结果 如 下 











TD =1.0000 0 0 U= 6.0000 2.0000 1.0000 
0.3333 1.0000 0 0 2.3333 0.6667 
0.1667 0.2857 .0000 0 0 0.6429 

P = 工 0 0 
0 工 0 
0 0 工 


复数 及 其 运算 


复数 以 及 在 其 基础 上 发 展 起 来 的 复 变 函数 这 一 重要 的 数学 分 支 ， 解 决 了 许多 实 变 函 数 
无 法 解决 的 问题 ， 有 着 广泛 的 工程 应 用 。 

复 变 函数 是 控制 工程 的 数学 基础 ， 常 用 来 描述 控制 系统 模型 的 传递 函数 ， 就 是 属于 复 
变 函 数 。MAITLAB 支持 在 运算 和 函数 中 使 用 复数 或 复数 和 矩阵， 还 支持 复 变 函数 运算 。 


2.4.1 复数 的 表示 

MATLAB 是 以 ;或 了 字 元 来 代表 虚 部 复数 运算 的 。 

一 个 复数 可 表示 为 : zx=a+ 下 ， 其 中 a 称 为 实 部 ，2 称 为 虚 部 。 

也 可 写成 复 指 数 形式 :xx = re& 。 其 中 ” 称 为 复数 的 模 ， 又 记 为 1x1; 6 称 为 复数 的 幅 
角 ， 又 记 为 4rg(z) ， 且 满足 如 下 关系 : 


六 =Va2+D2 ， tang= 忆 
C 


具体 采用 哪 种 表示 方法 取决 于 实际 问题 。 一 般 而 言 ， 第 一 种 问题 适合 处 理 复数 的 代数 
运算 ， 第 二 种 方法 适合 处 理 复 数 旋转 等 涉及 幅 角 改变 的 问题 。 

一 个 复数 也 可 以 看 做 是 关于 实 部 和 虚 部 的 符号 函数 。 因 此 ， 既 可 以 直接 构造 复数 ， 也 
可 以 用 符号 函数 构造 复数 。 下 面 分 别 介绍 这 两 种 构造 方法 。 

(1) 用 直接 法 构造 两 种 形式 的 复数 

直接 法 就 是 利用 符号 ; 或 /来 表示 复数 单位 ， 将 复数 看 做 完整 的 一 个 表达 式 输入 。 其 
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具体 形式 也 有 两 种 ， 可 以 用 实 部 虚 部 形式 表示 ， 也 可 以 用 复 指数 形式 表示 。 

(2 ) 用 符号 函数 法 构造 两 种 形式 的 复数 

所 谓 符号 函数 法 就 是 将 复数 看 成 是 函数 形式 ， 其 实 部 和 虚 部 看 做 自 变量 ， 用 syms 来 
构造 ， 用 subs 对 符号 函数 中 自 变 量 进 行 赋 值 。 


复数 构造 实例 。 试 分 别 使 用 上 述 两 种 方法 ， 在 MATLAB 中 构造 复数 


X 一 一 1 十 1。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


Xx1=-1+i1  % 直 接 法 构造 , 实 部 虚 部 形式 

x2=scrt (2)*exp(ix(3xpi/4)) g% 直 接 法 构造 , 复 指 数 形式 
g 符 号 函数 法 构造 , 实 部 虚 部 形式 

Syms aa Db real:; g% 声 明 a，D 为 实数 型 

x3=a+bxi g 实 部 虚 部 形式 复数 的 符号 表达 

subs (x3, {a,bj,{-1,1}) g% 代 入 具体 值 

g% 符 号 函数 法 构造 , 复 指 数 形式 

syms tr ct real; 8% 声 明 上 *，ct 为 实数 型 

X4=rxexp (ct*i); g% 复 指数 形式 复数 的 符号 表达 

subs (x4, {r,ctj,{fsqrc(2),3xpi/4})g% 代 入 具体 值 


输出 结果 为 : 

xl = 一 1.0000 二 .00001 
x2 = -1.0000 + 1.00001 
X3 = -1.0000 + 1.00001 
x4 = -1.0000 + 1 工 .00001 


MATLAB 中 矩阵 运算 贯穿 始终 ， 复 数 和 矩阵 也 是 其 中 的 一 个 重要 方面 。 由 于 复数 矩阵 的 
每 个 元 素 都 是 复数 ， 所 以 对 应 的 复数 创建 矩 阵 也 有 两 种 ， 即 直接 创建 和 利用 符号 函数 创建 。 

复数 移 阵 的 直接 创建 有 两 种 方法 ， 一 种 是 由 复数 元 素 构造 复数 矩阵 ， 另 一 种 是 利用 两 
个 矩阵 分 别 做 实 部 和 虚 部 构造 新 的 复数 和 矩阵。 下 面 举例 说 明 复数 矩阵 的 直接 创建 ， 另 一 种 
方法 类 比 很 容易 实现 ， 在 此 不 作 赣 述 。 

(1 ) 由 复数 元 素 构造 复数 天 阵 

复数 矩阵 的 每 个 元 素 都 是 复数 ， 将 复数 作为 矩阵 元 素 并 按照 矩阵 格式 进行 填充 就 得 到 
了 复数 矩阵 。 

(2 ) 由 实 天 阵 创造 复数 短 阵 

由 两 个 分 别 作 实 部 和 虚 部 的 同 维和 矩阵 构造 复数 矩阵 。 


复数 矩阵 构造 实例 。 榴 造 复生 阵 | 机 |。 


1- 1-2 1 一 3 


解 ， 可 直接 输入 各 元 素来 构造 矩阵 ， 此 处 通过 其 复 指 数 形式 构造 。 
在 MATLAB 命令 窗口 中 输入 ， 
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gs 直接 输入 各 元 素来 构造 
Al=[sSGYrL (2)*xexp((Ppi/4)xi) 1+21 1+317sSdGrt(2)xexp((-pi/4)x*i) 1-21 1-31] 第 
g% 由 实 和 矩阵 构 
AZ2re=[1 1 1)1 1 1] A2im=[1 2 3)-1 -2 -3]) ARA2=A2re+A2imxi 
输出 结果 Al 和 A2 均 为 : 
1.0000 + 1.0000i 1.0000 + 2.00001 1.0000 + 3.0000 
1.0000 -1.00001 1.0000 -- 2.00001 1.0000 一 3.00001 


2.4.2 ”复数 的 绘图 


对 于 复数 函数 的 绘图 主要 有 两 种 形式 。 一 种 是 直角 坐标 图 ， 即 分 别 以 复数 的 实 部 和 康 
部 为 坐标 作出 复数 的 表示 图 ， 另 一 种 为 极 坐标 图 ， 即 分 别 以 复数 的 模 和 幅 角 为 坐标 作 图 。 

MATLAB 提供 了 绘制 极 坐标 图 的 函数 polar， 它 还 可 绘制 出 极 坐标 栅 格 线 ， 其 常用 的 
调用 格式 为 ; 

Polar (thetay rho) 

其 中 ，theta 为 极 坐标 极 角 ，rho 为 极 坐标 矢 径 。 

区 允 复数 函数 绘图 实例 。 作 出 函数 ， = :+ irsin(1) 在 两 种 坐标 下 的 表示 图 。 


解 : 直角 坐标 图 一 一 以 实 部 为 横 坐 标 ， 以 虚 部 为 纵 坐 标 ; 极 坐 标 图 一 一 以 模 为 极 半 径 ， 





以 幅 角 为 极 角 ， 在 MATLAB 命令 窗口 中 输入 以 下 命令 ， 最 终 显 示 结 果 如 图 2-1 所 示 。 


直角 坐标 图 





图 2-1 极 坐 标 下 复数 的 表示 


t=0:0.01:2*piy y=t+ixt.xsin(t)， % 直 角 坐 标 表示 
r=abs (ty) ;bdelta=angle(ty); g 极 坐标 表示 

Subplot (2,1,1) 

plot (y) ”gg 绘制 直角 坐标 图 

title(' 直 角 坐 标 图 ') ; subplot(2,1,2) 
polar(aelta,r) sg 绘制 极 坐 标 图 
title(' 极 坐标 图 ' ) 
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2.4.3 ”复数 的 操作 函 数 


对 于 一 个 形 如 x=a+ 上 的 复数 , 我 们 通常 希望 能 够 了 解 它 自身 的 结构 性 质 , 包括 实 部 、 
虚 部 、 模 和 幅 角 等 。MATLAB 提供 了 方便 的 操作 函数 ， 如 表 2.11 所 示 。 下 面 利用 实例 来 
说 明 各 个 函数 的 调用 方法 。 


表 2.11 常用 矩阵 分 解 运 算 函 数 
函数 名 功 能 函数 名 
real(A) 求 复 数 或 复数 矩阵 A 的 实 部 abs(A) 求 复 数 或 复数 矩阵 A 的 模 








求 复数 或 复数 矩阵 A 的 虚 部 angle(A) 求 复数 或 复数 矩阵 A 的 相 角 ， 单 位 为 弧度 
求 复数 或 复数 矩阵 A 的 共 斩 

在 MATLAB 中 ， 复 数 的 基本 运算 和 实数 相同 ， 都 是 使 用 相同 的 函数 。 比 如 复数 或 复 
数 和 矩阵 x 除 以 y， 运 算命 令 也 是 xy， 与 实数 运算 一 样 。 因 此 ， 复 数 基 本 运算 的 内 容 此 处 不 
再 乾 述 。 








2.4.4 留 数 的 基本 运算 
留 数 的 定义 : 设 a 是 f(z) 的 孤立 奇 点 ，C 是 a 的 充分 小 的 邻 域内 一 条 把 a 点 包含 在 其 
内 部 的 闭路 ， 积 分 元 | c 7(z)dz 称 为 Fa) 在“ 点 的 贸 数 或 残 数 ， 记 作 ResL/(zhol。 
留 数 定理 ; 如 果 函 数 /(z) 在 闭路 C 上 解析 , 在 C 的 内 部 除去 ”个 孤立 奇 点 aaa,…an 
外 也 解析 ， 则 闭路 上 的 积分 满足 : 
| crod-2m2 Resy(ahan 


如 果 能 够 求 得 函数 Fz) 在 各 极点 的 留 数 的 显 式 表 达 ， 则 该 闭路 积分 很 容易 获得 。 
由 罗 朗 展开 : RE ee 





Res[/ (zh)， 四 = 克 -1 1 二 de- 0 jz)]。 


至 此 ， 通 过 留 数 定理 可 以 把 闭路 积分 转化 为 简单 的 代数 计算 。 
由 于 在 工程 中 遇 到 的 f(z) 多 数 情 况 下 为 有 理 分 式 ， 所 以 可 表示 为 如 下 形式 : 
az TTQ 1ZL 十 十 alZz 二 ao 
bz 十 Do-_iz2 十 .十 pz 十 区 
函数 residue 可 以 求 得 该 有 理 式 的 留 数 ，residue 的 返回 参数 有 3 个 ， 分 别 对 应 留 数 向 
、 极 点 向 量 和 高 阶 项 。 
调用 格式 : [nr p, k] = residue([a。 a 1 .ao]，[P， 访 -4 .有 ]) 
如 果 仅 对 留 数 感 兴 趣 ， 后 两 个 参数 可 省 略 。 


抑 [ 
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符号 运算 


MATLAB 提供 了 符号 数学 工具 箱 ( Symbolic Math Toolbox )， 大 大 增强 了 MATLAB 的 
功能 。 符 号 数学 工具 箱 的 特点 为 : 

( 1 ) 符号 数学 工具 箱 适 用 于 广泛 的 用 途 ， 而 不 是 针对 一 些 特殊 专业 或 专业 分 支 ; 

( 2 ) 符号 数学 工具 箱 使 用 字符 串 来 进行 符号 分 析 ， 而 不 是 基于 数组 的 数值 分 析 。 


2.5.1 ”符号 运算 概述 


符号 数学 工具 箱 是 操作 和 解决 符号 表达 式 的 符号 数学 工具 箱 ( 函数 ) 集合 ， 有 复合 、 
简化 、 微 分 、 积 分 以 及 求解 代数 方程 和 微分 方程 的 工具 。 另 外 还 有 一 些 用 于 线性 代数 的 工 
具 ， 求 解 着、 行列 式 、 正 则 形式 的 精确 结果 ， 找 出 符号 矩阵 的 特征 值 而 没有 由 数值 计算 引 
入 的 误差 。 工 具 箱 还 支持 可 变 精 度 运 算 ， 即 支持 符号 计算 并 能 以 指定 的 精度 返回 结果 。 

符号 运算 与 数值 运算 的 主要 区 别 如 下 

(1 工 ) 数值 运算 中 必须 先 对 变量 赋值 ， 然 后 才能 参与 运算 ; 

( 2 ) 符号 运算 无 须 事先 对 独立 变量 赋值 ， 运 算 结果 以 标准 的 符号 形式 表达 。 

符号 运算 的 运算 对 象 可 以 是 没 赋 值 的 符号 变量 ， 可 以 获得 任意 精度 的 解 。 
1. 符号 表达 式 

符号 表达 式 是 代表 数字 、 函 数 、 算 子 和 变量 的 MATLAB 字符 串 ， 或 字符 串 数 组 。 不 
要 求 变 量 有 预先 确定 的 值 ， 符 号 方程 式 是 含有 等 号 的 符号 表达 式 。 符 号 算术 是 使 用 已 知 的 
规则 和 给 定 符号 恒等式 求解 这 些 符 号 方程 的 实践 ， 它 与 代数 和 微 积分 所 学 到 的 求解 方法 完 
全 一 样 。 符 号 矩阵 是 数组 ， 其 元 素 是 符号 表达 式 。 

MAILAB 在 内 部 把 符号 表达 式 表示 成 字符 串 ,与 数字 变量 或 运算 相 区 别 ; 否则 ， 这 些 
符号 表达 式 几 乎 完全 像 基本 的 MATLAB 命令 。 
2. 创建 符号 对 象 

MATLAB 提供 了 两 个 建立 符号 对 象 的 函数 : sym 和 syms， 两 个 函数 的 用 法 介绍 如 下 。 

(1 ) sym 子 数 

sym 函数 用 来 建立 单个 符号 量 ， 一 般 调用 格式 为 : 

符号 量 名 =sym( ' 符号 字符 串 ' ) 

该 函数 可 以 建立 一 个 符号 量 , 符号 字符 串 可 以 是 常量 、 变 量 、 函 数 或 表达 式 。 应 用 sym 
函数 还 可 以 定义 符号 常量 。 

(2 ) syms 函数 

函数 sym 一 次 只 能 定义 一 个 符号 变量 ， 使 用 不 方便 。MATLAB 提供 了 另 一 个 函数 
syms， 一 次 可 以 定义 多 个 符号 变量 。 
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syms 函数 的 一 般 调 用 格式 为 : 

syms 符号 变量 名 1 符号 变量 名 2 … 符号 变量 名 mn 

用 这 种 格式 定义 符号 变量 时 不 要 在 变量 名 上 加 字符 串 分 界 符 ()， 变 量 间 用 空格 而 不 要 
用 逗号 分 隔 。 

含有 符号 对 象 的 表达 式 称 为 符号 表达 式 ， 建 立 符号 表达 式 有 以 下 3 种 方法 ; 

se 利用 单 引 号 来 生成 符号 表达 式 ; 

es。 用 sym 函数 建立 符号 表达 式 ; 

e 使 用 已 经 定义 的 符号 变量 组 成 符号 表达 式 。 

符号 表达 式 创 建 实例 。 

解 : 在 MATLAB 窗口 ， 输 入 下 列 命令 : 


U=sym('3*X^2+5xy+2xXxy+6:) g 定 义 符号 表达 式 

SYymS X Y; g% 建 立 符 号 变量 x、y 

V=3xX^2+5xy 十 2xXxY 十 6 g 定 义 符号 表达 式 V 

2xU-V+6 g 求 符号 表达 式 的 值 
3. 符号 矩阵 


符号 矩阵 也 是 一 种 符号 表达 式 ， 所 以 前 面 介 绍 的 符号 表达 式 运 算 都 可 以 在 矩阵 意义 下 
进行 。 但 应 注意 这 些 函数 作用 于 符号 矩阵 时 ， 是 分 别 作用 于 抢 阵 的 每 一 个 元 素 。 

通过 sym 函数 创立 符号 和 矩阵 ， 玫 阵 元 素 可 以 是 任何 不 带 等 号 的 符号 表达 式 ， 各 符号 表 
达 式 的 长 度 可 以 不 同 ， 和 阵 元 素 之 间 可 用 空格 或 逗号 分 隔 。 

例如 ， 在 命令 窗口 中 输入 A = sym([a ,2xb ; 3*a ，0]) ， 就 完成 了 一 个 符号 矩阵 


-| 加 的 创建 ， 输 出 的 结果 为 ， 
3a 0 


有 = [aa 2x*pbl] 
[3*a， 0] 


需要 注意 的 是 ; 符号 矩阵 的 每 一 行 的 两 端 都 有 方 括 号 ， 这 是 与 MATLAB 数值 矩阵 的 
一 个 重要 区 别 。 

在 MAILAB 中 ， 数 值 矩 阵 不 能 直接 参与 符号 运算 ， 必 须 先 转化 为 符号 矩阵 。 

(1) 将 数值 矩阵 转化 为 符号 甜 阵 

函数 调用 格式 为 : sym( 数 值 矩 阵 ) 

(2 ) 将 符号 天 阵 转化 为 数值 天 阵 

函数 调用 格式 : numeric(A) 

由 于 符号 矩阵 是 一 个 矩阵 , 所 以 符号 和 矩阵 还 能 进行 有 关 和 矩阵 的 运算 。MATLAB 还 有 一 
些 专用 于 符号 矩阵 的 函数 ， 这 些 函 数 作用 于 单个 的 数据 无 意义 。 例 如 

transpose(s): 返回 s 矩阵 的 转 置 和 矩阵 。 
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determ(s): 返回 s 矩阵 的 行列 式 值 。 

其 实 ， 许 多 应 用 于 数值 矩阵 的 函数 ， 如 diag、triu、tril、inv、det、rank、eig 等 ， 也 可 
直接 应 用 于 符号 矩阵 。 
4.， 符号 表达 式 的 四 则 运算 

符号 表达 式 的 四 则 运算 比较 简单 ， 常 用 的 函数 介绍 如 下 。 


2.5.2 


factor(S): 对 S 分 解 因 式 ，S 是 符号 表达 式 或 符号 矩阵 。 

expand(S): 对 S 进行 展开 ，S 是 符号 表达 式 或 符号 矩阵 。 

collect(S): 对 $S 合并 同类 项 ，S$S 是 符号 表达 式 或 符号 和 矩阵。 

collect(S,v): 对 $ 按 变量 v 合并 同类 项 ，S$S 是 符号 表达 式 或 符号 矩阵 。 
simplify(S)， 应 用 函数 规则 对 S 进行 化 简 。 

simple(S)， 调 用 MATLAB 的 其 他 函数 对 表达 式 进 行 综合 化 简 ， 并 显示 化 简 过 程 。 


常用 的 符号 运算 


符号 变量 和 数字 变量 之 间 可 转换 ， 也 可 以 用 数字 代替 符号 得 到 数值 。 符 号 运算 种 类 非 
常 多 ， 常 用 的 符号 运算 有 代数 运算 、 积 分 和 微分 运算 、 极 限 运算 、 级 数 求 和 、 进 行 方程 求 


解 等 。 


出 于 篇 幅 的 考虑 ， 下 面 仅 对 控制 系统 中 常用 的 符号 运算 进行 介绍 ， 至 于 其 他 的 符号 运 
算 ， 读 者 可 通过 MATLAB 的 帮助 文档 或 其 他 关于 符号 函数 工具 箱 的 书籍 进行 学 习 ， 此 处 
不 再 珊 述 。 

常用 的 符号 运算 有 微 积 分 、 拉 普 拉 斯 变换 和 Z 变换 等 积分 变换 ， 下 面 分 别 进行 介绍 。 

diff 是 求 微分 最 常用 的 函数 ， 其 输入 参数 既 可 以 是 函数 表达 式 ， 也 可 以 是 符号 矩阵 。 

常用 的 格式 是 ， diffdf, x,m， 表 示 f 关 于 x 求 n 阶 导 数 。 

int 是 求 积 分 最 常用 的 函数 ， 其 输入 参数 可 以 是 函数 表达 式 。 

常用 的 格式 是 : int(f, np x0, xl)。 其 中 ，f 为 所 要 积分 的 表达 式 ，r 为 积分 变量 ， 若 为 定 
积分 ， 则 x0 与 xl 为 积分 上 下 限 。 


有 靖 ”符号 运算 实例 1。 已 知 表达 式 广 sin ( ax )， 分 别 对 其 中 的 x 和 a 求 导 。 


解 : 


> 
>>> 
>> 
> 


输入 如 下 MATLAB 程序 代码 。 
Syms 式 g% 定 义 符 号 变量 a 和 x 
f=sin(axx) g 创 建 函数 革 
Qfx=difft( 上 上，x) g 对 x 求 导 
dfa=dqiff(f，a) g 对 a 求 导 


运行 程序 ， 输 出 结果 如 下 所 示 : 

上 =Sin(axXy) 

dfx =Cos (axX) x 忆 gf 对 x 求 导 的 结果 
afa =cos (axX) xX sf 对 a 求 导 的 结果 
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符号 运算 实例 2。 已 知 表达 式 /= xlog(+ 习 ， 求 对 x 的 积分 和 x 在 (0.1) 
上 的 积分 值 。 


解 : 输入 如 下 MATLAB 程序 代 枉 。 


>>SYImS 式 g% 定 义 符 号 变量 x 
>>f=xx1log(1+x) g 创 建 函 数 工 
>>int1=int(f,X) g 对 x 积分 
>>int2=int(E,x,0,1) g 求 [0,1] 区 间 上 的 积分 


运行 程序 ， 输 出 结果 如 下 所 示 : 


int1l =1/2x(1+x)^2x*1log(1+x)+37/4+1/2x*xXx-1/4x*Xx^2-(1+x)x1og(1+Xx) ， g% 积 分 表达 式 
int2 =174 s 积 分 值 


_MATLAB 中 的 数据 精度 





2.6.1_MATLAB 的 数据 类 型 


MATLAB 的 基本 数值 数据 类 型 有 两 类 : 整数 型 和 浮 点 型 。 
整数 型 数据 按照 表示 范围 可 分 为 int8 int16、int32、int64、uint8、uint16、uint32、uint64 
八 种 类 别 ， 其 中 每 种 类 型 表示 的 数据 范围 如 表 2.12 所 示 ; 


表 2.12 MATLAB 整数 的 表示 范围 
当 数据 超过 类 型 的 表示 范围 时 ，MATLAB 将 数据 表示 成 该 类 型 的 最 大 值 或 最 小 值 ， 
如 下 面 的 例题 所 示 。 


有 二 开放 数据 类 型 使 用 实例 。 将 234 与 -234 表示 成 int8 类 型 。 
解 : 在 MATLAB 命令 窗口 输入 下 列 命令 。 


>> int8(234) 























ans = 127 
>> int8(-234) 
ans = -128 


由 于 int8 表示 的 整数 范围 为 -2” ~ 2” -1， 而 234>127 ， 所 以 输出 结果 为 int8 能 够 表 
示 的 最 大 整数 127, 同 理由 于 -234> -128 , 所 以 输出 结果 为 intg8 能 够 表示 的 最 大 整数 -128。 
对 于 其 他 的 整数 类 型 都 是 一 样 的 。 

浮 点 型 数据 按照 表示 范围 可 分 为 单 精 度 和 双 精 度 两 种 类 型 ， 其 中 每 种 类 型 表示 的 数据 
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范围 如 表 2.13 所 示 。 


表 2.13 MATLAB 浮 点 数据 的 表示 范围 


表 2.13 的 数据 来 自 于 MATLAB 的 帮助 文件 ， 这 些 数据 都 是 遵循 IEEE 标准 得 出 的 数 
据 。 从 表 2.13 可 以 看 出 ， 双 精度 数据 能 够 表示 的 最 小 实数 为 2 ， 即 用 双 精 度 表 示 数 据 
的 精度 为 2-1022 。 当 然 MATLAB 内 部 有 专门 的 函数 获得 这 些 数据 。 


瑟瑟 了 和 数据 类 型 精度 范围 使 用 实例 。 获 取 双 精度 数据 的 表示 范围 。 


解 : 在 MATLAB 命令 窗口 输入 下 列 命令 。 











>> Str = “' 双 精度 数据 的 表示 范围 为 : \n\tgsg to 8%g N\nNt gg to sg' 
>> SPIInLE(Str， -realmax，-realmin，realmjin，Lrealmax) 
amns 二 


双 精 度数 据 的 表示 范围 为 : 


-1.79769e+308 te -2.22507e-308 
2.22507e-308 to 1.79769e+308 


MATLAB 中 默认 的 数据 类 型 为 双 精 度 类 型 。 


2.6.2 MATLAB 的 数值 精度 


MATLAB 的 数值 精度 也 就 是 MATLAB 能 够 表示 的 最 小 实数 ， 任 何 一 个 绝对 值 小 于 
MATLAB 的 数值 精度 的 实数 都 会 被 当成 0 处 理 。 经 过 实验 ， 可 以 知道 ， 在 MATLAB 7.0 
版 本 中 , MATLAB 能 够 表示 的 最 小 实数 为 2 074 , 任何 绝对 值 小 于 2 -104 的 实数 , MATLAB 
都 将 其 视 为 0。 

MATLAB 数值 精度 实例 。MATLAB 7.0 的 数值 精度 。 

解 : 在 MATLAB 命令 窗口 输入 下 列 命令 。 


>> >> X= 2^ 人 (-1074) 
X = 4.9407e-324 
>> X= 2^ 人 (-1075) 


X 二 0 
>> X 一 0 
angs = 1 工 


从 上 面 的 例子 可 以 看 出 ， 由 于 2 -105 <2 0 ，MATLAB 7.0 视 其 为 0， 而 且 通 过 和 0 
的 比较 可 以 看 出 ， 结 果 确 实 为 真 。 

因此 ， 如 果 在 MATLAB 程序 中 要 判断 某 个 实数 是 否 等 于 0， 最 可 靠 的 办 法 是 将 其 与 
2 1“ 相 比 较 ， 看 它 的 绝对 值 是 否 小 于 等 于 2 1074 。 

当然 对 于 具体 的 问题 可 以 根据 问题 的 需要 和 精度 ， 采 取 不 同 的 比较 对 象 ， 例 如 
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MATLAB 中 有 一 个 内 置 常 量 eps， 其 值 为 2.2204x10 5 ， 它 可 以 作为 实数 是 否 等 于 0 的 一 
个 比较 对 象 。 


2.6.3 MATLAB 的 显示 精度 

MATLAB 的 显示 精度 是 指 MATLAB 显示 的 有 效 位 数 .MATLAB 中 的 显示 精度 是 可 以 
修改 的 ， 显 示 精 度 修 改 了 ， 原 来 的 数据 并 没有 变 ， 只 是 数据 在 MATLAB 命令 窗口 中 显示 
的 有 效 位 数 不 同 而 已 。 

MAILAB 中 有 三 个 函数 可 以 设置 显示 精度 : format、vpa 和 digits， 它 们 使 用 简单 ， 具 
体 用 法 可 参考 MATLAB 帮助 文档 。 

MATLAB 显示 精度 实例 。MATLASB 的 显示 精度 。 


解 : 在 MATLAB 命令 窗口 输入 下 列 命令 。 





>>x=17/3 gsMATILRAB 默认 的 显示 精度 
区 三 0.3333 

>> format long; g% 设 置 为 1ong 显示 精度 
>> X= 1 /3 

X 二 0.33333333333333 

>> format rational; g% 显 示 为 小 数 形式 

>> X = 17/3 

X 三 1/3 

>> aigits(10) g 显 示 10 位 有 效 数 字 
>> Vvpal(173) 

ans = .3333333333 

>> vpa(t100/3，20) g 显 示 20 位 有 效 数字 


ans = 33.333333333333333333 


MATLAB 常用 绘图 命令 


MATLAB 提供 了 强大 的 图 形 用 户 界 面 , 在 许多 应 用 中 , 常常 要 用 绘图 功能 来 实现 数据 
的 显示 和 分 析 ， 包 括 二 维 图 形 和 三 维 图 形 。 在 控制 系统 仿真 中 ， 也 常常 用 到 绘图 ， 如 绘制 
系统 的 响应 曲线 、 根 轨迹 或 频率 响应 曲线 等 。 

MATLAB 提供 了 丰富 的 绘图 功能 ， 在 命令 窗口 中 输入 “help graph2d” 可 得 到 所 有 画 
二 维 图 形 的 命令 ; 输入 “help graph3d” 可 得 到 所 有 男 三 维 图 形 的 命令 。 

十 面 主要 介绍 常用 的 二 维 图 形 命令 的 使 用 方法 ， 三 维 图 形 命令 的 使 用 方法 与 此 类 似 。 
至 于 这 些 命令 的 全 部 用 法 请 参考 在 线 帮助 系统 。 

1. 基本 的 绘图 命令 

plot(xl, yl, option1, x2, y2, option2, ...):xl 与 yl 给 出 的 数据 分 别 为 x 轴 与 y 轴 坐 标 值 ， 
optionl 为 选项 参数 ， 以 逐 点 连 折 线 的 方式 绘制 1 个 二 维 图 形 ; 同时 类 似 地 绘制 第 二 个 二 维 
图 形 。 
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这 是 plot 命令 的 完全 格式 ,在 实际 应 用 中 可 以 根据 需要 进行 简化 比如 plot(x, y)、.plot(x， 
yY option)， 选 项 参数 option 定义 了 图 形 曲 线 的 颜色 ( 用 颜色 英文 单词 的 第 一 个 字母 表示 ， 
例如 r 表 示 红 色 、g 表示 绿色 、b 表示 蓝 色 )、 线 型 ( 例如 #、* 等 ) 及 标示 符号 ， 它 由 一 对 
单 引 号 括 起 来 。 


2 图形 窗 口 处 理 命令 

常用 的 选择 图 形 窗口 的 命令 有 .: 

e 打开 不 同 的 图 形 窗 口 命令 figure 

figure(D);，figure(2); …; figurem)， 它 用 来 打开 不 同 的 图 形 窗口 ， 以 便 绘 制 不 同 的 图 
形 。 

。 图 形 窗口 拆 分 命令 subplot 

subplottm, n, p): 分 割 图 形 显 示 窗 口 ，m 表示 上 下 分 割 个 数 ，n 表示 左右 分 割 个 数 ，p 
表示 子 图 编号 。 
3. 坐标 轴 相 关 的 命令 

在 默认 情况 下 MATLAB 自动 选择 图 形 的 横 、 纵 坐标 的 比例 ， 当 然 也 可 以 用 axis 命令 
控制 ， 常 用 的 命令 介绍 如 下 。 
axis([xmin xmax ymin ymax]) ， [xmin xmax ymin ymax] 中 分 别 给 出 x 轴 和 y 轴 的 最 
大 值 、 最 小 值 。 

e。 axis equal: X 轴 和 y 轴 的 单位 长 度 相同 。 

e axis square:， 图 框 呈 方 形 。 

。 axis off， 清 除 坐 标 刻 度 。 

在 某 些 应 用 中 ， 还 会 用 到 半 对 数 坐 标 轴 ，MATLAB 中 常用 的 对 数 坐 标 绘制 命令 介绍 
如 下 。 

e semilogx:， 绘制 以 x 轴 为 对 数 坐 标 ( 以 10 为 底 入 y 轴 为 线性 坐标 的 半 对 数 坐 标 图 


光 
to 


e semilogy: 绘制 以 y 轴 为 对 数 坐 标 ( 以 10 为 底 和) x 轴 为 线性 坐标 的 半 对 数 坐 标 图 
形 。 

eloglog:; 绘制 全 对 数 坐 标 绘图 ， 即 x、y 轴 均 为 对 数 坐 标 ( 以 10 为 底 ) 

4， 文 字 标 示 命 令 

常用 的 文字 标示 命令 介绍 如 下 。 

e text(x, y, ' 字 符 串 )， 在 图 形 的 指定 坐标 位 置 (x, ) 处 标示 单 引 号 括 起 来 的 字符 串 。 

。 gtext(' 说 明文 字 ): 利用 鼠标 在 图 形 的 某 一 位 置 标示 说 明文 字 。 执 行 完 绘图 命令 后 
再 执行 gtext( 说 明文 字 ") 命令 ， 就 可 在 屏幕 上 得 到 一 个 光标 ， 然 后 用 鼠标 选择 说 明 
文字 的 位 置 。 

。 title( 字 符 串 )， 在 所 画图 形 的 最 上 端 显示 说 明 该 图 形 标题 的 字符 串 ; 

。 xlabel( 字 符 串 )、ylabel( 字 符 串 ) 、zlabel(' 字 符 串 ); 设置 xX、y、z 坐标 轴 的 名 称 。 
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输入 特殊 的 文字 需要 用 反 斜 杠 (\) 开头 。 
e。 legend(' 字 符 串 1 , ' 字 符 串 2,， 字符 串 n):， 在 屏幕 上 开启 一 个 小 视窗 ， 然 后 依据 
绘图 命令 的 先后 次 序 ， 用 对 应 的 字符 串 区 分 图 形 上 的 线 。 


5. 在 图 形 上 添加 或 删除 栅 格 命令 

常用 的 栅 格 操作 命令 介绍 如 下 。 

e。 grid:， 给 图 形 加 上 栅 格 线 。 

e grid on: 给 当前 坐标 系 加 上 栅 格 线 。 

e grid o 作 :从 当前 坐标 系 中 删 去 栅 格 线 。 

e。 grid， 交替 转换 命令 ， 即 执行 一 次 ， 转 变 一 个 状态 ( 相当 于 grid on、grid o 企 )。 
6. 图 形 保持 或 覆盖 命令 

常用 的 图 形 保持 和 覆盖 的 命令 介绍 如 下 。 

se hold on: 把 当前 图 形 保持 在 屏幕 上 不 变 ， 同 时 允许 在 这 个 坐标 内 绘制 另外 一 个 图 形 。 

se hold off， 使 新 图 覆盖 有 旧 图 。 


hold 命令 可 以 保持 当前 的 图 形 ， 并 且 防 止 删除 和 修改 比例 尺 。 
hold 命令 是 一 个 交替 转换 命令 , 即 执行 一 次 , 转变 一 个 状态 ( 相当 于 hold on、hold off )。 


洗 守 






7. 应 用 型 绘图 命令 
应 用 型 绘图 命令 常用 于 数值 统计 分 析 或 离散 数据 处 理 ， 常 用 的 应 用 型 绘图 命令 介绍 如 


e bax(x, y); 绘制 对 应 于 输入 x 和 输出 y 的 高 度 条 形 图 。 

e hist(y, x); 绘制 x 在 以 y 为 中 心 的 区 间 中 分 布 的 个 数 条 形 图 。 
e stairs(x, y)， 绘 制 y 对 应 于 x 的 梯形 图 。 

e stem(x, y); 从 制 了 因应 了 天 的 散 点 图 。 





绘图 命令 使 用 实例 。 绘 制 [0,4zx] 区 间 上 的 x1=10sint 和 x2=Scost 曲线 ， 并 要 
求 : 


) xl 曲线 的 线形 为 点 划 线 、 颜 色 为 红色 、 数 据点 标记 为 加 号 ; x2 曲线 的 虚线 、 颜 
色 为 蓝 色 、 数 据点 标记 为 星 号 ; 
2 ) 标示 坐标 轴 的 显示 范围 和 刻度 线 、 添 加 栅 格 线 ; 
) 标注 坐标 轴 名 称 、 标 题 、 相 应 文本 。 


解 : MAILAB 程序 代码 如 下 所 示 。 
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close all g% 关 闭 打开 了 的 所 有 图 形 窗口 


Clec g 清 屏 命 令 
Clear gs 清除 工作 空间 
t=[0:pPi7V20:4xpi]:; 





中 所 有 变量 
g 定 义 时 间 范 围 





hola on  #% 人 允许 在 同一 坐标 系 下 绘制 不 同 的 图 形 
axis([0 4*pi -10 10]) g% 横 轴 范 围 [0,4m] ， 纵 轴 范 围 [-10 ,10] 


Pilot (七 ，10*sin(t)， 


“+:' ) % 线 形 为 点 划 线 、 颜 色 为 红色 、 数 据点 标记 为 加 号 


plot (tt，5x*cos(t)，'bx--') sg 线形 为 虚线 、 颜 色 为 蓝 色 、 数 据点 标记 为 星 号 


xJlabelI( "时 间 t')， yl 
title(' 简 单 绘图 实例 ' ) 


abel( ' 幅 值 x' ) gs 标注 横 、 纵 坐标 轴 
gs 添加 图 标题 











LIegend('xl=10sint: 点 划 线 ' ， 'x2=5cost :虚线 ' )  $% 添 加 文字 标注 
Stext('xl'); gtext('x2') g% 利 用 鼠标 在 图 形 标示 曲线 说 明文 字 
gridq on g 在 所 男 出 的 图 形 坐 标 中 添加 栅 格 ， 注 意 用 在 blot 之 后 




















运行 后 ， 输 出 结果 如 图 2-2 所 示 。 
简单 给 图 实例 
10T -HH 0 二 ， - - 
二 ， ， - 十 - xl1=10sint: 点 划 线 
8 -十 - - 林 的 +| 一 * 一 x2=5cost: 虚 线 
十 ,二 革 一 一 
和 四 0 
4 有 -二 ee - 
ee ; 
2 人 3 光 ”一 
愉 上 上 和 
地 0 叶 志 人 - -和 天 十 
婴 只 林 
二 下 
人 
机 人 
人 和 
十 二 水 十 ， 
8 寺 - 本 
十 “ 直 ， 芭 二 
10L_ _ 1 | 二 寺 1 1 1 二 和 _ 
0 2 4 6 8 10 12 
时 间 { 


MAILAB 语言 具有 强大 的 数值 计算 和 数据 可 视 化 功能 ,熟练 掌握 和 运用 这 些 功 能 


图 2-2 例 2-17 的 输出 图 


挥 MATLAB 强大 功能 的 基础 。 


MATLAB 计算 基础 


是 发 
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在 MATLAB 中 ， 除 了 可 以 在 命令 窗口 中 输入 命令 逐 句 执行 外 ， 也 可 以 和 其 他 形式 的 
C、FORTRAN 等 高 级 语言 一 样 采用 编程 的 方式 ， 称 为 M 文件 编程 。 

读者 首先 应 掌握 MATLAB 程序 设计 的 基本 方法 ， 不 断 实 践 ， 逐 步 将 其 强大 的 功能 应 
用 到 科学 计算 及 其 他 领域 的 学 习 和 应 用 中 去 。 


MATLAB 编程 概述 





MAILAB 不 仅 是 一 种 功能 强大 的 高 级 语言 , 而 且 是 一 个 集成 的 交互 式 开 发 环境 , 用 户 
可 以 通过 MATLAB 提供 的 编辑 调试 器 编写 和 调试 MATLAB 代码 。 

MAILAB 提供 了 代码 书写 和 调试 的 集成 开发 环境 ,用 户 可 以 在 MATLAB 的 代码 编辑 
调试 器 中 完成 书写 和 调试 过 程 。 单 击 MATLAB 主 界面 的 “新 建 ”工具 按钮 或 者 单 击 文件 
菜单 ( File ) “新建 子 菜单 ”( New ) 的 “M-EFile” 项 ， 就 可 以 打开 MATLAB 代码 编辑 -调试 
器 ， 其 空白 界面 如 图 3-1 所 示 。 

用 户 也 可 以 在 命令 窗口 通过 edit filename 命令 打开 已 存在 的 M 文件 进行 编辑 调试 。 

从 图 3-1 可 见 ，MATLAB 能 够 根据 M 文件 内 容 区 别 是 脚本 M 文件 还 是 函数 M 文件 ， 
并 且 在 整个 编辑 过 程 中 追踪 光标 位 置 ( 如 图 3-1 底部 的 “Ln 1 Col 1” 表 示 当 前 光标 处 在 第 
一 行 的 第 一 列 )， 这 对 于 准确 快速 定位 当前 编辑 和 修改 位 置 是 很 方便 有 用 的 。 

开发 MATLAB 程序 一 般 需 要 经 历代 码 编写 、 调 试 、 优 化 几 个 阶段 。 

在 编写 代码 时 ， 要 及 时 保存 阶段 性 成 果 ， 可 以 通过 File 菜单 的 Save 项 或 者 保存 工具 
按钮 保存 当前 M 文件 。 

完成 代码 书写 之 后 ， 要 试 运行 代码 看 看 有 没有 运行 错误 ， 然 后 根据 针对 性 的 错误 提示 
对 程序 进行 修改 。 














2 


图 3-1 MATLAB 代码 编辑 -调试 器 
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运行 脚本 M 文件 ， 只 需要 在 命令 窗口 中 输入 其 文件 名 ， 然 后 按 回 车 键 ， 或 通过 Debug 
菜单 的 Run 项 ， 或 按 快捷 键 “F5” 完 成 。 

运行 范 数 M 文件 ， 需 要 通过 命令 窗口 传递 输入 参数 来 调用 。 除 了 一 些 很 简单 的 代码 ， 
大 部 分 情况 下 用 户 都 可 能 遇 到 程序 报错 的 问题 ， 这 就 需要 对 代码 进行 调试 纠 错 ， 一 般 需要 
通过 Debug 菜单 下 的 子 项 辅助 完成 ， 包 括 设置 断 点 、 逐 步 运行 等 项 。 

当 程 序 运行 无 误 后 ， 还 要 考虑 程序 性 能 是 否 可 以 改进 。 

MATLAB 提供 了 M-Lint 和 Profiler 工具 , 能 够 辅助 用 户 分 析 代码 运行 中 时 间 消 耗 的 细 
节 和 可 能 需要 改变 的 编程 细节 ， 如 循环 赋值 前 没有 预定 义 数 组 ， 用 循环 去 实现 可 以 用 数组 
盟 数 实现 的 运算 等 。 这 些 工 具 都 在 Tools 菜单 下 设置 了 子 菜单 。 


_MATLAB 程序 设计 原则 





MAILAB 程序 的 基本 设计 原则 如 下 所 述 。 

。 百 分 号 “% ”后 面 的 内 容 是 程序 的 注解 ， 要 善于 运用 注解 使 程序 更 具 可 读 性 。 

。 养 成 在 主 程序 开头 用 clear 指令 清除 变量 的 习惯 ， 以 消除 工作 空间 中 其 他 变量 对 程 
序 运 行 的 影响 ， 但 注意 在 子 程序 中 不 要 用 clear。 

。 参数 值 要 集中 放 在 程序 的 开始 部 分 ， 以 便 维 护 。 要 充分 利用 MATLAB 工具 箱 提供 
的 指令 来 执行 所 要 进行 的 运算 , 在 语句 行 之 后 输入 分 号 使 其 及 中 间 结 果 不 在 屏幕 上 
显示 ， 以 提高 执行 速度 。 

。 input 指令 可 以 用 来 输入 一 些 临 时 的 数据 ， 而 对 于 大 量 参数 ， 则 通过 建立 一 个 存储 
参数 的 子 程序 ， 在 主 程序 中 通过 子 程序 的 名 称 来 调用 。 

。 程序 尽量 模块 化 , 即 采 用 主 程序 调用 子 程 序 的 方法 , 将 所 有 子 程序 合并 在 一 起 来 执 
行 全 部 的 操作 。 

。 充分 利用 Debugger 来 进行 程序 的 调试 ( 设置 断 点 、 单 步 执行 、 连续 执行 )， 并 利用 
其 他 工具 箱 或 图 形 用 户 界面 ( GUI ) 的 设计 技巧 ， 将 设计 结果 集成 到 一 起 。 

。 设置 好 MAILAB 的 工作 路 径 ， 以 便 程序 运行 。 

s。 MAILAB 程序 的 基本 组 成 结构 如 下 所 示 。 


MATLAB 程序 的 基本 组 成 结构 


% 说 明 

清除 命令 ， 清 除 workspace 中 的 变量 和 图 形 ( clearclose ) 

定义 变 重 : 包括 全 局 变量 的 声明 及 参数 值 的 设 定 

逐 行 执行 命令 ， 指 MATLAB 提供 的 运算 指令 或 工具 箱 提 供 的 专用 命令 


控制 循环 ， 包含 for， 这 then，switch，while 等 语句 
逐 行 执行 命令 
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end 


绘图 命令 : 将 运算 结果 绘制 出 来 





当然 ， 更 复杂 的 程序 还 需要 调用 子 程序 ， 或 与 其 他 应 用 程序 相 结合 。 


M 文件 


M 文件 是 包含 MATLAB 代码 的 文件 。 


1.，M 文件 的 类 型 

M 文件 按 其 内 容 和 功能 可 以 分 为 脚本 M 文件 和 函数 M 文件 两 大 类 。 

(1) 脚本 M 文件 

它 是 许多 MATLAB 代码 按 顺序 组 成 的 命令 序列 集合 ， 不 接受 参数 的 输入 和 输出 ， 与 
MAILAB 工作 空间 共享 变量 空间 。 

它 一 般 用 来 实现 一 个 相对 独立 的 功能 ， 比 如 对 某 个 数据 集 进 行 某 种 分 析 、 绘 图 ， 求 解 
某 个 已 知 条 件 下 的 微分 方程 等 。 用 户 可 以 通过 在 命令 窗口 中 直接 输入 文件 名 来 运行 脚本 M 
文件 。 

通过 脚本 M 文件 ,用户 可 以 把 为 实现 一 个 具体 功能 的 一 系列 MATLAB 代码 书写 在 一 
个 M 文件 中 ， 每 次 只 需要 输入 文件 名 即 可 运行 脚本 M 文件 中 的 所 有 代码 。 

(2) 函数 M 文件 

它 也 是 为 了 实现 一 个 单独 功能 的 代码 块 ， 但 与 脚本 M 文件 不 同 的 是 函数 M 文件 需要 
接受 参数 输入 和 输出 ， 函 数 M 文件 中 的 代码 一 般 只 处 理 输入 参数 传递 的 数据 ， 并 把 处 理 
结果 作为 函数 输出 参数 返回 给 MATLAB 工作 空间 中 的 指定 接收 变量 。 

因此 ， 函 数 M 文件 具有 独立 的 内 部 变量 空间 。 在 执行 函数 M 文件 时 ， 要 指定 输入 参 
数 的 实际 取 值 ， 而 且 一 般 要 指定 接收 输出 结果 的 工作 空间 变量 。 

MATLAB 提供 的 许多 函数 就 是 用 函数 M 文件 编写 的 ， 尤 其 是 各 种 工具 箱 中 的 函数 ， 
用 户 可 以 打开 这 些 M 文件 来 查看 。 实 际 上 ， 对 于 特殊 应 用 领域 的 用 户 ， 如 果 积累 了 充分 
的 专业 领域 应 用 的 函数 ， 就 可 以 组 建 自己 的 专业 领域 工具 箱 了 。 

通过 函数 M 文件 ,用 户 可 以 把 实现 一 个 抽象 功能 的 MAILAB 代码 封装 成 一 个 函数 接 
口 ， 在 以 后 的 应 用 中 重复 调用 。 
2，M 文件 的 结构 

图 3-2 显示 的 是 MAILAB 提供 的 一 个 函数 M 文件 的 全 部 内 容 ， 图 中 清楚 地 显示 了 一 
般 的 M 文件 包括 的 各 部 分 结构 。 

从 图 3-2 可 以 看 到 ，MATLAB 中 M 文件 一 般 包 括 以 下 五 部 分 结构 。 

e 函数 声明 行 ( Function Definition Line )， 这 一 行 只 出 现在 函数 M 文件 的 第 一 行 ， 通 
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过 function 关键 字 表 明 此 文件 是 一 个 函数 M 文件 ， 并 指定 函数 名 、 输 入 和 输出 参 
数 ， 如 图 3-2 中 的 第 一 行 。 



































t = datenum(clock) 





图 3-2”M 文件 的 一 般 结构 


e。 HI 行 ， 这 是 帮助 文字 的 第 一 行 ( the first help text line )， 给 出 M 文件 帮助 最 关键 的 
信息 。 当 用 lookfor 查找 某 个 单词 相关 的 函数 时 ，lookfor 只 在 Hl 行 中 搜索 是 否 出 
现 指定 单词 ， 如 图 3-2 中 的 第 2 行 。 
。 帮助 文字 ， 这 部 分 对 M 文件 有 更 加 详细 的 说 明 ， 经 常 解释 M 文件 实现 的 功能 ，M 
文件 中 出 现 的 各 变量 、 参 数 的 意义 ， 以 及 创作 版 权 信息 等 。 如 图 3-2 中 的 第 13 行 。 
当 获取 一 个 M 文件 的 帮助 时 ，HI1 行 和 帮助 文字 部 分 同时 显示 。 
e。 M 文件 正文 ， 这 是 M 文件 实现 功能 的 MATLAB 代码 部 分 ， 通 常 包括 运算 、 赋 值 
等 指令 。 图 3-2 的 例子 中 只 有 第 16 行 ， 但 一 般 都 由 多 行 组 成 。 
。 注释 部 分 ， 这 部 分 出 现 的 位 置 比较 灵活 ， 主 要 是 用 来 注释 M 文件 正文 的 具体 运行 
过 程 ， 以 方便 阅读 和 修改 ， 经 常 穿插 在 M 文件 正文 中 间 。 
3-2 的 例子 中 的 第 15 行 就 是 注释 说 明正 文 第 16 行 的 意义 。 注 释 一 般 都 是 针对 接 下 
来 的 一 段 正 文 代码 的 ， 常 见 的 M 文件 中 也 经 常 包括 多 行 注释 。 
3，M 文件 的 创建 
虽然 一 般 脚 本 M 文件 可 以 包括 上 述 五 部 分 结构 中 除去 “函数 声明 行 ” 以 外 的 四 部 分 ， 
但 在 实际 应 用 中 ， 脚 本 M 文件 经 常 仅 仅 由 M 文件 正文 和 注释 部 分 构成 。 正 文部 分 实现 功 
能 ， 注 释 部 分 则 给 出 每 一 块 代码 的 功能 说 明 。 下 面 通过 实例 讲述 脚本 M 文件 的 创建 。 
M 文件 创建 实例 。 建 立 一 个 命令 文件 ， 将 变量 wc、5 的 值 互 换 。 
解 : 首先 打开 M 文件 编辑 器 ， 输 入 以 下 程序 : 
a=1:9; b=[11,12,13;14,15,16;17,18,191]; 
c=ai a=b; b=c) 


己 
了 了 
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然后 保存 文件 名 为 “31.m” 即 完成 了 文件 的 建立 。 
在 MATLAB 的 命令 窗口 中 输入 31， 将 会 执行 该 命令 文件 。 


PPD= 1 工 2 3 4 5 6 7 8 9 


函数 M 文件 的 命名 一 般 习 惯 和 函数 名 一 致 , 比如 图 3-2 中 函数 声明 行 fanction tnow0)， 
表明 函数 名 为 now， 因 此 此 函数 M 文件 一 般 保 存 为 now.m， 可 以 通过 nowO 语 句 调 用 该 文 
件 ; 否则 ， 如 果 函 数 名 和 文件 名 不 一 臻 时， 函数 调用 就 需要 通过 文件 名 和 与 函数 声明 中 对 
应 的 参数 列表 来 实现 。 

编写 好 的 函数 M 文件 ， 相 当 于 MATLAB 提供 的 命令 ， 可 以 在 命令 行进 行 函数 调用 。 
但 要 注意 ， 要 求 被 调用 的 函数 对 应 的 ,m 文件 必须 在 MATLAB 路 径 下 。 





和 各 种 常见 的 高 级 语言 一 样 ，MATLAB 也 提供 了 多 种 经 典 的 程序 结构 控制 语句 。 
MATLAB 中 的 程序 流程 控制 语句 有 : 分 支 控制 语句 ( 让 结构 和 switch 结构 )、 循 环 控制 语 
句 (for 循环 、while 循环 、continue 语句 和 break 语句 ) 和 程序 终止 语句 ( return 语句 )， 
下 面 分别 进 行 介绍 。 


1.， 程序 分 支 控制 语句 
分 支 语 句 可 以 使 程序 中 的 一 段 代 码 只 在 满足 一 定 条 件 时 才 执 行 ， 因 此 也 成 为 分 支 选 
择 。MATILAB 中 分 支 语句 有 两 类 : 让 语句 和 switch 语句 。 
。 这 与 else 或 elseif 连 用 , 偏向 于 是 非 选 择 , 当 某 个 逻辑 条 件 满足 时 执行 让 后 的 语句 ， 
否则 执行 else 语句 。 
。 switch 和 case、otherwise 连用 ， 偏 向 于 情况 的 列举 ， 当 表达 式 结果 为 某 个 或 某 些 值 
时 ， 执 行 特定 case 指定 的 语句 段 ， 否 则 执行 otherwise 语句 。 
迁 结构 的 语法 形式 如 下 所 示 ， 
if 1ogical_expression 
StLatements 
elseif 1ogical_expression 
SatementS 
elSse 1ogical_expressiocon 
SatermentS 
end 
其 中 elseif 和 else 语句 都 是 可 选 语 句 。 这 、elseif 和 else 构成 的 各 项 分 支 里 面 ， 哪 个 的 
条 件 满 足 ( 逻辑 表达 式 logical_expression 的 结果 为 真 ) ， 就 执行 哪个 分 支 后 面 紧 跟 的 程序 
语句 。 因 此 ， 各 个 分 支 条 件 满 足 的 情况 应 该 是 互 斥 的 和 完全 的 ， 就 是 被 选 的 条 件 在 一 个 分 
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支 中 成 立 ， 而 且 只 能 在 一 个 分 支 中 成 立 。 
当然 ,省略 了 elseif 和 else 分 支 的 语句 , 就 不 必要 求 分 支 条 件 满足 的 情况 具备 完全 性 了 。 
计 结 构 中 条 件 判断 除了 可 以 用 逻辑 表达 式 外 ， 还 可 以 用 数组 A， 这 时 判断 相当 于 逻辑 
表达 式 all(A)， 即 当 数 组 A 的 所 有 元 素 都 为 非 零 值 时 ， 才 执行 该 条 件 后 的 分 支 代码 。 
特别 地 ， 当 数组 A 为 空 数 组 时 ， 相 当 于 该 条 件 判 断 为 假 。 
Switch 结构 的 语法 形式 如 下 所 示 ， 


Switch expression (scalar or StLring) 
caSse Valuel 





Statements 当 EXecutes if expression 1s valuel 
case Value2 

StatementSs 多 Executes 1f expression is value2 
otherwise 

Statements 务 ExXecutes 1f expression does not 


gg match any case 
enQ 


执行 中 ， 先 计算 表达 式 expression 的 值 ， 当 结果 等 于 某 个 case 的 value 时 ， 就 执行 该 
case 紧 随 的 语句 。 如 果 所 有 case 的 value 都 和 expression 计算 结果 不 相等 , 则 执行 otherwise 
后 面 紧 随 的 语句 。 

otherwise 语句 是 可 选 的 ， 当 没有 otherwise 语句 时 ， 如 果 所 有 case 的 value 都 和 
expression 计算 结果 不 相等 ， 则 跳 过 switch-case 语句 段 ， 直 接 执行 后 续 代 码 。 

相等 的 意义 ， 对 于 数值 类 型 来 说 ， 相 当 于 判断 “if result 一 value"， 对 于 字符 串 类 型 来 
说 ， 相 当 于 判断 “这 strcmp(result,value)"。 

由 此 可 见 ，switch-case 语句 实际 上 可 以 被 计 elseif-else 语句 等 效 堆 换 ， 不 过 两 种 结构 
各 有 更 便利 的 地 方 ， 读 者 在 以 后 的 例子 中 会 逐渐 体会 到 。 

学 过 C 语言 的 读者 需要 注意 ，MATLAB 中 的 switch-case 结构 ， 只 执行 表达 式 结果 匹 
配 的 第 一 个 case 分 支 ， 然 后 就 跳出 switch-case 结构 。 因 此 ， 在 每 一 个 case 语句 中 不 需要 
用 break 语句 跳出 。 

在 一 条 case 详 句 后 可 以 列举 多 个 值 ， 只 需要 以 元 胞 数组 的 形式 列举 多 个 值 ， 就 是 用 花 
括号 把 用 去 号 或 空格 分 隔 的 多 个 值 括 起 来 即 可 。 

2. 程序 循环 控制 语句 

循环 控制 语句 能 够 使 得 某 段 程序 代码 多 次 重复 执行 ， MATLAB 中 提供 了 两 类 循环 语 
句 ， 分 别 是 for 循环 和 while 循环 : 

。 for 循环 一 般 用 在 已 知 循环 执行 次 数 的 情况 ; 

s while 循环 则 用 在 已 知 循环 退出 条 件 的 情况 。 

MATILAB 还 提供 了 continue 和 break 语句 ， 用 于 更 精细 地 控制 循环 结构 : 

。 continue 语句 使 得 当前 次 循环 不 向 下 执行 ， 直 接 进入 下 一 次 循环 

。 break 语句 则 是 退出 该 循环 。 
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(1 ) for 循环 
for 循环 用 于 知道 循环 次 数 的 情况 ， 其 语法 格式 如 下 所 示 : 
for inaqex = Statrt :increment :enda 


StLatemenS 
emnd 


index 为 循环 变量 , increment 为 增 量 , end 用 于 判断 循环 是 否 应 该 终止 。 增 量 increment 
软 认 值 为 1， 可 以 自由 设置 ， 当 增 量 为 正 数 时 ， 循 环 开 始 先 将 index 赋值 为 start， 然 后 判 
断 index 是 否 小 于 等 于 end。 若 是 ， 则 执行 循环 语句 ， 执 行 完 后 ， 对 index 累加 一 个 增 量 
increment; 再 判断 index 是 否 小 于 等 于 end， 若 是 ， 则 继续 执行 循环 语句 ， 继 续 对 index 累 
加 ， 循 环 往复 ， 直 到 index 大 于 end 时 退出 循环 。 

增 量 increment 也 可 以 设置 为 负 整 数 ,表示 每 次 循环 执行 后 对 循环 变量 index 进行 递减 ， 
当 index 小 于 end 时 ， 退 出 循环 。 

MATLAB 中 , 循环 的 执行 效率 很 低 , 提高 程序 效率 的 一 个 办 法 就 是 多 采用 数组 结构 和 
MATILAB 内 联 函 数 。 

for 循环 中 的 循环 变量 index 也 可 以 赋值 为 数组 A， 那 么 在 第 一 次 循环 中 index 就 被 赋 
值 为 A(;,1D)， 即 A 的 第 一 列 元 素 ， 第 二 次 循环 index 被 赋值 为 A(:,2)， 以 此 类 推 ; 若 A 有 
列 元 素 ， 则 循环 执行 站 次 ， 第 半 次 循环 时 ， 循 环 变量 index 被 赋值 为 AC,。 

(2 ) while 循环 
while 循环 用 于 已 知 循环 退出 条 件 的 情况 ， 其 语法 形式 如 下 所 示 : 
while expressiocn 


SatementS 
enaQ 


当 表达 式 expression 的 结果 为 真 时 ， 就 执行 循环 语句 ， 直 到 表达 式 expression 的 结果 
为 假 ， 才 退出 循环 。 
如 果 表 达 式 expression 是 一 个 数组 A， 则 相当 于 判断 all(A)。 特 别 地 ， 空 数组 则 被 当 
作 逻 辑 假 ， 循 环 停止 。 
(3 ) continue 语 印 
continue 语句 用 在 循环 中 ， 表 示 当 前 次 循环 不 再 继续 向 下 执行 ， 而 是 直接 对 循环 变量 
进行 递增 ， 进 入 下 一 次 循环 。 
(4) break 语句 
break 语句 用 于 退出 循环 。 


3. 程序 终止 控制 语 铝 
一 般 程 序 代 码 都 是 按 流程 执行 完毕 后 正常 退出 ， 但 当 遇 到 某 些 特殊 情况 ， 程 序 需要 立 
即 退 出 时 ， 就 可 以 用 return 语句 提前 终止 程序 运行 。 


return 语句 使 用 实例 。 
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CTeat 

CTLC 

Dn= 一 2 : 

IE mn<0 
Qisp('negative Dnumber1l ') : 
etUYDn 

emnq 

QisPp('coaqon after return') 


本 例 中 当 变 量 z 取 值 为 负数 时 ， 通 过 return 直接 退出 ， 不 执行 让 后 的 代码 。 其 运行 结 


negative nurperi 
若 去 掉 其 中 的 retur 语句 ， 则 运行 结果 变 为 : 


negative number1l 
codqon after return 


retur 语句 更 多 地 用 在 MATLAB 函数 M 文件 中 。 


MATLAB 中 的 函数 及 调用 





3.5.1 ”函数 类 型 


MATLAB 中 的 函数 可 以 分 为 匿名 函数 、M 文件 主 函 数 、 迄 套 函 数 、 子 函数 、 私 有 函 
数 和 重 载 函数 。 

1， 匿名 函数 

匿名 函数 通常 是 很 简单 的 函数 ， 它 是 面向 命令 行 代 码 的 函数 ， 通 常 只 由 一 句 很 简单 的 
声明 语句 组 成 。 

芽 名 函数 也 可 以 接受 多 个 输入 和 输出 参数 。 使 用 匿名 函数 的 优点 是 不 需要 维护 一 个 M 
文件 ， 而 只 需要 一 句 非常 简单 的 语句 ， 就 可 以 在 命令 窗口 或 M 文件 中 调用 函数 ， 这 对 于 
那些 函数 内 容 非 常 简单 的 情况 是 很 方便 的 。 

创建 匿名 函数 的 标准 格式 如 下 所 示 : 


fhanaQle = @(argGlist) expt 


其 中 ， 

1 ) “expr” 通 常 是 一 个 简单 的 MATLAB 变量 表达 式 ， 实 现 函 数 的 功能 ， 比 如 zx.^2、 
SinGO0).*cos(O0) 等 ; 

2 ) “arglist” 是 参数 列表 ， 它 指定 函数 的 输入 参数 列表 ， 对 于 多 个 输入 参数 的 情况 ， 
通常 要 用 喜 号 分 隔 各 个 参数 ; 

3 ) 符号 “@” 是 MATLAB 中 创建 函数 句柄 的 操作 符 ， 表 示 对 由 输入 参数 列表 arglist 
和 表达 式 expr 确定 的 函数 创建 句柄 ， 并 把 这 个 函数 句柄 返回 给 变量 fhandle， 这 样 ， 以 后 
就 可 以 通过 fhandle 来 调用 定义 好 的 这 个 函数 。 
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例如 定义 函数 : 
myfunhd=G(X) (X+X. .^2) 


表示 创建 了 一 个 匿名 函数 ， 它 有 一 个 输入 参数 x， 它 实现 的 功能 是 xz+x.^2， 并 把 这 个 
函数 句柄 保存 在 变量 “myfunhd” 中 ， 以 后 就 可 以 通过 “myfunhd(a)” 来 计算 当 “x=a” 的 
时 候 的 函数 值 。 

需要 注意 的 是 ， 匿 名 函数 的 参数 列表 arglist 中 可 以 包含 一 个 参数 或 多 个 参数 ， 这 样 调 
用 的 时 候 就 要 按 顺 序 给 出 这 些 参数 的 实际 取 值 。 

但 arglist 也 可 以 不 包含 参数 ， 即 留 空 ， 这 种 情况 下 调用 函数 时 还 是 需要 通过 fhandle0 
的 形式 来 调用 ， 即 要 在 函数 句柄 后 紧 跟 一 个 空 的 括号 。 否 则 ， 只 显示 fhandle 句柄 对 应 的 
函数 形式 。 

芽 名 函数 可 以 侯 套 ， 即 在 expr 表达 式 中 可 以 用 函数 来 调用 一 个 匿名 函数 句柄 。 


匿名 函数 创建 实例 。 


>> InyfnhQ1=QG@ (X) (X+X.^2) 

myfnal = 三 @(X) (x+X.^ 人 2) 

>> myfhal (2) 

amnS 二 6 

>> myfhd2=@e(x,y) (Sin(Xx)+cos(y) ) 

myfthdq2 = G@(X,y) (sin(Xx)+cos(y) ) 

>> Imyfha2 (Pi/2, pi/6) 

ans 一 1.8660 

>> myfhdq3=@() (3+2) 

myfhaq3 = 三 Q@()(3+2) 

>> Imyfthd3 () 

anmngs 二 5 

>> myfthaq3 

myfhaq3 = G@()(3+2) 

>> myffhdq=e(a) (quad(e(x) (a.xx.^2+1./a.x*x+l./a^2),0,1)) g% 匿 名 函数 骨 套 使 用 
myffha = G@(a) (GuadQ(G@(X) (a.x*xX.^2+1./a.xx+l./a^2)，0,1)) 
>> myffhd(0.5) 

anmSs 二 5.1667 


匿 名 函数 可 以 保存 在 .mat 文件 中 ， 上 例 中 就 可 以 通过 “save myfunquad.mat myffhd” 
把 匿名 函数 句柄 "myffhd" 保存 在 “myfunquad.mat" 文件 中 , 以 后 需要 用 到 匿名 函数 “myffhd” 
时 ， 只 需要 使 用 语句 “load myfunquad.mat myffhd” 就 可 以 了 。 


2.M 文件 主 函 数 

每 一 个 函数 M 文件 第 一 行 定 义 的 函数 就 是 M 文件 主 函 数 , 一 个 M 文件 只 能 包含 一 个 
主 函 数 ， 并 通常 习惯 上 将 M 文件 名 和 M 文件 主 函 数 名 设 为 一 致 。 

M 文件 主 函 数 的 说 法 是 针对 其 内 部 内 套 函数 和 子 函 数 而 言 的 。 一 个 M 文件 中 除 
了 一 个 主 函 数 外 ,还 可 以 编写 多 个 财 套 函数 或 子 函 数 ， 以 便 在 主 函数 功能 实现 中 进行 
调用 。 
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3.， 铸 套 函数 

在 一 个 函数 内 部 ， 可 以 定义 一 个 或 多 个 函数 ， 这 种 定义 在 其 他 函数 内 部 的 函数 就 被 称 
为 嵌 套 函数 。 艇 套 可 以 多 层 发 生 ， 就 是 说 一 个 函数 内 部 可 以 伐 套 多 个 函数 ， 这 些 颈 套 函 数 
内 部 又 可 以 继续 嵌 套 其 他 函数 。 

媒 套 函数 的 书写 语法 格式 如 下 所 示 : 


function x = A(Pp1，Pp2) 
function y = B(DP3) 
emnda 


endQ 


一 般 函 数 代码 中 结尾 是 不 需要 专门 标明 “end” 的 ， 但 在 使 用 风 套 函数 时 ， 无 论 谍 套 
函数 还 是 嵌 套 函数 的 父 函 数 ( 直接 上 一 层 函 数 ) 都 要 明确 标 出 “end” 表 示 函 数 结束 。 
嵌 套 函数 的 互相 调用 需要 注意 和 九 套 的 层次 密切 相关 ， 如 在 下 面 一 段 代码 中 ， 


function RARA(X，Y) g 外 层 函 数 &A ( 例如 主 函 数 ) 
B(X，Y) 
DOY) ， 
function 也 (X，Y 
CI(X) ; 
DY) ， 
function C(x) sg%B 的 嵌 套 函数 ( 以 RA 为 参照 可 以 称 为 第 二 层 妃 套 函 数 )，Cc 的 父 函 数 为 B 
D(X) : 
endQ 


%A 的 嵌 套 函数 ( 以 A 为 参照 可 以 称 为 第 一 层 侯 套 函 数 ) B 的 父 函 数 为 和 


emndQ 
function D(X) gA 的 妮 套 函数 ( 以 A 为 参照 可 以 称 为 第 一 层 伐 套 函 数 ) D 的 父 函 数 为 入 
一 (X) ， 


function BE(x) 8gD 的 嵌 套 函数 ( 以 A 为 参照 可 以 称 为 第 二 层 合 套 函 数 ), E 的 父 函 数 为 D 
ena 
endQ 
enQ 


1 ) 外 层 的 函数 可 以 调用 向 内 一 层 直接 岩 套 的 函数 ( A 可 以 调用 B 和 D ) ， 而 不 能 调 
用 更 深层 的 骨 套 范 数 ( A 不 可 以 调用 C 或 E) ; 

2 ) 符 套 函数 可 以 调用 与 自己 具有 相同 父 函 数 的 其 他 同 层 谎 套 函数 (B 和 了 D 可 以 互相 
调用 ); 

3 ) 花 套 函数 也 可 以 调用 其 父 函 数 或 与 父 函 数 具 有 相同 父 负 数 的 其 他 和 套 函数 (C 可 以 
调用 B 和 了 D )， 但 不 能 调用 与 其 父 函 数 具 有 相同 父 函 数 的 其 他 嵌 套 函数 内 深层 藤 套 的 函数 。 


4. 子 函 数 
一 个 M 文件 只 能 包含 一 个 主 函 数 ， 但 一 个 M 文件 中 可 以 包含 多 个 函数 ， 这 些 编写 在 
主 函 数 后 的 函数 都 称 为 子 函数 。 所 有 子 函 数 只 能 被 其 所 在 M 文件 中 的 主 函 数 或 其 他 子 函 
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数 调 用 。 

所 有 子 函数 都 有 自己 独立 的 声明 和 帮助 、 注 释 等 结构 ， 只 需要 在 位 置 上 处 在 主 函 数 之 
后 即 可 ， 而 各 个 子 函数 的 前 后 顺序 都 可 以 任意 放置 ， 和 被 调用 的 前 后 顺序 无 关 。 

M 文件 内 部 发 生 函数 调用 时 ，MATLAB 首先 检查 该 M 文件 中 是 否 存在 相应 名 称 的 子 
函数 ， 然 后 检查 这 一 M 文件 所 在 目录 的 子 目 录 下 是 否 存在 同名 的 私有 函数 ， 然 请 流 归 
MATLAB 路 径 检 查 是 否 存在 同名 的 M 文件 或 内 部 函数 。 

根据 这 一 顺序 ， 函 数 调用 时 首先 查找 相应 的 子 函数 ， 因 此 ， 可 以 通过 编写 同名 子 函 数 
的 方法 实现 M 文件 内 部 的 函数 重 载 。 

子 函 数 的 帮助 文件 也 可 以 通过 help 命令 显示 ， 如 myfun.m 文件 中 有 名 为 myfun 的 主 

函数 和 名 为 mysubfun 的 子 函数 ， 那 么 可 以 通过 help myfun>mysubfun 多 命令 来 获取 子 函数 
mysubfun 的 帮助 。 


5， 私有 函数 

私有 函数 是 具有 限制 性 访问 权限 的 函数 , 它们 对 应 的 M 文件 需要 保存 在 名 为 private 
的 文件 夹 下 ， 这 些 私有 函数 代码 编写 上 和 普通 的 函数 没有 什么 区 别 ， 也 可 以 在 一 个 M 文 
件 中 编写 一 个 主 函 数 和 多 个 子 函 数 ， 以 及 峰 套 函数 。 

但 私有 函数 只 能 被 private 目录 的 直接 父 目 录 下 的 脚本 M 文件 或 M 文件 主 函 数 调 用 。 

通过 help 命令 获取 私有 函数 的 帮助 ， 也 需要 声明 其 私有 特点 ， 例 如 要 获取 私有 函数 
myprifun 的 帮助 ， 就 要 通过 help private/myprivfun 命令 。 
6. 重 载 函 数 

“ 重 载 ” 是 计算 机 编程 中 非常 重要 的 概念 ， 它 经 常用 在 处 理 功能 类 似 但 参数 类 型 或 个 
数 不 同 的 函数 编写 中 。 

例如 现在 要 实现 一 个 计算 功能 ， 一 种 情况 下 输入 的 几 个 参数 都 是 双 精 度 浮 点 类 型 ， 同 
时 也 有 一 种 情况 是 ， 输 入 的 几 个 参数 都 是 整 型 变量 ， 这 时 候 ， 用 户 就 可 以 编写 两 个 同名 函 
数 ， 一 个 用 来 处 理 双 精度 浮 点 类 型 的 输入 参数 ， 另 一 个 用 来 处 理 整 型 的 输入 参数 ， 这 样 ， 
当 用 户 实 际 调用 函数 时 ，MATLAB 就 会 根据 实际 传递 的 变量 类 型 选择 执行 其 中 一 个 函数 。 

MATLAB 中 重 载 函 本 通常 文件 夹 名 称 以 符号 @ 开 头 ， 然 
后 跟 一 个 代表 MATLAB 数据 类 型 的 字符 。 

例如 “@double” 由 录 的 重 才 函数 的 输入 参数 应 该 是 双 精 度 浮 点 型 ， 而 “@int32 
目录 下 的 重 载 函数 的 输入 参数 应 该 是 32 位 整 型 。 


3.5.2 ”函数 参数 传递 


MATLAB 中 通过 M 文件 编写 函数 时 ， 只 需要 指定 输入 和 输出 的 形式 参数 列表 ， 只 是 
在 函数 实际 被 调用 的 时 候 ， 才 需要 把 具体 的 数值 提供 给 函数 声明 中 给 出 的 输入 参数 。 

MATLAB 中 参数 传递 过 程 是 传 值 传递 ， 也 就 是 说 ， 在 函数 调用 过 程 中 ，MATLAB 将 
传 入 的 实际 变量 值 赋 给 形式 参数 指定 的 变量 名 ， 这 些 变 量 都 存储 在 函数 的 变量 空间 中 ， 这 
和 工作 空间 变量 空间 是 独立 的 ， 每 一 个 函数 在 调用 中 都 有 自己 独立 的 函数 空间 。 
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例如 编写 函数 : 


function y=myftun(x,y,zZ) 


在 命令 窗口 通过 a = myfun(3, 2, 0.$) 调 用 此 函数 , 那么 MATLAB 首先 会 建立 myfun 函 
数 的 变量 空间 ,把 3 赋值 给 x， 把 2 赋值 给 》， 把 0.5 赋值 给 z， 然 后 执行 函数 实现 的 代码 ; 
在 执行 完毕 后 ,把 myfun 函数 返回 的 参数 y 的 值 传递 给 工作 空间 变量 a, 调用 过 程 结 束 后 ， 
函数 变量 空间 被 清除 。 
1. 输入 和 输出 参数 的 数目 

MAILAB 的 函数 可 以 具有 多 个 输入 或 输出 参数 。 通常 在 调用 时 ， 需 要 给 出 和 函数 声明 
语句 中 一 一 对 应 的 输入 参数 ;而 输出 参数 个 数 可 以 按 参数 列表 对 应 指定 ， 也 可 以 不 指定 。 
不 指定 输出 参数 调用 函数 时 ,MATLAB 默认 把 输出 参数 列表 中 第 一 个 参数 的 值 返回 给 工作 
空间 变量 “ans "。 

MATLAB 中 可 以 通过 nargin 和 nargout 函数 确定 函数 调用 时 实际 传递 的 输入 和 输出 参 
数 个 数 , 结合 条 件 分 支 语 句 , 就 可 以 处 理 函 数 调用 中 指定 不 同 数 目的 输入 输出 参数 的 情况 。 


显示 函数 输入 和 输出 参数 的 数目 实例 。 


function [yl1,Yy2]=mytestnio(xL,X2) 
E margin= 一 -1 
YL=X1:， 
工 E_nargout 一 2 
Y2=X1; 
end 
else 
守 E Pargout 一 1 
YJ1=X1+X2 ， 
elSse 
Y1=X1 
Y2=X2 : 
end 
end 


这 个 函数 可 以 处 理 一 个 或 两 个 输入 参数 、 一 个 或 两 个 输出 参数 的 情况 。 当 只 有 一 个 输 
入 参数 xl 和 一 个 输出 参数 ?1 时 ， 把 xl 赋值 给 y1， 当 有 1 个 输入 参数 zl 和 两 个 输出 参数 
yL 22 时, 把 xl 赋值 给 y1 和 办 ; 当 有 两 个 输入 参数 xl1、x2 和 一 个 输出 参数 y1 时 , 把 xl+x2 
的 计算 结果 赋值 给 y>1; 当 有 两 个 输入 参数 xI、 达 和 两 个 输出 参数 1、 闪 时 ， 把 xl 赋值 
给 y1， 并 把 达 赋值 给 闪 。 函 数 调用 结果 如 下 所 示 ; 


>> X=mytestniol(5) 


X 三 5 
>> [xy]=mytestnio(5) 
X 二 5 
Y 三 9 


>> mytestnio(5) 
amns 一 5 
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>> X=rmytestniol(5,，7) 


区 三 12 

>> [xx,y]=mytestnio(5,，7) 
X 三 5 

Y 三 7 

>> mytestnio(5，7) 

ans 三 5 


指定 了 输入 和 输出 参数 个 数 的 情况 比较 好 理解 ， 只 要 对 应 函数 M 文件 中 对 应 的 这 分 
支 项 即 可 ， 而 不 指定 输出 参数 个 数 的 调用 情况 ，MATLAB 是 按照 指定 了 所 有 输出 参数 的 
调用 格式 对 函数 进行 调用 的 ,不 过 在 输出 时 只 是 把 第 一 个 输出 参数 对 应 的 变量 值 赋 给 工作 
空间 变量 ans。 

例如 “mytestnio($,7)” 这 名 函数 调用 中 ， 实 际 上 是 按照 “[Dy1，72]=mytestnio(xz1，x2) 
这 种 形式 调用 的 ， 在 函数 变量 空间 中 xl 被 赋值 为 5，z2 被 赋值 为 7，?y1 计算 结果 为 5， 六 
计算 结果 为 7， 但 函数 只 把 输出 参数 列表 中 第 一 个 输出 变量 ( 即 y1 ) 的 取 值 返回 给 工作 空 
间 变 量 ans， 因 此 ，ans 取 值 为 S。 
2 可 变数 目的 参数 传递 

函数 nargin 和 nargout 结合 条 件 分 支 语 句 ， 可 以 处 理 可 能 具有 不 同 数目 的 输入 和 输出 参 
数 的 函数 调用 ， 但 这 要 求 对 每 一 种 输入 参数 数目 和 输出 参数 数目 的 组 合 分 别 进行 代码 编写 。 

有 些 情况 下 , 用户 可 能 并 不 能 确定 具体 调用 中 传递 的 输入 参数 或 输出 参数 的 个 数 , 即 具 
有 可 变数 目的 传递 参数 ，MATLAB 中 可 以 通过 varargin 和 varargout 函数 实现 可 变数 目的 参 
数 传递 ， 使 用 这 两 个 函数 对 于 处 理 具 有 复杂 的 输入 输出 参数 个 数组 合 的 情况 也 是 便利 的 。 

函数 varargin 和 varargout 把 实际 的 函数 调用 时 传递 的 参数 值 封装 成 一 个 元 胞 数组 ,， 因 
此 ， 在 函数 实现 部 分 的 代码 编写 中 ， 就 要 用 访问 元 胞 数组 的 方法 访问 封装 在 varargin 或 
varargout 中 的 元 胞 或 元 胞 内 的 变量 。 


可 变数 目的 参数 传递 实例 。 


function y=mytestvario(varargiDn) 

emp=0 

for 1i=1:1ength(vararginy) 
temp=tempb+mean(vararginfIy(:)) 

endQ 

Yy=tempb/length (varargin) 


本 例 中 的 函数 mytestvario 以 varargin 为 输入 参数 ,从 而 可 以 接受 可 变数 目的 输入 参数 。 
函数 实现 部 分 首先 计算 了 各 个 输入 参数 ( 可 能 是 标量 、 一 维 数 组 或 二 维 数组 ) 的 均值 ， 然 
后 计算 这 些 均 值 的 均值 。 亩 用 结果 如 下 所 示 : 

>> mytestvario(4) 


ans 三 4 
>> mytestvario(4,， [1 3]) 


ans 三 3 
>> mytestvariol(4, [1 3]，[1 23;123 1],magic(4) ) 
amngS 二 6.6250 
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对 于 “mytestvario(4,[1 3],[1 23;23 1],magic(4))” 这 句 函 数 调用 , 在 函数 变量 区 ,varargin 
首先 被 赋值 为 一 个 元 胞 数组 “{4,[1 3],[1 23;23 1],magic(4)}”， 即 varargin 有 工行 4 列 个 元 
胞 ， 各 个 元 胞 中 分 别 存 储 了 一 个 标量 数值 、 一 维 行 数 组 、2 行 2 列 的 二 维 数组 和 4 行 4 列 
的 魔方 数组 ; 在 函数 实现 部 分 ， 首 先 创 建 中 间 变 量 ttmp， 并 初始 化 赋值 为 零 ( 用 来 存储 各 
个 元 胞 中 数据 均值 的 总 和 ) ， 然 后 计算 每 一 个 元 胞 中 所 有 数据 的 均值 并 将 结果 累加 到 temp 
上 ， 最 后 通过 “y=-temp/length(varargin)” 计 算 这 些 均值 的 均值 。 

函数 varargin 和 varargout 也 可 以 放置 在 参数 列表 中 某 些 必然 出 现 的 参数 之 后 , 其 语法 
格式 有 如 下 几 种 形式 。 

1 ) function [outl, out2] = examplel(a, pb, varargin)， 表 示 函 数 examplel 可 以 接受 大 于 等 
于 两 个 输入 参数 ， 返 回 两 个 输出 参数 ;两 个 必 选 的 输入 参数 是 c 和 bp， 其 他 更 多 的 输入 参 
数 被 封装 在 varargin 中 。 

2 ) function [i, j, varargout] = example2(x, 疙 ， 表 示 函 数 example2 接受 两 个 输入 参数 x 
和 y》， 返 回 大 于 等 于 两 个 输出 参数 ， 前 两 个 输出 参数 为 和,j 疡 其 他 更 多 的 输出 参数 封装 在 
varargin 中 。 

函数 varargout 和 varargin 的 用 法 类 似 , 只 需要 注意 访问 时 应 按照 访问 元 胞 数组 的 方法 ， 
这 里 就 不 再 举例 了 。 

3. 返回 被 修改 的 输入 参数 

MAITLAB 函数 有 独立 于 MATLAB 工作 空间 的 自己 的 变量 空间 ， 因 此 ， 输 入 参数 在 函 
数 内 部 的 修改 都 只 具有 和 函数 变量 空间 相同 的 生命 期 ， 如 果 不 指定 将 修改 后 的 输入 参数 值 
返回 到 工作 空间 ， 那 么 在 函数 调用 结束 后 这 些 修改 后 的 值 将 被 自动 清除 。 


函数 内 部 的 输入 参数 修改 实例 。 


function Y=mytest (X) 
X=X+D 
Y=X*27 


本 例 中 的 mytest 函数 内 部 ， 首 先 修改 了 输入 参数 * 的 值 ( =x+5 )， 然 后 以 修改 后 的 x 
的 值 计 算 输 出 参数 》 的 值 ( y=x#x2 )。 调 用 结果 如 下 所 示 : 
>> X=3 


文 三 3 
>> Y=mytest (X) 


yY 三 16 
>> 六 
X 三 3 


由 此 结果 可 见 ， 调 用 结束 后 ， 函 数 变量 区 中 的 x* 在 函数 调用 中 被 修改 ， 但 此 修改 只 在 
函数 变量 区 有 效 ， 这 并 没有 影响 到 MATLAB 工作 空间 变量 空间 中 的 变量 x 的 值 。 函 数 调 
用 前 后 ，MATLAB 工作 空间 中 的 变量 * 始终 取 值 为 3。 

那么 , 如 果 用 户 希 望 函数 内 部 对 输入 参数 的 修改 也 对 MATLAB 工作 空间 的 变量 有 效 ， 
就 需要 在 函数 输出 参数 列表 中 返回 此 输入 参数 。 
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对 于 本 例 中 的 函数 ， 则 需要 把 函数 修改 为 “function [yz]=mytestCo0”， 而 在 调用 时 也 要 
通过 “[y,z= mytestoo)” 这 种 形式 。 


函数 参数 传递 实例 。 将 修改 后 的 输入 参数 返回 给 MATLAB 工作 空间 。 


functjion [y,x]=mynewtest (X) 


X=X+5 ; 

Y=X*21， 

MATLAB 工作 空间 中 的 调用 结果 如 下 所 示 ; 
>> X=3 

X 三 3 


>> [y,xX]=mynewtest (X) 


Y 三 16 
文 二 8 
Z> 又 

X 二 8 


通过 本 例 可 见 ， 函 数 调用 后 ，MATLAB 工作 空间 中 的 变量 x 取 值 从 3 变 为 8 ( 3+5 ) ， 
可 见 通过 [yz=mynewtest0o90 调 用 ， 实 现 了 函数 对 MATLAB 工作 空间 变量 的 修改 。 
4. 全 局 变量 

通过 返回 修改 后 的 输入 参数 ， 可 以 实现 函数 内 部 对 MAITLAB 工作 空间 变量 的 修改 。 
而 另 一 种 殊途同归 的 方法 则 是 使 用 全 局 变量 。 声 明 全 局 变量 需要 用 到 global 关键 词 ， 语 法 
格式 为 “global variable"。 

通过 全 局 变量 可 以 实现 MATLAB 工作 空间 变量 空间 和 多 个 函数 的 函数 空间 的 共享 ， 
这 样 ， 多 个 使 用 全 局 变量 的 函数 和 MATLAB 工作 空间 共同 维护 这 一 全 局 变量 ， 任 何 一 处 
对 全 局 变量 的 修改 ， 都 会 直接 改变 此 全 局 变量 的 取 值 。 

在 应 用 全 局 变量 时 ， 通 常 在 各 个 函数 内 部 通过 global variable 语句 声明 ， 在 命令 窗口 
或 脚本 M 文件 中 也 要 先 通过 global 声明 ， 然 后 进行 赋值 和 调用 。 


全 局 变量 使 用 实例 。 


function Yy=myprocess (X) 
gGLobal 了 

T=Tx2 

Yy=exXp (T) *xS]Dn(X) ; 


在 命令 窗口 中 声明 全 局 变量 然后 赋值 调用 


>> 9l1opbal 了 


>> T=0.3 

了 三 0.3000 

>> Ityprocess (Pi7V2) 
ans 三 1 .8221 

>> exp(T)*sin(PIV2) 
ans 二 1.8221 

>> 了 
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了 三 0.6000 


通过 本 例 可 见 ， 用 global 将 T 声明 为 全 局 变量 后 ,函数 内 部 对 T 的 修改 也 会 直接 作用 
到 MATLAB 工作 空间 中 。 函 数 myprocess 调用 一 次 后 ，T 的 值 从 0.3 变 为 0.6 ( 0.3x*2 ) 。 


函数 句 栖 


函数 句柄 实际 上 提供 了 一 种 间接 调用 函数 的 方法 。 创 建 函数 句柄 需要 用 到 操作 符 @。 
前 面 已 经 讲 过 ， 匿 名 函数 实际 上 就 是 一 种 函数 句柄 ， 而 对 MATLAB 提供 的 各 种 M 文件 
函数 和 内 部 函数 ， 也 都 可 以 创建 函数 句柄 ， 从 而 可 以 通过 函数 句柄 对 这 些 函 数 实现 间接 
调用 。 

函数 句柄 的 优点 如 下 ， 
1 ) 方便 地 实现 函数 间 互 相 调用 
2 ) 兼容 函数 加 载 的 所 有 方式 ; 
3 ) 拓宽 子 函 数 ， 包 括 局 部 函数 的 使 用 范围 
4 ) 提高 函数 调用 的 可 靠 性 ; 
5 ) 
6 ) 





减少 程序 设计 中 的 元 余 ; 
提高 重复 执行 的 效率 。 
创建 函数 句柄 的 一 般 语 法 格式 如 下 所 示 : 


fhanaQale=efunction_ fileame 


其 中 ， 

“funciont_filename” 是 函数 所 对 应 的 M 文件 的 名 称 或 MATLAB 内 部 函数 的 名 称 ; 

“@ ”是 句柄 创建 操作 符 ; 

“fbandle” 变量 保存 这 一 函数 句柄 。 

例如 fhandle=@sin 就 创建 了 MATLAB 内 部 函数 sin 的 句柄 ， 并 将 其 保存 在 fhandle 变 
量 中 ， 以 后 就 可 以 通过 fhandle(Oo) 来 实现 sin(o) 的 功能 。 

通过 承 数 句柄 调用 函数 时 ， 也 需要 指定 函数 的 输入 参数 ， 比 如 可 以 通过 fhandle(arg1， 
arg2，.…, argm) 这 样 的 调用 格式 来 调用 具有 多 个 输入 参数 的 函数 。 对 于 那些 没有 输入 参数 的 
函数 ， 在 使 用 句柄 调用 时 ， 要 在 句柄 变量 后 加 上 空 的 圆 括 号 ， 即 fhandleO。 


函数 句柄 创建 和 调用 实例 。 


>> fha=esin 

fhad = QGsin 

>> X=0:0.25xpI:2xpiy; 

>> fha(xy) 

ans = 0 0.7071 1.0000 0.7071 0.0000 -0.7071 -1.0000 -0.7071 
-0.0000 


MATLAB 中 提供 了 丰富 的 处 理 函 数 句柄 的 函数 ， 如 表 3.1 所 示 。 


( 
( 
( 
( 
( 
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表 3.1 ”处理 函数 句柄 的 函数 

















functions(fhandle) 二 司 一 个 结构 体 ， 存 储 了 函数 的 名 称 ， 函 数 类 型 ( 简单 函数 或 重 载 函数 )， 以 及 函 
数 M 文件 的 位 置 

func2str(fhandle) 上 和 转换 为 函数 名 称 字 符 串 

supfuncGst | 函数 转换 为 函数 句柄 

















save filename.mat fhandle 将 函数 句柄 保存 在 .mat 文件 中 

load filename.mat fhandle 把 .mat 文件 中 存储 的 函数 句柄 装载 到 工作 空间 
isa(var 'function_handle) 检测 变量 var 是 不 是 函数 句柄 
isequal(fhda,fhdb) 检测 两 个 函数 句柄 是 否 对 应 于 同一 个 函数 
feval(fhandle) 调用 函数 句柄 fhandle 


处 理 函 数 句柄 的 函数 使 用 实例 。 


>> fhaa=QexP 
fnhaa = QexPp 
>> fnhdp=emyProcess 





























fnapb 一 QGmyDProcesSS 
>> functions (fnhab) 
ans = function: 'myprocesSs'， 


type: ' Simple' 
file: 'D:NMATLAB71NworKNMATLABbookANEX-10NmYProceSSs .Im 
>> Isalfhda,，'function handle ' ) 





angS 三 工 
>> lsequal (fhdaa, fnhaqp) 
amns 二 0 


MATLAB 程序 调试 





MATLAB 程序 出 错 主要 为 以 下 两 类 : 
e。 格式 错误 ， 如 缺 〈 : 或 “) 等 ,在 运行 时 可 检测 出 大 多 数 该 类 错误 ， 并 指出 错 在 
哪 一 行 。 
e。 算法 错误 ， 逻 辑 上 的 错误 ,不易 查 找 ， 遇 到 此 类 错误 时 需 耐心 。 一 般 可 考虑 如 下 方法 : 
> 删除 句 尾 分 号 ， 显 示 中 间 结 
> 在 适当 位 置 加 上 keyboard 语句 ， 使 程序 暂停 ; 
> 在 函数 定义 行 之 前 加 上 色 ， 注 释 掉 ， 使 之 变 成 脚本 语言 ; 
> 使 用 MATLAB 调试 器 ， 设 置 断 点 ， 或 单 步 执行 ， 使 用 一 些 调试 和 分 析 工 具 。 
下 面 讲述 程序 调试 的 一 些 工 具 及 调试 方法 ， 熟 练 掌握 并 运用 这 些 工 具 及 调试 方法 ， 能 
提高 编程 的 效率 。 


3.7.1 ”调试 方法 


MATLAB 程序 有 直接 调试 法 和 工具 调试 法 这 两 种 调试 方法 。 
52 > 入 入 
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(1) 直接 调试 法 

直接 调试 法 就 是 在 M 文件 中 ， 将 某 些 语句 后 面 的 分 号 去 掉 ， 亿 使 M 文件 输出 一 些 中 
间 计 算 结 构 ， 以 便 发 现 可 能 的 错误 。 常 用 的 做 法 有 : 

1 ) 在 适当 位 置 ， 添 加 显示 某 些 关键 变量 值 的 语句 

2 ) 利用 echo 指令 ， 使 运行 时 在 屏幕 上 逐 行 显示 文件 内 容 ，echo on 能 显示 M 脚本 文 
件 ，echo FunName On 能 显示 名 为 FunName 的 M 函数 文件 ; 
3 ) 在 原 M 脚本 或 函数 文件 的 适当 位 置 ， 添 加 指令 keyboard，keyboard 语句 可 以 设置 

程序 的 断 点 ; 

4 ) 通过 将 原 M 函数 文件 的 函数 声明 行 注释 掉 ， 可 使 一 个 中 间 变 量 难于 观察 的 M 函数 

文件 变 为 一 个 所 有 变量 都 保存 在 基本 工作 空间 中 的 M 脚本 文件 。 
(2 ) 工具 调试 法 

工具 调试 法 就 是 在 程序 中 设置 一 些 断 点 ， 利 用 调试 菜单 ( Debug ) 中 的 一 些 选项 进行 
调试 。 

Debusg 菜单 用 于 程序 调试 ， 需 要 与 Breakpoints 菜单 项 配合 使 用 。MAILAB 7 的 Debug 
菜单 中 的 菜单 项 介绍 如 下 。 

e。 Open M-Files when Debugging:， 用 于 调试 时 打开 M 文件 。 

。 Step， 用 于 单 步 调试 程序 。 

e。 Step im: 用 于 单 步调 试 进入 子 函数 。 

e。 Step Out: 用 于 单 步调 试 从 子 函 数 跳 出 。 

e。 Continue:， 程序 执行 到 下 一 断 点 。 

e Clear Breakpoints in All Files:， 清除 所 有 打开 文件 中 的 断 点 。 

。 Stop 过 Errors/Warnings: 在 程序 出 错 或 报警 处 停止 往 下 执行 。 

se。 Exit Debug Mode: 退出 调试 模式 。 

除了 采用 调试 器 调试 程序 外 , MATLAB 还 提供 了 一 些 命令 用 于 程序 调试 。 命 令 的 功能 
和 调试 器 菜单 命令 类 似 。MATLAB 提供 的 调试 命令 介绍 如 下 。 

。 快捷 键 F10， 实 现 单 步调 试 。 

e。 快捷 键 F11， 用 于 单 步 调试 进入 子 函 数 。 

。 快捷 键 ShiftrFI11: 用 于 单 步调 试 从 子 函 数 跳 出 。 

e 快捷 键 F3: 实现 程序 执行 到 下 一 断 点 。 

MATLAB 提供 了 进行 代码 调试 和 代码 分 析 优 化 的 工具 ， 这 些 工 具 ， 一 般 的 MATLAB 
用 户 都 应 该 有 所 了 解 。 尤其 是 断 点 调试 部 分 的 内 容 , 建议 读者 尽量 以 自己 的 程序 代码 为 例 ， 
多 加 练习 ， 熟 练 掌握 。 


3.7.2 ”调试 工具 


当 完 成 MATLAB 代码 编写 后 , 用 户 就 可 以 在 命令 窗口 中 运行 代码 ( 脚本 或 函数 文件 )。 
对 于 比较 简单 的 代码 ， 一 般 只 要 编程 习惯 较 好 ， 都 可 以 一 次 通过 。 但 对 于 很 多 比较 复杂 的 
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情况 ， 或 者 用 户 初学 MATLAB 编程 ， 一 些 常见 的 错误 还 不 能 避免 ， 就 容易 在 运行 时 出 现 
错误 。 这 时 候 ， 就 需要 利用 MATLAB 的 调试 工具 对 出 现 错误 的 代码 进行 调试 纠 错 。 

MATLAB 的 代码 编辑 调试 器 是 一 个 综合 了 代码 编写 、 调 试 的 集成 开发 环境 。MATLAB 
代码 调试 过 程 ， 主 要 是 通过 MATLAB 代码 编辑 -调试 器 的 Debug 菜单 下 的 子 项 进行 的 ， 如 
图 3-3 所 示 。 











图 3-3 MATLAB 代码 编辑 -调试 器 的 Debug 菜单 


De 菜单 下 各 子 项 的 含义 介绍 如 下 。 
) Step， 在 调试 模式 下 ， 执 行 M 文件 的 当前 行 ， 对 应 的 快捷 键 是 F10。 
2 Im: 在 调试 模式 下 ， 执 行 M 文件 的 当前 行 ， 如 果 M 文件 当前 行 调 用 了 另 一 
函数 ， 那 么 进入 该 函数 内 部 ， 对 应 的 快捷 键 是 Fll。 
3 ) Step Out: 当 在 调试 模式 下 执行 Step Im 进入 某 个 函数 内 部 之 后 ， 执 行 Step Out 可 
以 完成 函数 剩余 部 分 的 所 有 代码 ， 并 退出 函数 ， 暂 停 在 进入 函数 内 部 前 的 M 文件 所 在 行 


末尾 。 

4) Run: 运行 当前 M 文件 ， 快 捷 键 是 F5， 当 前 M 文件 设置 了 断 点 时 ， 运 行 到 断 点 处 
暂停 。 

5 ) Go Until Cursor， 运 行当 前 M 的 行 尾 。 

需要 注意 ， 以 上 这 些 调 斌 项， 除了 Run ! ， 都 需要 首先 在 M 文件 中 设置 断 点 ， 


然后 运行 到 断 点 位 置 后 ， 六 此 调 荆 项 才 可 启用 。 
6 ) SeUClear Breakpoint:， 在 光标 所 在 行 开 头 设 置 或 清除 断 点 。 
7 ) SeUModify Conditional Breakpoint.…: 在 光标 所 在 行 开 头 设置 或 修改 条 件 断 点 ， 选 
择 此 子 项 ,会 打开 “条 件 断 点 设置 对 话 杠 ， 如 图 3-4 所 示 ， 用 于 设置 在 满足 什么 条 件 时 ， 
此 处 断 点 有 效 。 











SS 
3 
， 





图 3-4 “条 件 断 点 设置 ”对 话 框 
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8 ) Enable/Disable Breakpoint: 将 当前 行 的 断 点 设置 为 有 效 或 无 效 。 

9 ) Clear Breakpoints in All Files: 清除 所 有 M 文件 中 的 断 点 。 

10 ) Stop 这 ErrorsWarnings...: 设置 出 现 某 种 运行 错误 或 警告 时 ， 停 止 程序 运行 ， 选 
择 此 子 项 ， 会 打开 “错误 /警告 设置 ”对 话 框 ， 如 图 3-$。 
































0 


图 3-5 设置 出 现 某 种 运行 错误 或 警告 则 停止 程序 运行 











11 ) Exit Debug Mode， 退出 调试 模式 。 

上 面 逐 项 讲述 了 Debug 菜单 下 每 一 个 子 项 的 意义 ， 实 际 上 ， 很 多 子 项 都 有 对 应 的 快捷 
工具 按钮 。MAILAB 代码 编辑 -调试 器 中 ， 如 图 3-6 所 示 的 部 分 工具 按钮 就 是 用 于 M 文件 
调试 的 。 

3-6 中 的 各 个 工具 按钮 ,从 左 向 右 依次 对 应 于 SeyClear | 
Breakpoint、Clear Breakpoints in All Files、Step、Step In、Step 图 3-6 “调试 工具 按钮 
Out、Run、Exit Debug Mode 等 菜单 子 项 。 

通常 的 调试 过 程 是 : 先 运行 ( Run ) 一 遍 M 文件 ， 针 对 具体 的 出 错 信息 ， 在 适当 的 地 
方 设 置 断 点 或 条 件 断 点 ， 再 次 运行 (Run ) 到 断 点 位 置 ( 如 图 3-7 所 示 )， 此 时 MATLAB 
把 运行 控制 权 交 给 键盘 ， 命 令 窗口 出 现 “K>>” 提 示 符 ( 如 图 3-8 所 示 )， 此 时 可 以 在 命令 
窗口 中 查询 M 文件 运行 过 程 中 的 所 有 变量 ， 包 括 函 数 运行 时 的 中 间 变 量 。 运 行 到 断 点 位 
置 后 ， 用 户 可 以 选择 “Step/Step Into/Step Out” 等 调试 运行 方式 ， 逐 行 运行 并 适时 查询 变 
量 取 值 ， 从 而 逐渐 找到 错误 所 在 并 排除 。 
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利和 用 全 和 不 相 下 全 BE 基 本 汉人 
ClLear 
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为 Gefaie 主人 3TLaEe 到 ch 3 SB 二 吕 





mark= 上 
Yehechk wether 1 is aa Brane huanter 
4 for j2:i~1 
， - 
if mod(i, j)==0 和 





图 3-7 ”设置 断 点 后 运行 ( Run ) 到 断 点 所 在 位 置 
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图 3-8 调试 模式 时 MATLAB 命令 窗口 把 控制 权 交 给 键盘 


3.7.3 ”M 文件 分 析 工 具 


通过 Debug 项 对 M 文件 进行 调试 的 过 程 ， 可 以 对 文件 中 的 编写 错误 和 运行 错误 进行 
纠正 。 完 成 了 调试 过 程 后 ， 用 户 编写 的 M 文件 就 可 以 正确 地 运行 了 。 但 可 能 运行 效率 还 
不 是 最 优 ， 这 就 需要 通过 MATLAB 提供 的 分 析 工 具 对 代码 进行 分 析 ， 然 后 针对 性 地 进行 
优化 。 

MATLAB 提供 的 M 文件 分 析 工 具 包括 M-Lint 工具 和 Profiler 工具 ， 它 们 都 有 图 形 操 
作 界 面 ， 使 用 简单 方便 ， 是 MATLAB 程序 分 析 优 化 的 必用 工具 。 


M-Lint 分 析 工 具 
M-Lint 工具 可 以 分 析 用 户 M 文件 中 的 错误 或 性 能 问题 。 用 户 可 以 先 在 代码 编辑 -调试 器 
中 打开 待 分 析 的 M 文件 , 然后 选择 Tools 菜单 下 的 Check Code with M-Lint 项 , 如 图 3-9 所 示 。 














%E3nd the FIIm 
舟 C 上 克 aF 二 办 WRT| 
ClLear 


名 resNt ace the Prxme Sbers， 


遇 e 太 28 及 YaEISDEE WiTCE 1 US3 六 广 本 gt whether 1 1 和 站 ze Thber 
了 arK=1 ; 
checg whether ii apPFlRe raambsr 
for j=2:1-1 
证 modfiy j)==0 
ark=0i 
break 
end 
end 
攻 3dd 六 2 Famber to TestGTt 
1 更 ark==1 


result=[result i] 


end 
end 


TeSULt 





图 3-9 通过 Tools 菜单 打开 M-Lint 工具 
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图 3-9 所 示 中 的 代码 是 查找 10 ~ 1000 之 内 所 有 素数 的 M 文件 ， 它 的 脚本 如 下 所 示 。 


gsFindq the prime Dumbers between 10 ana 1000 
sclear the workspPace 
Cear 
gresult save the Prime mumbers ， 
reSsult=[]: 
当 for 一 Loop 
for 1i=10:1000 
sqefine a Variable which is used to mark whether 1 is a brime number 
marKk=1; 
gcCheck whether 1 is aa Prime numpber 
for Jj=2 :1 一 1 
it moq (, 林 ) 一 0 
marKk=0; 
Peak 
endQ 
enQ 
gsadqd Prime Dumber to result 
工 IarK= 一 1 
reSult=[result II] ; 
enaQ 
enqQ 
goutPUt 
zeSsul]t 


运行 M-Lint 工具 后 结果 如 图 3-10 所 示 。 











Repen forfle DAMMATLAB71Yyworkforfunkmyprime.m 


多 本 本 天 本 2 Tominate statanant ith sanicolon to suppross output. 





图 3-10“M-Lint 分 析 结 果 


从 图 3-10 可 以 看 出 , M-Lint 分 析 完 成 后 , 会 返回 一 个 浏览 IN Check 
Report )， 要 M 福全 以 及 若干 个 分 析 结 果 ( 如 图 3-10 所 示 中 的 
1 message 表示 只 有 一 条 分 析 结 果 )。 分 析 结 果 的 格式 是 “ 行 号 : 知 训 到 关公 人 

M-Lint 分 析 结 果 中 双 3 出现 的 呈 训 吉 间 题 报 告 包 括 : 没有 以 分 号 结束 以 阻止 中 间 变 量 
输出 ， 变 量 在 文件 中 从 没有 被 其 他 语句 调用 ， 以 及 循环 过 程 中 数组 尺寸 会 增加 等 。 

实际 上 ，M-Lint 分 析 得 到 的 问题 报告 ， 并 不 一 定 必须 消除 该 问题 ， 而 是 要 具体 问题 具 
体 分 析 。 当 用 户 认 可 某 一 条 分 析 结 果 时 ， 可 以 点 击 分 析 结果 中 的 行 号 ， 就 可 以 快捷 打开 相 
应 的 M 文件 并 定位 到 该 行 ， 用 户 就 可 以 方便 地 修改 代码 了 。 
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MLLint 不 仅 可 以 分 析 单个 M 文件 ， 还 可 以 分 析 一 个 文件 夹 下 的 所 有 M 文件 。 通 常 在 
MATLAB 主 界面 下 ， 选 择 “Desktop” 菜 单 下 的 “Current Directory"， 则 可 以 显示 文件 夹 面板 ， 
通过 单 击 此 面板 顶部 的 “M-Lint" 工具 则 可 以 分 析 相 应 文件 夹 下 的 所 有 M 文件 , 如 图 3-11 所 示 。 





国 Exo912.m NEfiie 1 KE 

















图 3-11 当前 目录 画板 和 M-Lint 按钮 


3.7.4_pProfiler 分 析 工 具 






































Profiler 工具 是 MATLAB 提供 的 另 一 个 功能 强大 的 代码 分 析 工 具 。 使 用 时 ， 用 户 可 以 
提前 在 代码 编辑 调试 器 中 打开 M 文件 ， 然 后 选择 “Tools” 菜 单 下 的 “Open Profiler ”项 ， 
就 可 以 运行 Profiler 分 析 工 具 ，Profiler 图 形 界面 如 图 3-12 所 示 。 








| Profller forimproving Performance 


| Dne way to Improve the performance of your Miles is using profling tools MATLAB provides the Mrfle Profler 3 graphical user 
， interface that is based on tha rasults returmed by the pzofile 和 nction Use the Profler to hslp you determine wheme you can 
modify your code to make perormance mprovements 


j For details on how lo use tne Profller, see the Prafler docurnantaiion 





图 3-12 ”Profiler 工具 图 形 界 面 


单 击 图 3-12 中 所 示 的 “Start Profiling” 按 钮 ， 就 可 以 分 析 此 M 文件 ， 分 析 结 果 如 图 
3-13 所 示 。 









1 

fy 

| Generated 人 9Mer2006 2 48.41 Using real ine 
， 


Fangiion taig: 2 Petnm ， 汪 EL 了 neot 
， bande ang 
， ae 1 0062s .0 062 ”ED 
- : es 
ay (Builtnfunctiom 1 0 S 1 0 000s 
4 
上 


Selftme ethe lme spent nafnetion axcluding the ume spentinits chid functone_ Selftime alsa ineudes overhead resulting 
from tha process of profling | 








图 3-13 ”Profiler 分 析 结 
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从 图 3-13 可 见 ，Profiler 分 析 结 果 给 出 了 调用 函数 名 称 、 调 用 次 数 、 消 耗 总 时 间 等 信 
息 。 单 击 图 3-13 中 蓝 色 的 “myprime"， 可 以 打开 关于 此 M 文件 的 更 加 详细 的 分 析 报 告 ， 
如 图 3-14 所 示 。 





























ypPrire 1 ca 6982 SeGy 

Generated 19-War-2006 2351 41 USing realthme， 

M-script in 和 e 水 MATLAB71TAWworkferummyprimem 
; [Copy tp new window for compaiing multiple runs. 





了 Show parent functions 忱 Show busy lines 肯 Show child functions 
这 Show M-Lint results 。 耽 Show file coverage 辽 Show function listing 


Children (called functionsy 


机 Lint results 


Parents (calling functions) 
; No barent 
Lines where the most time was spent 
二 ne 人 regBF ; Code Calls al Ti 的 下 me Te 及 lot 4 
也 if mod De 78008 0017 。 27.5% 。 国 到 。 
1 ; 攻 
驻 Yesult 1 0.015s 24.2% 一 国王 
什 iter is2irl 991 0001s 13% 1 3 
全 iand 77181 0000s ;07 名 1 二 
3 :remltc0: 1 :000s 00% ， ， 
Cither lines & oYyerhead ; 0029 s 46.236 “ED 了 2 
To 。 0628 100% 虽 
上 
1 





图 3-14 更 详细 的 Profiler 分 析 结 


图 3-14 所 示 的 更 详细 的 Profiler 分 析 结 果 中 显示 了 myprime.m 文件 运行 中 最 消耗 时 间 
的 部 分 及 其 具体 耗 时 信息 。 用 户 可 以 有 针对 性 地 修改 那些 最 消耗 时 间 的 部 分 。 

一 般 来 说 ， 应 该 尽量 避免 不 必要 的 变量 输出 、 循 环 赋值 前 预定 义 数组 尺寸 ， 多 采用 向 
量化 的 MATLAB 函数 ， 少 采用 数组 ， 这 些 都 能 够 提高 MATLAB 程序 的 运行 性 能 。 


MATLAB 程序 设计 技巧 





MATLAB 是 一 种 科学 计算 语言 ,但 同时 也 具有 和 C、FORTRAN 等 高 级 语言 相 类 似 的 
语言 特征 , 能 方便 地 实现 程序 控制 利用 MATLAB 的 程序 控制 功能 , 可 以 将 有 关 MATLAB 
命令 编 友 程序 存储 在 一 个 文件 中 ( M 文件 )， 然 后 运行 该 文件 ，MATLAB 就 会 自动 依次 执 

行文 件 中 的 命令 ， 直 到 全 部 命令 执行 完毕 。 

编程 时 ， 首 拓 要 考虑 到 变量 初 信 或 者 粳 类 型 改变 时 | 程序 的 应 对 能 力 ， 即 程序 的 鲁 
棒 性 ， 因 此 出 色 的 程序 要 具有 较 好 的 例外 处 理 机 制 。 此 外 ， 还 要 考虑 程序 的 执行 效率 。 

一 些 编程 技巧 能 提高 程序 的 执行 效率 ， 因 此 ， 掌 握 一 些 MATLAB 的 编程 技巧 也 是 非 
常 必 要 的 ， 下 面 对 常 用 的 MATLAB 编程 技巧 进行 介绍 。 


3.8.1 ” 赃 套 计算 
一 个 程序 的 执行 速度 取决 于 它 所 调用 的 子 程序 个 数 以 及 采用 的 算法 。 通 常 希 望 子 程序 
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越 少 越 好 ， 算 法 效率 越 高 越 好 。 
艇 套 计 算是 一 种 具有 较 小 时 间 复 杂 度 的 算法 ， 如 【 例 3-11 】 所 示 。 


九 套 计算 与 直接 求 值 的 比较 实例 。 考 虑 下 面 两 个 多 项 式 ， 其 中 式 ( *# ) 为 
式 (* ) 的 伐 套 表达 式 ， 


Pi= at 二 aax2 上 ax 十 C0 (六 ) 
P1(xz) =((a3x+a2)x+aGI)X 二 +a0 ( 半 汶 ) 
易 知 式 (* ) 和 式 ( ## ) 所 需要 的 乘法 数 分 别 为 : 6 次 和 3 次 。 显 然后 者 具有 更 高 的 执 
行 效率 。 
下 面 用 具体 程序 进行 说 明 ， 创 建 函 数 ex03110。 


function ex03111() 





N = 100000; 
aa = [1:N]; 
X = 1 
cic gs 初始 化 时 钟 
D1 = Sum(a.xx.^[N-1:-1:0]); g% 按 照 (* ) 求 值 
P1， toc gs 时 钟 停止 ， 获 得 执行 时 间 
Lic， P2=a(1) 
for 二 = 2:N s 骸 套 计算 (** ) 
p2 = P2xXx 十 忆 (IL) 
end 
DP2， toc 
tlic， p3 = polyval (a，x)， toc s 用 MATLRAB 自 带 函数 求 值 


运行 函数 ， 输 出 结果 如 下 所 示 : 


PP1 = 5.0001e+009 
ElJapseaQ time is 0.035852 secondqs . 
p2 = 5.0001e+009 
ElLapsed time 1 0.005543 seconas . 
p3 = 5.0001e+009 
ElapseaQ time 1s 0.088367 seconads . 


可 见 ， 弦 套 算法 耗 时 最 少 。 而 用 polyval 求 值 执行 速度 最 慢 。 
采用 娩 套 算法 不 仅 能 够 提高 执行 效率 ， 而 且 此 方法 具有 更 强 的 解决 问题 的 能 力 ， 下 面 
的 实例 可 以 说 明 这 个 问题 


黎 套 计算 与 非 怠 套 计 算 的 比较 实例 。 求 possion 分 布 的 有 限 项 和 ， 形 如 : 





F=0 12! 
由 概率 论 知 识 可 知 ， 光 六 很 习 守 ， 上 式 的 值 趋 近 于 1。 
分 别 用 式 (* ) 和 式 ( ## ) 来 求解 ， 创 建 函 数 ex03120。 


function ex03121() 
工 = 三 80:; 
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M = 160; 

DP = exp ( 王 ) ; 

S1 =0; 

for K = 1:M 
Dp=pxr/K; g 奶 套 , 式 (**) 
S1=S1+P 

eDnQ 

S1 

S2= 0 

for KK = 工 :M 
D = 工 ^Kk/factorial(Kk) ， g 非 风 套 , 式 (*) 
S2 =3S2 二 了 P; 

enQ 

S2xexp(-T) : 

S2 

运行 函数 ， 输 出 结果 如 下 所 示 : 

S1 = 1.0000 

S2 = 5.5406e+034 


由 结果 可 知 ， 艇 套 方 法 的 结果 非常 接近 真实 值 ， 而 非 嵌 套 的 方法 根本 无 法 得 到 正确 的 
结果 。 


3.8.2 ”循环 计算 


循环 计算 可 按照 给 定 的 条 件 , 重复 执行 指定 的 语句 。MATLAB 用 于 实现 循环 计算 的 语 
名 有 for 语句 和 while 语句 。 

对 于 循环 的 使 用 需要 注意 以 下 几 点 。 

( 工 ) 尽量 避免 使 用 循环 。 在 MATLAB 编程 中 ， 采 用 循环 会 降低 程序 的 执行 速度 ， 应 
尽量 避免 使 用 ， 可 以 用 其 他 方式 ， 如 向 量 运算 等 代替 。 

(2) 为 了 得 到 最 大 的 速度 ， 在 for 循环 被 执行 之 前 ， 应 预先 分 配 数 组 。 否 则 ， 在 for 
循环 内 每 执行 一 次 命令 ， 对 数组 重新 分 配 一 次 内 存 ， 这 样 会 降低 MATLAB 的 执行 效率 。 

(3 ) 优先 考虑 内 联 (inline ) 函数 ， 和 天 阵 运算 应 该 尽量 采用 MATLAB 的 内 联 函 数 ， 
为 内 联 函 数 是 由 更 底层 的 编程 语言 C 语言 构造 的 , 其 执行 速度 显然 快 于 使 用 循环 的 和 矩阵 运 
算 。 

(4) 应 用 MEX 按 术 。 尽 管 采用 了 很 多 措施 ， 但 执行 速度 仍然 很 慢 ， 比 如 说 耗 时 的 循 
环 是 不 可 避免 的 ， 这 样 就 应 该 考虑 用 其 他 语言 ， 如 C 或 FORTRAN 语言 。 按 照 MEX 技术 
要 求 的 格式 编写 相应 部 分 的 程序 ， 然 后 通过 编译 连接 ， 形 成 在 MATLAB 中 可 以 直接 调用 
的 动态 链接 库 ( DLL ) 文件 ， 这 样 可 以 显著 地 加 快运 算 速 度 。 有 关 MEX 技术 及 其 应 用 的 
详细 内 容 可 参考 相关 书籍 。 


3.8.3 ”使 用 例外 处 理 机 制 
优秀 的 程序 员 能 够 指导 用 户 如 何 使 用 他 编写 的 程序 ， 而 且 在 用 户 使 用 不 当时 ， 能 够 给 
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出 错误 提示 信息 ， 并 引导 用 户 正确 使 用 函数 。 前 面 编写 的 一 些 程序 都 没有 相应 的 错误 处 理 
机 制 ， 如 函数 ex0313， 其 输入 应 大 于 零 ， 当 输入 小 于 零 时 会 得 到 错误 的 结果 。[ 例 3-13 ]】 
给 出 了 这 样 的 实例 。 


例外 处 理 机 制 使 用 实例 。 用 户 输入 错误 的 函数 参数 时 的 例外 处 理 ， 给 函数 
ex0313 输入 错误 的 参数 ， 如 下 所 示 ; 

>> ex0313 (一 1 ) 
ElLapsedQ time is 0.000017 seconqaas . 

m 三 工 

显然 错误 的 结果 是 由 于 用 户 不 清楚 函数 参数 的 取 值 范 围 导 致 的 。 这 种 错误 由 于 并 不 影 
响 程 序 的 运行 ， 因 而 很 难 被 发 现 。 所 以 程序 员 在 编程 时 , 应 当 考 虑 到 可 能 发 生 的 此 类 错误 ， 
并 给 出 处 理 错误 的 机 制 和 错误 提示 信息 。 

对 上 例 ， 如 果 用 户 输入 了 错误 的 参数 ， 可 以 采用 下 面 语 句 终止 程序 ， 并 提示 出 错 。 


1fE D<0 





ertor (input must be positive，stoppedq ' ) ; 
enaQ 


此 时 ， 再 执行 上 面 的 命令 的 结果 如 下 所 示 ; 

>> exX0313 ( 开 ) 

?2??3 Error USIng 一 > ex0313 

input must be Positive，stopped 

这 种 错误 多 数 都 是 由 于 越界 造成 的 ， 尤 其 在 使 用 和 矩阵 时 ， 要 注意 引用 天 阵 位 置 不 要 超 
过 它 的 边界 。 

另外 ， 如 果 用 户 输 入 的 函数 参量 超过 设 定 的 最 大 个 数 ， 或 者 类 型 不 合 要 求 也 会 出 现 这 
种 错误 。 

但 一 般 而 言 , 对 于 输入 参量 小 于 设 定 个 数 的 情形 , MATLAB 内 置 程序 一 般 会 对 未 赋值 

参量 作 软 认 处 理 。 典 型 的 例子 是 plot(Z, 六 函数 ，plot( 功 默认 的 和 坐标 是 [0, 1 2...] 序 列 。 

程序 员 在 编写 程序 的 时 候 也 应 当 注 意 处 理 这 种 情况 。 采 用 nargin 函数 可 以 判断 输入 参 

量 的 个 数 ， 从 而 设 定 未 被 指定 的 输入 参数 的 值 或 者 直接 报错 。 


nargin 函数 应 用 实例 。 利 用 nargin 函数 ， 实 现 两 个 多 项 式 的 相 加 ， 并 具有 
一 定 的 报错 功能 。 


写 函 数 ex0314。 
function p=ex0314(a，Db) g% 求 多 项 式 a，b 和 P 
if nargin 一 1 g% 输 入 参数 个 数 为 1， 另 一 个 默认 参数 为 全 0 向 量 


b=zeros (4，1)， 
elseif nargin 一 0 


ertror( cempty inputr')， g% 输 入 参数 个 数 为 0， 报错 


a=al(:).' ;bpb=b(:).， 


62 wp 知 条 


第 呆 章 MATLAB 程 序 设 计 基础 


na=length(a) ; Dnb=lengtnh(pb) : 
p=[zeros(1，nb-na) al+[zeros(1，na-nb) b]; g% 多 项 式 相 加 


在 MATLAB 命令 窗口 中 输入 正确 的 参数 ， 调 用 该 函数 ， 输 出 正确 的 结果 ， 如 下 所 示 : 


>> a=[1 2 3 4]:; 
>> ex0314(a) 


amS 一 工 2 3 4 
在 MATLAB 命令 窗口 中 输入 错误 的 参数 ， 调 用 该 函数 ， 输 出 报错 结果 ， 如 下 所 示 : 
>> exXx03141() 


?2?2? Error using = 一 > ex0314 
epLY Input 


可 见 , 用 户 输入 参数 不 合 要 求 时 , 会 作 默认 处 理 或 报错 , 使 得 程序 具有 更 强 的 适应 性 。 


3.8.4 ”使 用 全 局 变量 


全 局 变量 是 指 在 不 同 的 工作 空间 以 及 基本 的 工作 空间 中 可 以 共享 的 变量 。 用 户 只 需要 
在 主 程序 或 者 任何 子 程序 中 声明 一 个 或 多 个 全 局 变量 ， 则 函数 和 主 程 序 中 都 可 以 直接 引 
用 它们 ， 采 用 如 下 格式 生成 全 局 变量 。 


gG1Lopbal V1L V2..VDn 


表达 式 中 各 变量 之 间 用 空格 隔 开 。 

使 用 全 局 变量 时 要 注意 以 下 几 点 。 

( 1 ) 它 可 以 在 主 程序 和 函数 之 间 不 需要 经 过 输入 或 输出 变量 直接 传递 数据 。 但 要 注意 
0 调用 结束 后 全 局 变量 在 工作 空间 中 仍然 存在 。 

) 两 个 或 多 个 函数 也 可 以 共有 一 个 全 局 变量 ， 只 要 同时 在 这 些 函数 中 用 global 语句 
hn 定义 妈 可 ， 

( 3 ) 使 用 全 局 变量 时 必须 十 分 小 心 ， 最 好 把 全 局 变量 名 取得 长 一 些 或 全 部 用 大 写 ， 以 
免 与 函数 中 的 局 部 变量 重 名 。 如 果 重 名 ， 容 易 出 现 致命 错误 。 所 以 ， 使 用 全 局 变量 不 是 一 
个 好 的 编程 方法 。 

4 ) 一 旦 变量 被 声明 为 全 局 的 ， 则 在 任何 声明 它 的 地 方 都 可 以 对 它 进 行 修改 。 这 在 一 
定 程度 上 破坏 了 子 程序 的 独立 性 。 如 果 全 局 变量 被 多 个 子 程序 修改 ， 则 用 户 很 难 知道 全 局 
变量 的 确切 值 ， 这 使 得 程序 的 可 读 性 大 大 下 降 。 

下 面 用 实例 进行 说 明 全 局 变量 的 用 法 。 


全 局 变量 使 用 实例 。 本 例 用 以 说 明 全 局 变量 的 声明 及 函数 传递。 


建立 子 程序 ex031$.m 和 主 程序 ex031Smain.m， 同 时 在 子 程序 ex0315$.m 以 及 主 程 序 
ex031$main.m 中 定义 全 局 变量 九 ， 具 体 程 序 如 下 所 示 : 


function X = ex0315 (七 ，D) 
Global D % 声 明 全 局 变量 
kt(finalt 一 0)) = eps; g% 防 止 分 母 出 现 0 项 
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X= Sin(pixt/D)./ (Pixt/VD) ; 
function ex0315main()g 主 函数 


Global D 
D=2; 
bp1 = 一 2); 
bp2 = 2:; 


二 = pl +[0:100]/100*(b2 一 bl): 
g% 通 过 全 局 变量 传递 参数 

Dlot (t， ex0315(t) ) 

本 程序 运行 结果 如 图 3-15 所 示 。 


1 
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图 3-1$ 【 倒 3-15 】 输 出 结 


如 果 在 子 程序 ex0315 中 修改 全 局 变量 的 值 ， 则 变量 声明 时 即 对 其 进行 赋值 。 例 如 将 
ex0315 中 的 声明 语句 改 为 :global D=1， 则 运行 后 可 得 图 3-16 所 示 结 果 。 
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图 3-16 【 例 3-15 】 中 全 局 变量 在 子 程序 中 被 修改 的 输出 结果 





显然 ，ex0315 中 对 全 局 变量 的 赋值 覆盖 了 ex031$main 中 的 赋值 ， 但 这 种 修改 在 主 程 
序 中 却 不 能 得 到 反映 。 如 果 主 程序 和 子 程序 不 是 同一 个 程序 员 编 写 ， 几 乎 很 难 找到 结果 与 
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程序 不 符合 的 原因 。 不 过 ， 在 使 用 全 局 变量 时 ，MATLAB 会 给 出 如 下 的 警告 信息 ， 提 示 用 
户 注 意 全 局 变量 是 否 在 其 他 地 方 被 修改 ， 

Warning: The value of local variables may have been changed to match the globals. Future 
versions of MAILAB will require that you declare a variable to be global before you use that 


variable. 
3.8.5 通过 varargin 传递 参数 


在 编写 函数 时 varargin 只 能 作为 函数 的 最 后 一 个 参量 ， 主 要 传递 函数 中 调用 的 子 函 数 
中 可 选项 的 参数 ， 其 大 小 也 随 着 输入 参量 的 变化 而 发 生 改 变 。 


通过 varargin 传递 参数 的 实例 。 该 实例 实现 在 不 同 输入 参数 时 对 函数 
ex0315 的 作 图 ， 其 中 通过 varargin 传递 可 选 参数 。 


分 别 编写 主 程序 ex0316.m 和 作 图 程序 ex0316plotm。 


function ex0316()  % 主 程序 。 通 过 varargin 传递 可 选 参数 

D = 1 bl = -2;b2 = 2; 

ft = bl+[0:100]7/100x(b2 - D1) ; 

pounas = [bl b2]: 

Subplot (1,3,1)， ex0316plor('ex0315') ， g% 作 出 x 的 函数 图 ，bouds 为 默认 值 [-1,1] 
axis([bl b2 -0.4 1.2]) 

subpplot (1,3/2)， ex0316plot ('ex0315' ,bounds)g 输 入 两 参数 ， 作 [-2,2] 上 x 函数 图 
axis([bl b2 -0.4 1.21]) 

Subplot (1,3,3)，ex0316plot ('ex0315' ,boundqs,D)  g% 可 选项 输入 为 1 

axis([bl b2 -0.4 1.21]) 

function ex0316p1ot (ftn,bounads,varargin) 


g 子 程序 。varagin 为 可 选 变量 ， 输 入 时 可 以 不 考虑 











If Pargin < 2 
bounas = [-1 1]:， sbounads 默认 为 [-1,1] 

enaQ 

bl = bounds (1); b2 = bounaqs(2) ; 

tt=bl+ [0:100]/100x(b2 - bl)， 

X = feval (ftn,， 七 ，varargjinf:))， 

D1lLot (七 , 葡 ) 

运行 主 程序 ， 输 出 结果 如 图 3-17 所 示 。 

对 于 一 个 具有 多 输入 参量 的 程序 ,传统 的 方法 是 针对 所 有 可 能 出 现 的 输入 情况 进行 处 
理 。 上 例 对 应 了 3 种 输入 参量 情况 ， 即 输入 参量 个 数 分 别 为 1、2、3 的 情况 。 普 通 处 理 方 
法 是 利用 证 elseif -else 结构 对 其 进行 处 理 。 当 变量 很 多 时 ， 该 方法 过 于 烦琐 。 

由 于 varargin 本 身 可 以 根据 输入 参数 个 数 的 变化 自动 调节 大 小 ， 因 此 ， 在 调用 具有 多 
个 可 选 参数 的 子 程序 的 过 程 中 使 用 时 ， 可 以 大 大 简化 程序 。 
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1.2 1.2 1.2 
1 1 1 
0.8 0.8 0.8 
0.6 0.6 0.6 
0.4 0.4 0.4 
0.2 0.2 0.2 
0 0 0 
-0.2 -0.2 -0.2 
4 0 0042 0 2 4 0 2 











所 3-17 varargin 函数 传递 参数 





本 章 围绕 数值 计算 介绍 了 MATLAB 程序 设计 的 基础 知识 , 包括 MATLAB 的 基本 操作 
和 编程 技巧 ， 这 些 都 是 后 面 内 容 的 基础 。 

MATLAB 拥有 众多 的 内 置 函 数 ， 学 习 MATLAB 时 ， 读 者 不 要 试图 完全 记 住 或 者 掌握 
它们 ， 需 要 学 会 使 用 help、lookfor 等 命令 查找 所 需 的 命令 或 函数 。 

在 编号 MATLAB 程序 , 尤其 是 大 型 、 复 杂 的 MATLAB 程序 时 , 要 多 从 用 户 角 度 考 虑 ， 
力求 让 程序 的 例外 处 理 机 制 完美 ， 具 有 更 好 的 可 读 性 ， 但 同时 也 要 考虑 算法 的 执行 效率 ， 
找到 这 两 方面 的 一 个 较 好 的 平衡 。 
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和 矩阵 特征 值 计算 

数值 微分 

数值 积分 

方程 求 根 

非 线 性 方程 组 求解 
解 线性 方程 组 的 直接 法 
解 线性 方程 组 的 迭代 法 
随机 数 生成 

特殊 函数 计算 

常 微分 方程 的 初 值 问题 
偏 微分 方程 的 数值 解法 
数据 统计 和 分 析 
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插值 是 函数 逼近 的 一 种 重要 方法 ， 是 数值 计算 的 基本 课题 。 插 值 是 一 种 求 函 数 近似 值 
的 方法 ， 针 对 某 个 插值 点 x， 用 插值 节点 关上 的 已 知 值 fx) 组 合生 成 foo 的 近似 值 。 最 
简单 的 播 值 法 是 多 项 式 插 值 法 , 本 章 介 绍 的 几 种 插值 法 中 , 基本 上 是 以 多 项 式 插 值 法 为 主 ， 
只 不 过 它们 的 构造 方法 各 自 不 同 ， 从 而 它们 的 误差 和 代数 精度 也 不 同 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 插值 算法 ， 而 且 还 能 熟练 使 用 MATLAB 编程 来 实 
现 这 些 算法 。 





拉 格 朗 日 插值 法 是 基于 基 函 数 的 插值 方法 ， 播 值 多 项 式 可 表示 为 ， 
LDO= 冯 LO 
1=0 
其 中 70D 称 为 ; 次 基 函 数 ， 
(一 X0) (XXX 一 Xp 一 和 


人 一 如) (下 一 天 -一 2 (一 各) 
则 一 般 离 散 数 据 (z,y) = 0,12,…,z 的 拉 格 朗 日 播 值 多 项 式 如 下 : 
忆 (一 20) (一 AT) 一 Hp(X 一 ) 
元 一 证 一 ii””””rrrrrrrrrrrrrrrr 
9 守 交 = 宝 CD 人 


很 容易 验证 它 满足 插值 条 件 。 
加 本 二 二 六 天 矶 1 RN 二 ET 本 一 


(= 


功能 : 求 已 知 数据 点 的 拉 格 朗 日 播 值 多 项 式 
调用 格式 ， 尼 f0] = Language (xyx0) 





其 中 ，x; 已 知 数据 点 的 x 坐标 向 量 ， 
y; 已 知 数据 点 的 y 坐标 向 量 ， 
x0: 插值 点 的 x 坐标 ; 
f:， 。 。 求 得 的 拉 格 朗 日 插值 多 项 式 ; 
[| 妈 各 多 的 甬 值 。 | 
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function ft = Language (X,Y,X0) 


g 求 已 知 数据 点 的 拉 格 朗 日 播 值 多 项 式 
g 已 知 数据 点 的 x 坐标 向 量 : x 
g% 已 知 数据 点 的 y 坐标 向 量 : y 
g 播 值 点 的 x 坐标 : x0 
g% 求 得 的 拉 格 朗 日 插值 多 项 式 : 于 
g x0 处 的 插值 ，f0 
SymS 七 ; 
if(length(x) 一 lengthlty)) 
nm = TIengtnh(X) ; 





elSe 
disp('x 和 Yy 的 维 数 不 相等 ! ') ; 
etucn7 


enq s 检 错 


1 = lx(t-x(j))/(x(i)-x(])); gs 计算 拉 格 朗 日 基 函 数 
cnQ:; 
E= 上 +1' gs 计算 拉 格 朗 日 播 值 函数 
Simplifty(ft): g% 化 简 
endQ 
f0 = subs(f,，'t',xXO0); g 计 算 插 值 点 的 函数 值 


拉 格 朗 日 插值 法 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 拉 格 朗 日 插值 多 项 式 ， 
并 计算 当 x=1.6 时 y 的 值 。 










0 0.4794 0.8415 0.9975 0.9093 0.S985 0.1411 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 





>> X=0:0.95:3; 

>> Y=[ 0 0.4794 0.8415 0.9975 0.9093 0.5985 0.1411]: 

>> [f,f0]=Language(x,yy,1.6) gs 计算 输出 的 拉 格 朗 日 插值 多 项 式 

f =-5397851692524477/2111062325329920x* 七 x (七 一 1 )* (tt--372)x (2)x(t-5S/2)* (七 一 3 ) 十 
3789648413623927713377699720527872x*tx(t 一 LV72)x( 人 tt-372)x(t2)x(t-5/2)x* (3) 一 8984 
636099947915/5066549580791808xtx (tt-LV2)x*(tL-1)x(tL-2)x(t-572)x*(t-3)+4095111552 
62310917/3377699720527872xtx (七 -1V2)x(t-1)x(t-372)x(tL-572)x(tLt-3)-67381973129455 
/211106232532992xftrx (七 -17V2)x(t-1)x(t-372)x(t-2)*x(t-3)+10168768251407037810647 
93292668928*tx(t172)x (一 1) (七 -372)x* (七 -2)* (LE-572) 
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g% 计 算 x=1.6 时 的 插值 输出 值 f0 

f0 = 0.9996 

表格 中 的 数据 点 是 按 y= sinx 给 出 的 , sin(1.6)=0.9996, 从 插值 函数 在 x=1.6 的 值 看 出 ， 
插值 函数 的 精度 是 比较 高 的 。 

正如 某 些 实验 数据 的 情况 ,如 果 一 组 国定 的 节点 妃 对 应 多 组 不 同 的 数值 wy ， 此 时 用 拉 
格 朗 日 插值 比较 方便 ， 因 为 每 一 种 情况 下 基 函 数 都 保持 不 变 ， 但 是 一 旦 对 播 值 问题 添加 新 
的 节点 ， 那 么 所 有 的 基 函 数 都 得 重新 计算 ， 这 时 就 不 适合 用 拉 格 朗 日 插值 ， 后 面 介 绍 的 均 
差 型 的 牛顿 插值 就 比较 有 用 了 。 


拉 格 朗 日 插值 法 简单 且 易 于 建立 , 但 它 有 一 个 缺点 , 那 就 是 一 旦 增加 插值 节点 的 个 数 ， 
原 有 的 多 项 式 的 计算 结果 并 不 能 加 以 利用 ， 插 值 多 项 式 必须 重新 建立 ， 而 且 其 形式 不 易 简 
化 ， 计 算 比较 复杂 。 

艾 特 肯 插 值 法 是 通过 递 推 来 建立 插值 多 项 式 的 ， 因 此 比较 容易 利用 递 推 公式 来 建立 插 
值 公式 。 艾 特 肯 插值 法 的 基本 思想 是 上 +1 次 插值 多 项 式 可 由 两 个 上 次 插值 多 项 式 通过 线性 
插值 得 到 。 艾 特 肯 插值 法 的 推导 如 下 。 


必 、 




















令 
1 |Polk(Cx) JU 一 苇 
Pol6n( = 一 一 一 
入 一 称 |Polein(E) 和 一 大 
利用 上 式 ， 可 得 到 
1 |Ppo(GCoD 2 一 习 
Pol(x) = 
加 一 MPICXC) 和 一 大 
1 |PpooD) 2 一 X 
Po2z(X) = 
X2 一 MP2( 菩 和 妃 一 世 








递 推 下 去 ， 可 得 到 下 面 的 计算 表格 ( Po1…cn(X) 代表 多 项 式 ， 它 下 标 中 的 z 代表 有 
?+1 个 插值 点 ， 大 代表 插值 多 项 式 是 上 +1 次 的 )， 系 数 的 计算 过 程 如 表 4-1 所 示 。 


表 4-1 艾 特 肯 插 值 多 项 式 计算 表格 





zx Po(z)=J(xo) 





DC) = xD Pol(0) 





22 Pa(z= 了 (xz2) Po200) Pol2() 





Pa(xz) = xs) Po3( 妇 Pols(O Pou23() 














nm Pa(mD= 了 co) Pon( 们 Point) Polon( 阅 ”Po 人 
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例如 ，A4(LD = pol(z) ，4(G3,2) = pol3(D) 


则 ，4G,=4Gj-D 一 4-D7-D 一 一 
好 一世 六] 好 一 X7-1 


最 右 下 角 的 mm ，,, (29) 就 是 最 终 的 插值 多 项 式 。 





在 MATLAB 中 编程 实现 的 艾 特 肯 插 值 法 函数 为 
功能 : 求 已 知 数据 点 的 艾 特 肯 插值 多 项 式 
调用 格式 : [f ,ft0]= Atken (x,y,x0) 
其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 
x0: 播 值 点 的 x 坐标 ， 
f: 求 得 的 艾 特 肯 插 值 多 项 式 ; 
f0; Xx0 处 的 插值 。 














在 MATLAB 中 实现 艾 特 肯 揪 值 的 代码 如 下 所 示 :; 


function [ft,t0] = ALKen(X,Y，X0) 
g% 求 已 知 数据 点 的 艾 特 肯 揪 值 多 项 式 
g 已 知 数据 点 的 x 坐标 向 量 : x 
g% 已 知 数据 点 的 y 坐标 向 量 : y 
g% 揪 值 点 的 x 坐标 : x0 
g% 求 得 的 艾 特 肯 播 值 多 项 式 : 芋 
g# Xx0 处 的 插值， f0 
SYymsS 七 ; 
if(1ength(x) 一 Length(y)) 
mn = Length(X) ， 
el1Sse 
disp('x 和 Yy 的 维 数 不 相 等 | ') ; 
retLurny， 
enmdQ g 检 和 错 
y1(1:n) = 七; g 符 号 函数 数组 赋 初 什 
fo ( 工 =1 :mn 一 1) 
for (]J=1I+1 3: 了 ) 


yl1(j) =yY()*(t-x(i))V(X(G)-x(i))+y(i)x(t-x())V(x()-X())， 
enQ 
Y = YL1; 
simplifty(y1l)， 
end 
夺 = Y1(n); 
f0 = subs(yl(tn)，'cx0O) ; g% 计 算 插值 点 的 函数 值 


艾 特 肯 插 值 法 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 艾 特 肯 插 值 多 项 式 ， 
计算 当 x=1.6 时 y 的 值 。 





并 
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解 : 在 MATILAB 命令 窗口 中 输入 以 下 命令 ; 


>> x=[L1 1.2 1.8 2.5 4]; 

>> y=[0.8415 0.9320 0.9738 0.5985 -0.7568]; 

>> [f,f0]=Atken(x,y) sg 计算 输出 的 艾 特 肯 播 值 多 项 式 

f =2/3x(5/11*(5/14x(-15983/30000xt+10307/17500)*(t-6/5)-5/14x* (1817/400xt+ 
389/1000)*(t-4))*(t-9/5)-5/11x(5/3x(1323/8000xt+54097/8000)*(t-6/5)-5/3x(1817/ 
400xt+389/1000)*(t-975))*(t-4))*(t-5/2)-27/3x(107/7x* (10713x (-817500xt+20077/2000)x- 
(t-6/5)-10/13*x (181/400xt+389/1000) *x(t-5/2))x(t-975)-10/7x(573x(132378000xt+ 
5409/8000)*(t-6/5)-5/3x(181/400xt+389/1000)x(t-9/75))*(t-5/2) )*(t-4) 

g% 计 算 x=1. 6 时 的 插值 输出 值 f0 

f0 = 0.9992 


表格 中 的 数据 点 是 按 y=sinx 给 出 的 ，sin(1.6)=0.9996， 从 插值 函数 在 好 1.6 的 值 看 出 ， 
插值 函数 的 精度 是 比较 高 的 。 

艾 特 肯 揪 值 可 以 根据 精度 的 要 求 逐 步 提高 插值 的 阶 ,在 插值 过 程 中 只 需 逐 步 将 两 个 低 
阶 的 插值 结果 进行 线性 组 合 即 可 ， 因 而 很 方便 。 

如 果 无 须 求 出 播 值 多 项 式 ， 只 需求 出 播 值 点 的 值 ， 艾 特 肯 插值 的 优点 就 体现 出 来 了 : 
即 如 果 在 计算 过 程 中 ， 存 在 |pouz…ea(xm)- pol2.k(mj|<e ， 其 中 为 给 定 精度 值 ， 则 计 
算 可 到 此 为 止 ， 从 而 节省 了 计算 量 。 





利用 均 差 的 牛顿 插值 


函数 /的 零 阶 均 差 定义 为 7[xo]= fxo) ， 一 阶 均 差 定义 为 : 
j/ xm) 一 zxo) 


ma 一 X0 


J [Lxo,xm]= 
一 般 地 ， 函 数 广 的 大 阶 均 差 定义 为 : 


[zxo 2 一 [op 


Ja 一 区 一 ] 


[xxo ,20 了] = 


利用 均 差 的 牛顿 插值 多 项 式 为 : 
NGOoD=Jxo)+jxo](x 一 2zo) 二 
[xzo,2022](K 一 20)GX 一 ) 十 十 
j [0 三 和 ](G 一 如) 一 三) (一 加 -1) 


系数 的 计算 过 程 如 表 4-2 所 示 。 


表 4-2 均 姜 计算 表格 
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tom 





例如 ，4(D = FLxzo,z] ，4(3,2) = F[xo,za,z 妇 ] 
_4G7-D-A4C7-L7 一 D 
划一 孝 j1 


表 4-2 中 对 角 线 上 的 元 素 就 是 插值 多 项 中 对 应 的 系数 。 


则 :，4G, 廊 





在 MATLAB 中 实现 利用 均 差 的 牛顿 插值 的 代码 如 下 所 示 : 








在 MATLAB 中 编程 实现 的 均 差 形式 的 牛顿 插值 法 函数 为 ， Newton 
功能 : 求 已 知 数据 点 的 均 差 形式 的 牛顿 播 值 多 项 式 
调用 格式 : ,ft0] = Newton (xyx0) 


其 中 ，XxX; 已 知 数据 点 的 xx 坐标 向 量 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 


X0 : 插值 点 的 x 坐标 ; 
f: 求 得 的 均 差 形式 的 牛顿 插值 多 项 式 
fx0 处 的 插值 。 


机 有 Le 村 生生 于 | 


function [ft,f0] = Newton(x,yy,XxX0) 
g 求 已 知 数据 点 的 均 差 形式 的 牛顿 插值 多 项 式 
g 已 知 数据 点 的 x 坐标 向 量 ; x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g 插 值 点 的 x 坐标 ， x0 
g% 求 得 的 均 差 形式 的 牛顿 插值 多 项 式 ; 主 
sx0 处 的 插值 : f0 
SyImS 七 ， 
It(LIength(Xx) 一 LIength(y)) 
也 三 Tength(Xx)， 
cf(1:n) = 0.0:; 
esSe 
disp('x 和 y 的 维 数 不 相等 ! ') ; 
Teturnmy 
enaQ 
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=1; 
for (=1:n 一 1) 
for (J=i+1:n) 
Y1(j) = (y()-y(i))VIXG)-X(T) ) ， 
end 
cf 人 ti) = YL1(I+L) ; 
工 三 JT*(t-X(I) ) 
ffE=fE+cC(I)x1， 
Simplify(t):; 
Y =Y1; 


f0 = subs(f，'t5y，x0)， 


利用 均 差 的 牛顿 插值 法 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 均 差 形式 的 牛 
顿 播 值 多 项 式 ， 并 计算 当 X 一 1. 时 y 的 值 。 


了 0.6931 1.0986 1.3863 1.6094 1.7918 


解 : 在 MAILAB 命令 窗口 中 输入 以 下 命令 : 








>> X=1:6:; 

>> Yy=[0 0.6931 1.0986 1.3863 1.6094 1.7918]: 

>> [ff0]=Newton(X, yy, 1T.5) 

f =6243314768165359/9007199254740992xt-6243314768165359/9007199254740992 一 
1295604874295013/9007199254740992x (t-1)x*(t-2)+1020209651736479/360287970189 
63968* (ft-1)*(t-2)x(t-3)-7004870174078857/144115188075855872x* (七 -1 ) * (七 一 2) x (七 一 3 ) * 
(七 -4)+418541896262117/576460752303423488x* (七 -1)* (七 -2)x (七 -3)* (tt~4)x (七 -5) 

gs 计算 x=1.5 时 的 揪 值 输出 值 f0 

f0 = 三 0.4001 


表格 中 的 数据 点 是 按 自然 对 数 函 数 y>=Inx 给 出 的 ， 而 In(1.5) = 0.4055 ， 从 插值 结果 看 
出 ， 播 值 的 精度 还 是 不 错 的 ， 但 是 一 旦 揪 值 点 的 坐标 大 于 6， 误差 就 会 迅速 增 大 ， 


>> [ft,ft0]=Newton(x,y,，10) 

上 =6243314768165359/9007199254740992xt-6243314768165359/9007199254740992 一 
12956048742950137/9007199254740992x (t-1)*(t-2)+1020209651736479/360287970189 
63968x* (t-1)*(t-2)x(t-3)-7004870174078857/144115188075855872x (七 -1) (七 -2) xx (七 一 3 ) 
(上 -4)+4185418962621177/576460752303423488x* (七 -1)x (七 -2)* (3)x (七 一 4)x (七 -5) 

g 计 算 x=10 时 的 插值 输出 值 f0 

f0 = 6.4328 

>> log(10) 

ans 一 

2.3026 


其 实 这 是 所 有 播 值 方法 都 会 遇 到 的 问题 ， 正 因为 这 点 ， 所 以 这 里 介绍 的 播 值 方法 都 
只 能 叫 内 插值 ， 即 插值 点 在 已 知 点 的 内 部 。 外 插值 有 一 些 算 法 ， 读 者 可 以 自己 去 查看 相 
关 资 料 。 
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从 播 值 多 项 式 的 形式 可 以 看 出 ， 当 增加 一 个 插值 点 时 ， 已 有 的 插值 多 项 式 各 项 的 形式 
不 会 发 生变 化 , 只 需 增 加 一 项 即 可 , 这 是 均 差 型 牛顿 插值 的 最 大 优点 ， 因 此 在 实际 应 用 中 ， 
如 果 想 通过 增加 插值 点 提高 插值 的 精度 ， 用 这 种 方法 是 最 合适 不 过 了 。 


等 距 节点 插值 


在 实际 应 用 中 ， 如 果 节 点 之 间 是 等 距 的 话 ， 那 么 利用 差分 可 得 到 以 下 一 些 很 方便 的 插 
值 方法 。 

对 于 实际 应 用 来 说 ， 需 要 对 离散 数据 进行 分 析 和 处 理 ， 但 是 在 数学 理论 中 做 的 都 是 连 
续 性 的 数据 处 理 ， 因 此 在 对 于 数学 基本 概念 上 的 离散 化 理解 就 格外 重要 ， 于 是 引入 了 向 前 
差分 、 向 后 差分 、 中 心 差 分 以 及 差 商 的 概念 。 利 用 这 些 概 念 ， 我 们 可 以 把 在 连续 数学 论 中 
的 数学 理论 知识 离散 化 到 插值 计算 中 ,在 后 面 的 样 条 插值 算法 中 ， 这 样 的 概念 起 到 了 相当 
重要 的 作用 。 


4.4.1 利用 差分 的 牛顿 插值 


差分 分 为 前 向 差分 、 后 向 差分 和 中 心 差分 三 种 ， 它 们 的 记 法 及 定义 如 下 所 示 : 
7 阶 前 向 差分 公式 : A" Ca)=A" Ca-AFO6) 
半 阶 后 向 差分 公式 :VCOo) =VLFGOo)-V Co 
半 阶 中 心 差分 公式 : 6"j(06)=6” jc -6 ”7 1) 
2 2 











其 中 A-- 前 向 差分 V- 后 向 差分 ; 6- 中 心 差 分 。 
假设 Aof(z)=Vofa)=6oFooa)= ja)。 为 了 方便 计算 ,可 构造 如 表 4-3 所 示 的 差分 
表 ( 态 = 三 (6 ) )。 


表 4-3 ”差分 计算 表格 
A2(V2,.52) A"(V ,57) 








An(CV1 6ja) 
AhCVP 5) A2zjoCV2 户 ,5 








APp(VHP 52) A2jV2 广 ,52 户 ) AsjovV 户 ,53Pp) 








例如 ，4(D = An(Vhi,5jhp) ，4G3,2)=A2z(V2 户 ,52 户 ) 
则 ; 40G, 门 =4(G7-D-A4GC-L7-Do 
根据 使 用 差分 格式 的 不 同 ， 差 分 形式 的 牛顿 差 值 又 可 细 分 为 以 下 两 种 具体 的 差分 形式 ; 
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1. 前 向 牛顿 插值 
前 向 牛顿 插值 多 项 式 可 表示 为 如 下 形式 ， 
NGO=ANGOo+ 雪 ) 
了 
-root weorl (0o)+… 二 Jr 


其 中 闫 为 步 长 ， 灵 =X1I 一 20， 且 z 的 取 值 范 上 围 为 0 入 1 入 7 。 





| 在 MATLAB 中 编程 实现 的 前 向 牛顿 差分 插值 法 函数 为 ，Newtonforward 
| 功能 : 求 已 知 数据 点 的 前 向 牛顿 差分 插值 多 项 式 
调用 格式 : [ff0]j= Newtonforward (x,yx0) 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y， 已 知 数据 点 的 y 坐标 向 量 ; 


X0: 插值 点 的 x 坐标 ; 
人 


) 


在 MATLAB 中 实现 前 向 牛顿 差分 插值 的 代码 如 下 所 示 ， 


function [f,f0] = Newtonforwardq(x,y,x0) 
g 求 已 知 数据 点 的 前 向 牛顿 差分 插值 多 项 式 
g% 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g% 揪 值 点 的 x 坐标 : x0 
g 求 得 的 前 向 牛顿 差分 插值 多 项 式 
sx0 处 的 插值: f0 
SYmS 七 
if(iength(x) 一 Lengthl(y)) 
Dmn = Tengtn(Xx) : 
cl(l1:n) = 10.0; 
elSse 
disp('x 和 Yy 的 维 数 不 相 等 ! ') ; 
Tetutn， 
enq 
ff =Y(1); 
Y1 = 0; 
XX =1inspace(Xx(1) ,xn)，(xX(2)-x(1))); 
IE(XxX ~= X) 
qisp( ' 节 点 之 问 不 是 等 距 的 ! ') ; 
YetLurDny: 
end 
for (=1:n-1) 
for (Jj=1:mn 开 ) 
yl1(j) =Y(J+l)-y(): 
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Cs 





emndQ 
cl(i) = Yy1(1) 
工 三 七 ; 
for (K=1 :1-1) 

工 二 Tx(f-K) 
enaQ : 


f= 革 +CGi)x*l/ftactorial(I): 
Simplify(E): 
Y 三 YI1; 

eDnG 

f0 = Sups(f，'t'，(x0-x(1))7/(x(2)-x(1)))， 


后 向 牛顿 插值 
后 向 牛顿 插值 多 项 式 可 表示 为 如 下 形式 ， 
NGC) = NOxo+ 切 ) 
-ojweos 王 reor 


一 1 
ve 


开 


疡 仍然 是 步 长 ， =XI 一 x0， 但 上 的 取 值 范围 为 -和 fr 筷 0。 











在 MATLAB 中 编程 实现 的 后 向 牛 顿 差 分 播 值 法 函 数 为 ; Newtonback 
功能 : 求 已 知 数据 点 的 后 向 牛顿 差分 插值 多 项 式 
调用 格式 : [ff0] = Newtonback (X,y,XO) 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y， 已 知 数据 点 的 y 坐标 向 量 ; 
X0: 播 值 点 的 x 坐标 ; 
f， 求 得 的 后 向 牛顿 差分 插值 多 项 式 ; 


fo : XO 处 的 插值 。 


在 MATLAB 中 实现 后 向 牛顿 差分 揪 值 的 代码 如 下 所 示 ， 


function [fft,f0] = Newtonpack(x,y,Xx0) 
gs 求 已 知 数据 点 的 后 向 牛顿 差分 插值 多 项 式 

g 已 知 数据 点 的 x 坐标 向 量 : x 

g 已 知 数据 点 的 y 坐标 向 量 : y 

g 播 值 点 的 x 坐标 : x0 

g% 求 得 的 后 向 牛顿 差分 揪 值 多 项 式 





sx0 处 的 插值 : f0 
_SymS 七 ; 
if(lIength(x) 一 length(y)) 
三 Jength(Xx) ， 
cl(1:n) = 三 0.0: 
elSse 
disp('x 和 Yy 的 维 数 不 相等 | ') 
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并 etUtnmny， 


Yyl1 = 0:; 
XX =1inspace(Xx(1),，X(n)，(X(2)-x(1))) 
IE(XX ~= 区 ) 
qisp( ' 节 点 之 问 不 是 等 距 的 ! ，) ; 
Yeturny; 
endQ 
for (1i=1:n 一 1) 
for (]j=iI+1:nm) 
Yy1(]) =Y(J)-y(]-1):; 
endQ 
ci) = YL(n):; 
二 三 七 ， 
for (k=1:1-1) 
工 一 Tx( 世 +K)， 
enQ: 


E=f+c()x*1l/factorial(I)， 
Simplitfy(E): 


Y = YT; 


f0 = Subs(f,'t'，(x(nD)-x0)/(X(2)-X(1))); 


利用 差分 的 牛顿 插值 法 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 差分 形式 的 牛 
顿 插值 多 项 式 ， 并 计算 当 x=1.55 时 y 的 值 。 








解 ， 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:0.2:1.8: 

>> Yy=[0.8415 0.9320 0.9854 0.9996 0.9738]: 

>> [f,f0]=NewtonforwaraQ(x,y,，1.55) 

fE = 1683/2000+1817/2000xt-371720000xtx (t-1) 一 47287796087397/13510798882111488r* 
上 tx (七 -1)*(t-2)+117093590311637/216172782113783808xtr*x (七 -1L)* (tt-2)*(t-3) 

gs 计算 x=1.55 时 的 插值 输出 值 f0 

f0 = 0.9998 

>> [ft,f0]=Newtonback(xX,y,，1.55) 

f =4869/5000-1297/5000x*t-1/V50x*tx(t+1)-7205759403793/54043195528445952x* 七 x 
(t+1)* (t+2)+1L117093590311637/216172782113783808xtrx (t+1)x(t+2)* (二 +3) 

g 计 算 x=1.55 时 的 插值 输出 值 f0 

f0 = 三 0.9998 


表格 中 的 数据 点 是 按 y>=sinx 给 出 的 ,而 sin(1.5$)=0.9998， 从 插值 函数 在 x=1.55 的 值 
看 出 ， 牛 顿 差 分 插值 函数 是 很 准确 的 。 
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顾名思义 ， 在 使 用 后 顿 差分 插值 公式 时 ， 如 果 插 值 点 离 ao 比较 近 ， 则 适合 用 牛顿 前 播 
公式 ， 否 则 建议 用 牛顿 后 播 公 式 ， 从 例子 的 结果 也 可 以 看 出 ， 对 于 同一 个 插值 点 ， 不 管用 
前 插 公 式 还 是 后 插 公 式 ， 得 出 的 结果 都 是 一 样 的 ; 


>> [tf,f0]=Newtonback(x,y,1.22) g% 计 算 插值 点 为 1.22 时 的 结果 

f -48697/5000-129/5000xt-1/750xtx (t+1)-7205759403793/154043195528445952x 七 * 
(t+1)x (t+2)+11709359031163/216172782113783808xtx (t+1)* (t+2)* (t+3) 

f0 = 0.9391 

>> [ft,f0]=Newtonforward(x,y,1L.22) % 计 算 插值 点 为 1.22 时 的 结果 

f -1683/2000+181/2000xt-371/20000xtx (t-1)-4728779608739/13510798882111488x*f* 
(t_1yx (t-2)+11709359031163/216172782113783808xtx ( 蕊 -1)* (t-2)* (tt 一 3) 

f0 = 0.9391 


结果 都 是 一 样 的 ， 读 者 还 可 以 试 试 其 他 的 值 。 





4.4.2 ”高 斯 播 值 
高 斯 插值 是 从 中 间 的 节点 开始 的 ， 它 也 有 前 向 和 后 向 之 分 。 
1.， 前 向 高 斯 插值 
对 于 节点 个 数 为 偶数 的 情况 ( 于 一 27114 )， 设 节点 编号 为 基 ， 了 + 知 -1 前 向 
高 斯 插值 公式 为 : 
co=7eot| rc o Jeor( ve + 
1 1 2 3 和 了 
1 十 斑 一 [ 12 1 十 玉 一 12m ev 
ee 
对 于 节点 个 数 为 奇数 的 情况 ( 有 一 211 十 1 )， 设 节点 编号 为 1 Xi 
高 斯 插值 公式 为 : 
cm=yeo| ra or reot ra 中 + 
1 和 7 2 3 计 了 了 
1 十 下 一 ] 2 1 十 故 一 [| 2m ee 、 | 十 帮 ]s2mnl 
:| 人 1 守 reot[ 富有 7 Cs) 


2. 后 向 高 斯 插值 
对 于 节点 个 数 为 偶数 的 情况 ( = 2m )， 设 节点 编号 为 辣 ,zx -msim 注意 
节点 编号 顺序 ， 后 向 高 斯 插值 公式 为 ， 


ca-yeot| Pei 宇 reor 人 ver 
1 2 3 半 


ft 十 玫 一 12 1 十 110 1、2m 
| 人 1 名 Jo) 
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对 于 节点 个 数 为 奇数 的 情况 ( 站 = 2m+1 ), 设 节点 编号 为 页 ,xx 
高 斯 插值 公式 为 : 


car7eot| er 全 reor[ ve 中 十 
1 半 7 2 3 


re re 人 Eve 
实际 应 用 得 比较 多 的 是 由 高 斯 公式 衍生 出 来 的 斯 特 林 公式 和 贝 塞 尔 公式 ， 
(1 ) 用 于 奇数 个 节点 插值 的 斯 特 林 公 式 
斯 特 林 公式 是 对 前 向 高 斯 插值 和 后 向 高 斯 插值 取 平均 得 到 的 ， 


_ 1f 工人 f+1Y >， 
So-7e0 引 jareorareooel j 7 (CD)+ 


给 jeve +637Cc 二， 
213 计 厂 了 


1 十 Hi 一 1 1 十 11 f 十 玖 一 上 
区 全 ” 人 je co 人 je 人 
这 个 公式 只 适合 于 奇数 个 节点 插值 。 
《2 ) 用 于 偶数 个 节点 插值 的 贝 塞 尔 公式 
贝 塞 尔 公式 是 高 斯 公式 的 另 一 种 平均 : 
1 


BCD = 二 (CDO+FGooaD)+IL 人 [re + 
无 = 区 Xi+1 2 1 1 太 4 


区 jareorsyeo 


1 fr+1l 1 1 3 
红 : Jaresor 十 


1 1 十 严 一 1 1 十 下 一 | 2 
一 十 82m+l 
罗 ] Eee ) 7 


这 个 公式 只 适合 于 偶数 个 节点 插值 。 








在 MATLAB 中 编程 实现 的 高 斯 插值 法 函数 为 ，Gauss 
功能 : 求 已 知 数据 点 的 高 斯 插值 多 项 式 
调用 格式 : [ff0]= Gauss (X,yx0) 

其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y; 已 知 数据 点 的 y 坐标 向 量 ; 
X0: 插值 点 的 x 坐标 ; 


Cr 
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fx0 处 的 插值 。 


function [ft,f0] = Gauss(Xx,y,X0) 

gs 求 已 知 数据 点 的 高 斯 插值 多 项 式 

g 已 知 数据 点 的 x 坐标 向 量 : x 

g% 已 知 数据 点 的 y 坐标 向 量 ， y 

sg 插值 点 的 x 坐标 : x0 

g 求 得 的 高 斯 插值 多 项 式 : f 

外 X0 处 的 插值 : 工 0 

if (Length(x) 一 length(y)) 
nm = Jength(x) ; 
enaQ 

elSse 


qisp('x 和 Yy 的 维 数 不 相 等 ! 


CetUYD 


0) 


emnOQ 
XX =Jinspace(x(1),x(n)，(X(2)-x(1)))，; 
于 (xxX ~= X) 

disp( ' 节 点 之 间 不 是 等 距 的 ! 


工人 荆 UYDm 7; 


) 


end 
If( moatn,2) 一 1) 
[ft,f0] = GStirling(xyvny,x0) 
else 
[ft,f0l = GBessel(x,y,ny,x0) ，: 
enmd 
function [f,f0] = GSEtirling(xyyy, nyXx0) 
Syms 七 ， 
nn = (n+l)/2; 
f =Y(nn); 
for (II=1:n=-1) 
for (Jj=i+1l:Dm) 
Y1(J) =Y()-Yy(J-1)， 
enqa 
ift(modq(I, 2) 一 1I) 


cti) = (yl1((i+tn)/2)+Yy1((i+n+2)7/2) )7/2 
elSe 

cl(I) =Y1l((i+n+L)V2)7/2; 
enmd 
f (moa(i, 2) 一 1) 

= t+(i-1)72: 

for (k=1:1-1) 

= Jx(t+(i-1)V/2-K) ; 

enda 

e1Se 


在 MAILAB 中 实现 高 斯 插值 的 代码 如 下 所 示 : 


gm 为 奇数 时 采用 斯 特 林 插 值 


sn 为 偶数 时 采用 贝 塞 尔 插值 


g 斯 特 林 插值 
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1 1 = 七 +IV/2 一 1; 


1 1 = 1_1*(t+LI7V2-1-K) ， 
1 2 = 1 2x(t+TV2-K) : 


1I1=1 1+1 2; 
emndQ 
荆 1Vftactorial (I) ; 
二 = 下 + Ci)x1'; 
Sirmpblifv(E)， 
Yy =Y1; 


f0 = Supbs(E，'t'，(x0-x(nn))/(X(2)-x(1))); 
function [ft,f0] = GBessel(x,y,n,x0) g% 贝 塞 尔 播 值 
SYmS 七 ; 
nn = mV2， 
ft = (y(nn)+y(nn+1l))7/2: 
for(I=1:n=-1) 
for (j=:+13:n) 
Y1(]) =Y(J)-y(J-1) 7 
enaQ 
if(moda(Ii, 2) 一 1) 
cti) = yl1((i+n+l) /2)72; 


elSse 

cti) = (yl1((i+tn)/2)+y1((i+n+2)/2))72; 
enaQ 
IE (modq(i, 2) 一 0) 

1】 = 七 +i/2-1; 

for (k=1:1i-1) 

1 = 1x(t+i/2-1-K) ; 

endQ 

else 


1 _ 1 = 七 +(i-1)7V2; 
1_2 = t+(i-1)7V2-1; 


1 
1_2 = 1_2x*(t+(i-1L)7V72-1-K) 


工 = /factorial(I) ， 
人 =ft+ci)xl1'， 
Simp1lIify( 工 ) 

Y = Y1; 


f0 = Subs(f,，'t'，(x0-x(nn))/v(x(2)-x(1)))， 
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高 斯 插值 法 应 用 实例 1。 根 据 下 面 的 数据 点 求 出 其 高 斯 插值 多 项 式 ， 并 计 
算 当 x=1.5 时 y 的 值 。 








解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=-1:0.2:1.8; 

>> y=[0 0.2630 0.4854 0.6781 0.8480]:; 

>> [ftf,f0j]=Gauss(x,yx 1.5) 

f -=4372336155919085/9007199254740992+233645340887123/1125899906842624*t 一 
66985062312357/9007199254740992x*tx(t-1)-66985062312357/9007199254740992* 七 * 
(t+1)+40356549089119/27021597764222976xtx (t+1L)*(t-1)-17417105048023721617278 
2113783808xtx (t+1)x(t-1)x(t-2)-17417105048023/216172782113783808*x* (ft 二 L) (七 十 
2)x* (一 1) 

g% 计 算 x=1.5 时 的 插值 输出 值 E0 


f0 = 0.5849 
>> 1og2 (1 .5) 
amSs 三 0.5850 


由 于 x 和 y 是 奇数 维 的 ， 高 斯 函数 将 调用 斯 特 林 公式 插值 。 表 格 中 的 数据 点 是 按 
y=log2x 给 出 的 ， 而 logz1.5=0.5850。 


高 斯 插值 法 应 用 实例 2。 根 据 下 面 的 数据 点 求 出 其 高 斯 插值 多 项 式 ， 并 计 
算 当 x=1.5 时 y 的 值 。 








解 :， 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> Xx=1:0.2:2; 

>> y=[0 0.2630 0.4854 0.6781 0.8480 1.0001: 

>> [ff,f0]=Gauss(x,Yy,1.5) 

工 -4372336155919085/9007199254740992+867596301236135/4503599627370496*ft 一 
4725845053686417136028797018963968*tx(t-1)+63295993130215/108086391056891904 
x*tx (t+1)x(t-1)+63295993130215/108086391056891904xtx* (t-1)*(t-2)-1830404782117 
5/144115188075855872xtx(t+1l)x(t-1)*(t-2)+14756276728567/12161727821137838080 
xf 七 x (t+1)x* (t+2)x(t-1)*(t-2)+14756276728567/2161727821137838080*t* (t+TIT) * (七 下 ) 
(七 -2 ) * (七 一 3 ) 

g% 计 算 x=1.5 时 的 播 值 输出 值 f0 

f0 = 0.5850 


由 于 x 和 ”是 偶数 维 的 ， 高 斯 函数 将 调用 贝 塞 尔 公式 插值 。 表 格 中 的 数据 点 是 按 
y=log2x 给 出 的 ， 而 logz1.5=0.5850。 
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埃 尔 米 特 插值 法 满足 在 节点 上 等 于 给 定 范 数值 ， 而 且 在 节点 上 的 导数 值 也 等 于 给 定 的 
导数 值 ， 对 于 有 高 阶 导数 的 情况 ， 埃 尔 米 特 插值 多 项 比较 复杂 ， 在 实际 应 用 中 ， 常 常 明 到 
的 是 函数 值 与 一 阶 导数 估 给 定 的 情况 ， 在 这 种 情况 下 ， 个 节点 , 关 和 的 埃 尔 米 特 插 
值 多 项 式 刀 (xz) 的 表达 式 如 下 所 示 ， 

妃 O0= > 户 [(x 一 归 (2azyi 一 六 )+ 帮 ] 
= 

其 中 让 =J) ,大 =yOo) 

大 一 X) 1 
玉 = 工 一 一 人 ?oa = 
-了 Ji 一 记 让- 部 


JJ JJ 


在 MATLAB 中 各 实现 的 从 冰 入 从 法 为 Hermmite 
功能 : 求 已 知 数据 点 的 埃 尔 米 特 插 值 多 项 式 
调用 格式 : [ff0] = Hermite (x,yy_Lx0) 
其 中 ，x， 已 知 数据 点 的 x 坐标 向 量 ， 
y: 已 知 数据 点 的 y 坐标 向 量 ; 
y_1， 已 知 数据 点 的 导数 向 量 ; 
X0: 播 值 点 的 x 坐标 ， 
f 求 得 的 埃 尔 米 特 插值 多 项 式 ; 
L 人 z0 处 的 插值 。 


在 MATLAB 中 实现 埃 尔 米 特 插值 的 代码 如 下 所 下 ， 





Ce 








function [f,f0]= Hermite(x,y,y_1,x0) 
g 求 已 知 数据 点 的 埃 尔 米 特 插值 多 项 式 

g 已 知 数据 点 的 x 坐标 向 量 : x 

g% 已 知 数据 点 的 y 坐标 向 量 : y 

sg 已 知 数据 点 的 导数 向 量 : y_1 

g 播 值 点 的 x 坐标 ，x0 

g 求 得 的 埃 尔 米 特 插值 多 项 式 : f 

g% x0 处 的 插值: f0 





SYS 七 
f = 0.0: 
if(Length(x) 一 length(ty)) 
if(length(ty) 一 lengthnty 1)) 
nm = Length(Xx)， 
elSse 
qisp('y 和 Yy 的 导数 的 维 数 不 相 等 ! ，) ; 
etuzTn 
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end 
人 LSe 
disb('x 和 Yy 的 维 数 不 相等 ! ') ， 


工人 七 UTDD 7 


hn=1.0; 
己 == 0.0; 
for ]j=13:Dn 
if( JJ 了 ~= 了 工 ) 
Dn = Prt(t-x(j))^2/((x(I)-x())^ 人 2); 
a=a+1l/(x(i)-x()); 
endQ 
emnG 
芋 = 王 + hx((x(i)t)*x(2xaxy(i)-y 1(i))+y()); 
endQ 


f0 = Supbs(E，' 七 '，XO) ; 


埃 尔 米 特 插值 法 应 用 实例 。 根据 下 面 的 数据 点 求 出 其 埃 尔 米 特 插值 多 项 式 ， 
并 计算 当 x=1.44 时 y 的 值 。 











解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ， 


>> X=1:0.2:1.8:; 

>> Yy=[1 1.0954 1.1832 1.2649 1.3416]: 

>> Yy_1=[0.95 0.4564 0.4226 0.3953 0.3727] ; 

>> [t,f0]=Hermite(x yy_ 1,1.44) 

人 一 674.168*(t-1.20000)^2x(t-1.40000)^2*(t-1.60000)^2x(t-1.80000)^2* 
(-20.3333+21.3333xt)+10850.7*x (kt-1.)^2*(t-1.40000)^2x(t-1.60000)^2x(t-1.80000 
) “2*(-10.4066+9.58511*t)+24414.1x (t-1.)^2x(t-1.20000)^2x(t-1.60000)^2x(t-1.8 
0000) “2*(.591580+.422600*t)+10850.7x(t-1.)^2x(t-1.20000)^2*(t-1.40000)^2x (t- 
1 .80000)^2* (17.4979-10.1456xt)+678.168x(t-1.)^2x(t-1.20000)^2x(t-1.40000)^2x 
(t-1.60000)^2*x(50.9823-27.5781xft) 

g 计 算 x=1.44 时 的 插值 输出 值 f0 

f0 王 工 .2000 


表格 中 的 数据 点 是 按 y= Vx 给 出 的 ， 而 VL.44 =1.20， 从 插值 函数 在 六 1.44 的 值 看 出 ， 
插值 结果 很 准确 。 


分 段 三 次 埃 尔 米 特 插值 





给 定 插值 节点 避 、 节 点 函数 值 六 及 对 应 的 导数 值 wy (= 0.1.2…,N) ， 则 满足 下 面条 
件 : 
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PP(G) = 大,P (和 )= 太 
的 分 段 埃 尔 米 特 插值 函数 p(z) 的 表达 式 如 下 所 示 ， 





大 一 只 、 一 好 大 一 好 无 一 好 
户 人 -YL+2 人) 十 2 人) 
一 姑 
ya 二 + 一 AD 二) 
态 =24 一 3 =01N-Dxeloxcal] 








| 功能, 求 已 知 数据 点 的 分 段 三 


| 调用 格式 ， [fto] = SubHermite (xyy_1x0) 
其 中 ，x， 已 知 数 据点 的 x 坐标 向 量 ; 

y; 已 知 数据 点 的 y 坐标 向 量 ， 

| y_1: 已 知 数据 点 的 导数 向 量 ， 

X0 插值 点 的 x 坐标 ; 

f: 求 得 的 分 自 


和 XO 处 的 插值 。 


在 MATLAB 中 实现 分 和 


ftunction 


| 在 MATLAB 中 编程 实现 的 分 段 三 次 埃 尔 米 特 插值 法 函数 为 ，SubHeRite 
次 埃 尔 米 特 插值 多 项 式 及 其 插值 点 处 的 值 


三 次 埃 尔 米 特 播 值 多 项 式 ， | 





三 次 埃 尔 米 特 插值 的 代码 如 下 所 示 : 


[f,f0] = SubHetrmite(x,y,y 1,x0) 


g 求 已 知 数据 点 的 分 段 三 次 埃 尔 米 特 播 值 多 项 式 及 其 插值 点 处 的 值 


g 已 知 数据 点 的 xx 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 ， 
g 已 知 数据 点 的 导数 向 量 : y_1 
g 播 值 点 的 x 坐标 : x0 
g 求 得 的 分 段 三 次 埃 尔 米 特 插值 多 项 式 :， 上 
g 求 得 的 x0 处 的 插值 : f0 
SYIRS 七 
f=0.0; 
f0 = 0.0; 
if (length(x) 一 length(y) ) 
If(length(y) 一 Jength(ty 1)) 
D = length(x); 
elSe 
Gisp('y 和 Yy 的 导数 的 维 数 不 相 等 ! 
Fetutzny， 
enQ 
else 
qisp('x 和 Yy 的 维 数 不 相 等 | ' ) ; 
EeturDn 7 
end gs 维 数 检查 
for 工 =1:Tn 
if(X(I) 


<=X0O) SR& (X(I+1) >=X0 ) 
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inaex = 一 工 ; 
break:; 
enmdQ 
end g 找 到 x0 所 在 区 问 
Ph = xl(inaex+l1) - xf(indqex); gx0 所 在 区 间 长 度 
fl = Yy(indqex)*(1+2x* (tx(inaex) ) /hnh)x(t-Xx(inaqex+l))^2/hnh + ... 
Y(indaex+1)*(1-2x*x (tx(inaex+1))/n)x*(t-x(index))^27hAny 
fr = Yy_1(index)x(t-x(inaex))x(t-x(index+1))^2/ nnh + ... 
Y_1(indqex+1)*x (txX(inaex+l))x(t-x(inaex))^27nOn， 
E = fl + fr sx0 所 在 区 间 的 插值 函数 
f0 = subs(f,，'t'vXx0) ; gsx0 处 的 插值 


攻 全 区 汪 分 段 埃 尔 米 特 插值 法 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 分 段 埃 尔 米 特 插 
值 多 项 式 ， 并 计算 当 X 三 1.09 时 了 的 值 。 





解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ， 


>> X=1:0.2:1.8:; 

>> Y=[1 1.0954 .1832 1.2649 1.3416]:， 

>> yY_1=[0.5 0.4564 0.4226 0.3953 0.3727] 

>> [ft,f0]=SubHermite(x,y,y_ 1,，1.69) 

三 = 25*(-379477/2000+12649/1000xt)x (tt-975)^ 人 2+25*(318637/11250--16777/125x 七 ) * 
(t-8/5)^2+25*x (3953/10000x*t-39537/6250)x(t-9/5)^2+25*(37277/10000xt-33543750000 
) *x (tt 一 8/5) 人 2 

g 计 算 x=1.69 时 的 插值 输出 值 f0 

ft0 一 1.3000:; 


表格 中 的 数据 点 是 按 y= Vx 给 出 的 ， 而 .69 =1.30， 和 上 一 例题 相 比 较 ， 插 值 结果 的 
精度 没 下 降 ， 但 是 插值 多 项 式 却 短 了 许多 。 


样 条 插值 


应 用 广泛 的 样 条 插值 有 二 次 样 条 插值 函数 、 三 次 样 条 插值 和 了 B 样 条 插值 。 区 别 在 于 插 
值 的 多 项 式 次 数 不 同 ， 以 及 需要 的 待定 参数 与 插值 条 件 不 同 。 它 们 的 插值 条 件 都 可 知 ， 它 
们 的 插值 方法 都 是 唯一 的 ， 而 且 是 可 解 的 。 

4.7.1 “二 次 样 条 插值 


给 定 插值 节点 总 及 对 应 的 导数 值 Y (= 0.12,…,N) ， 端 点 z 和 端点 的 函数 值 mn ， 则 
满足 下 面条 件 ; 
P(xzo)= y0,D (Xi)= 确 
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的 分 段 函 数 PCz) 的 表达 式 如 下 所 示 : 


(一 2 Cl 一 划 ? 
1 三 一 一 一 一 yi+l 一 一 一 一 一 ;十 友 ， 7 一 AN 一 ,Xe 和 放 
户 (0) 坑 一 大 》 G ), xze [31] 
其 中 ， 
太 =XH 一 2 G=012…N-TD 
= 所 六 二 


4 TD2Gr12…N-D 


在 MATLAB 中 编程 实现 的 二 次 样 条 插值 法 函数 为 SecSample 
功能 : 求 已 知 数据 点 的 二 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
调用 格式 ，[ff0,fd0] = SecSample (xyy_Lx0) 
其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y， 已 知 数据 点 的 y 坐标 向 量 ; 
y_1: 已 知 数据 点 的 导数 向 量 ; 
x0， 插值 点 的 x 坐标 ; 
f: 求 得 的 二 次 样 条 插值 多 项 式 ， 
f0， 求 得 的 x0 处 的 插值 ; 
fa0，。 求 得 的 x0 处 的 导数 的 插值 。 


在 MATLAB 中 实现 二 次 样 条 插值 法 的 代码 如 下 所 示 | 


tunction [f,f0,fd0] = SecSample (xy,y_1,X0) 
g 求 已 知 数据 点 的 二 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 

g 已 知 数据 点 的 x 坐标 向 量 ; x 

g 已 知 数据 点 的 y 坐标 向 量 : y 

sg 已 知 数据 点 的 导数 向 量 : y_1 

g% 插 值 点 的 x 坐标 ， x0 

g 求 得 的 二 次 样 条 插值 多 项 式 : 

g 求 得 的 x0 处 的 插值 : f0 

g 求 得 的 x0 处 的 导数 的 插值 : fdqo 





SYImS 七 7 
上 = 0.0:; 
f0 = 0.0; 
if(length{(x) 一 length(y)) 
if(length(y) 一 length(y_1)) 
mn = LIength(X) : 
elSe 
qisp('y 和 Yy 的 导数 的 维 数 不 相等 ! ') ; 
Teturny; 
end 
else 
qisp('x 和 Yy 的 维 数 不 相 等 ! ') ; 
Keturny 
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endQ g 维 数 检查 
for 1=1 :mn 
工 (X(I)<=x0)&& (xX(i+l)>=X0) 
inaqex = 工 ; 
PDFeak:; 
end 
enaQ g 找 到 x0 所 在 区 间 
Q=Yy (1L)*(X(2)-X(1))V2+Y(IL) 
for =2 :mn 一 1 
Q=QGQ+y1()x*x(x(i+l)-x(i-1))7/2: 





enmdQ 

Ph = xl(index+1) -- x(indqex) ， gx0 所 在 区 间 长 度 

ff =y 1(index+1)*(t-x(inadex))^272Anh 二 ... 
Yy_1(index)x*(t-x(index+1))^2/2/h + d; sxX0 所 在 区 间 的 插值 函数 

fQ = (tt-x(inadaex))xy 1(inaex+l)/nh + y_1(index)x(x(indaex+1L)-t) An， 

sx0 所 在 区 间 的 播 值 函 数 的 导数 
f0 = subs(f,'t'vx0); gx0 处 的 插值 
fd0 = subs(fd,'t'v,x0); gs x0 处 的 导数 插值 


二 次 样 条 插值 应 用 实例 。 根 据 下 面 的 数据 点 求 出 二 次 样 条 插值 多 项 式 ， 并 
计算 当 x= 4.3 时 y 的 值 。 


7 8 











0.6570 0.9894 














0.7539 -0.1455 





解 : 在 MATILAB 命令 窗口 中 输入 以 下 命令 : 





>> X=1:8); 
>> Y=[ 0.8415 0.9093 0.1411 -0.7568 -0.9589 -0.2794 0.6570 
0.9894]: 
>> y_1=[ 0.5403 -0.4161 -0.9900 -0.6536 0.2837 0.9602 0.7539 
-0.1455] 
>> [ft,f0,fd0]=SecSample(xyyy_ 1,，4.3) 
人 =5110003651005145/36028797018963968*(t-4)^2-58874983347089297/18014398 


509481984* (t-5)^2+1181715167704739/1125899906842624 
g% 计 算 x=4.3 时 的 插值 输出 值 f0 
f0 = 0.9022 
fd0 = -0.3725 





表格 中 的 数据 点 是 按 ysinx 给 出 的 , 而 sin4.3=-0.9162，(sin xz) | -43 = cos4.3= -0.4008 ， 
从 二 次 样 条 满足 的 插值 条 件 就 可 解释 上 面 得 出 的 结果 为 什么 是 这 样 ， 在 实际 应 用 中 ， 二 次 样 条 
基本 上 没什么 用 。 样 条 里 有 用 的 是 三 次 样 条 ， 在 图 形 学 、 曲 线 拟 合 等 方面 有 极其 重要 的 作用 。 


4.7.2 ”三 次 样 条 插值 
给 定 插值 节点 居 及 对 应 的 函数 值 % (ft= 0.12…,N) 、 左 右 两 端点 的 函数 值 及 各 阶 导 
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数值 ， 则 分 别 满足 下 面 三 个 条 件 ， 
) 第 一 类 边界 条 件 :， P(2)= (= 0,12……,N) 
己 (xo)= yo,P CCxw)= yw 
) 第 二 条 件 ， _pOo) = 六 ,和 = 0,12,……,N) 
忆 (to)= yo0,P Ccw)= yw 
Pa)=yGE=12…,N-D 
3 ) 第 二 考 边 界 条 件 ， P(xo)= PCXN) 
厂 (xo)= 疡 (Cxw) 
忆 (xo)= 记 (xzv) 
的 分 段 函数 p(x) 的 表达 式 如 下 : 


户 O9= 贡 DC 瑟 + 一 友 





+ [2(xs 一 加 十 应](xz 一 交 )2 


人 


1 十 | 2 





+ 有 CO 区 Go 一 G 一 厂 ) 


旋 


巨 三 Ji+l 一 大 (=01N 一 D,xe [2 ,xisl] 
) 对 于 第 一 类 边界 条 件 ， 有 








2 Ho 7110 co 
记 2 邮 I 141 C1 
] ， : |=| : 
2 AN-l | maxv-l CN-l 
AN 2 FIN CN 
其 中 ， 
Ao = 5 =0,co =2yo;cw =2yw 
有 
和 二 
_ 3 一 上 3 由 (yirl 一 六 ) 
态 -1 户 
G=12.…,N-D 


在 MATLAB 中 编程 实现 的 第 一 类 三 次 样 条 插值 法 函数 为 : ThrSamplel 
功能 : 求 已 知 数据 点 的 第 一 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
调用 格式 : ELf0] = ThrSamplel (xyy_1,y_N,xO) 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 














90 基因 和 
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y_1 左 端点 的 一 阶 导数 

y_N， 右 端 点 的 一 阶 导数 ; 

X0: 揪 值 点 的 x 坐标 ， 

f 求 得 的 三 次 样 条 插值 多 项 式 ; 


| 求 得 的 x0 处 的 插值 。 





在 MATLAB 中 实现 第 一 类 三 次 样 条 插值 的 代码 如 下 所 示 ， 


function ff,f0] = ThrSamplel (xy,y_1，y_N,x0) 
g% 求 已 知 数据 点 的 第 一 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 


g% 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
s 左 端点 的 一 阶 导 数 ,: Y_ 1 

g 右 端点 的 一 阶 导 数 ;: y_N 

g 插 值 点 的 x 坐标 ，x0 

g 求 得 的 三 次 样 条 插值 多 项 式 : 计 
gs 求 得 的 x0 处 的 插值 f0 


Syms 七 ， 

E=0.0:; 

f0 = 0.0; 

if(Length (x) 一 length(y)) 
世 = Tength(x) ; 

ee Se 
qisp('Xx 和 Y 的 维 数 不 相 等 ! ') ; 
zetutDny， 

end g% 维 数 检查 


for 工 =1: 了 
工 (X(I)<=x0)&& (x(i+l)>=x0) 
inadqex = 三 工 ; 
Dreak， 
enQ 
end g 找 到 x0 所 在 区 间 
for 工 =1L :了 
TE(X(I)<=x0)&& (X(i+l)>=x0) 
inaex = 工 ; 
Preak'; 
emnda 
end g 找 到 x0 所 在 区 间 
&R = qiag(2xones(1,mn)): g 求 解 m 的 系数 矩阵 
Uu = Zeros (PnP2，1) ; 
1amqa = zeros (n-1,1); 
C = Zeros(n,1): 


for 工 =2 :mn 一 1 


ul(i-LI) = (xX(i)-x(i-1))/(x(i+l)-x(i-1)) 
Tamaqa (II) = 三 (X(I+1)-X(i))V/(x(i+L)-x(i-1)); 
cl(i) = 3xlamda(i)x(y(i)-y(i-L))V(x(i)-x(i-1))+ .。.. 
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3x*ul(i-l)*(Y(i+l)-y(i))V(X(i+L)-Xx(I))， 


Ri，i+l) = ul(i-1)， 

Ati，i-1) = lamdqa(i); g 形 成 系数 矩阵 及 向 量 < 
eDndq 
cl(1) = 2x*y_ 1， 
Cn) 二 2xy_N; 
m = followup(RAc); g 用 追赶 法 求解 方程 组 
hn = xf(indqex+l) - xf(index); gx0 所 在 区 间 长 度 


f =yY(index)*(2x(t-x(index))+nh)x(t-x(index+l))^2/nhnhnh 二 ... 
Y{(indqex+l1)*(2x(xX(inqex+l)-t)+h)x(t-x(index))^2/nhh + .，.. 
ml(inaqaex)*(t-x(indqex))x(x(indqex+1)-)^2/hh 一 ... 
ml(index+1l)*(x(inadex+1)-c)x(t-x(indqex))^27/nh]ph; 





gxX0 所 在 区 间 的 插值 函数 
f0 = sups(f,，'t'，x0)， sx0 处 的 插值 
第 一 类 三 次 样 条 插值 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 第 一 类 三 次 样 条 
插值 多 项 式 ， 并 计算 当 x=4.3 时 >y 的 值 。 














解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:8; 
>> Y=[ 0.8415 0.9093 0.1411 -0.7568 -0.9589 -0.2794 0.6570 
0.9894]:; 

>> [f,f0]=ThrSample1(x,y,0.5403,-0.1455,，4.3) 

=(-3408335435861847/2251799813685248x*t+23858348051032929/4503599627370496)r* 
(t-5)^2+(-95009442133087537/9007199254740992+86372220120988677/4503599627370 
496x*t)*x (tr-4) “2+(-5851300015778661/9007199254740992xt+5851300015778661/22517 
99813685248)*(5-t)^2-(25393349669186305/18014398509481984-5078669933837261/ 
18014398509481984x*t) *(t-4)^ 人 2 

g% 计 算 x=4 .3 时 的 插值 输出 值 f0 


ft0 = 三 --0.9137 
全 合 出 的 ， 0 
) 对 于 第 二 类 边界 条 件 ， 靖 满足 的 方程 组 与 ( 1 ) 是 一 样 的 ， 不 同 的 是 
Lo = AN 二 1] 
3(7 一 yo) 1，， . 
一 一 一 -一 一 .， N -1 
页 了 加 (=12……,NV-DT 
-30%- 站 -1U) + yy 
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| 在 MATLAB 中 编程 实现 的 第 二 类 三 次 样 条 插值 法 函数 为 ，ThrSample2 
| 功能 : 求 已 知 数据 点 的 第 二 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
调用 格式 : [ff0] = ThrSample2 (xyy2_1.y2_Nx0) 





其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 


y2_1: 左 端点 的 二 阶 导 数 ; 

y2_N: 右 端点 的 二 阶 导 数 ; 

XO0， 播 值 点 的 x 坐标 ; 

f; 求 得 的 三 次 样 条 插值 多 项 式 ; 
f0: 求 得 的 x0 处 的 插值 。 





在 MAILAB 中 实现 第 二 类 三 次 样 条 插值 法 的 代码 如 下 所 示 : 


function [ft,f0] = ThrSample2 (x,y,y2_1，Yy2_N,X0) 
g 求 已 知 数据 点 的 第 二 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
g 已 知 数据 点 的 x 坐标 向 量 : x 

g 已 知 数据 点 的 y 坐标 向 量 : y 

g 左 端点 的 二 阶 导 数 ;， v2_1 

g 右 端点 的 二 阶 导 数 ;，Yy2_N 

g 播 值 点 的 x 坐标 ，x0 

g 求 得 的 插值 多 项 式 : 革 

g% 求 得 的 x0 处 的 插值 : f0 


SYms 七 

上 =0.0:; 

f0 = 0.0:; 

If (Length(x) 一 length(y)) 
mn = Length(x) 

elSse 
disp('x 和 Yy 的 维 数 不 相 等 | ') ; 
Yetutrnmny， 

enda g 维 数 检查 


for 工 =1 :DT 
IE(X(I)<=x0)&& (x(i+lL)>=x0) 
JinadeXx = 工 ; 
Dreak: 
enmndQ 
end g 找 到 x0 所 在 区 问 
for =1 :DTn 
IE(X(I)<=x0)S& (xf(i+l)>=x0) 


inaex = 工 ; 
Dreaky; 
emnaQ 
end g 找 到 x0 所 在 区 间 
&R = qiag(2x*ones(1,mn) ); g 求 解 m 的 系数 矩阵 


Aftl,2) = 三 1; 
Ann-1) = 1; 
u = zeros (n-2 ,1T):; 
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Jamaqa = Zeros (n-1, 1) : 


C = zeros(ny1):; 
for 工 =2 :mn 一 1 
ul(i-l) = (x(i)-x(i-L))/(X(+L) -xf(i-1)) 
1amdqaf(I) = (X 全 ( 工 +1) 一 X(I 一 1) ) ， 
clti) = 3*1amda(i)x(y(i)-y(i-L))/(X(I)-x(i-1) ) 十 
3*xul(i-L)*x(y(i+l)-y(i))/V(X(i+tL) 一 X(I)) 
Ai，i+l) = ul(i-1)， 
Alti，i-1) = lamda(i); sg% 形 成 系数 矩阵 及 向 量 < 
enmdQ 
ct(1) = 3x*(y(2)-y(1))V/(X(2)-x(1))-(xX(2)-x(1))*y2_17/2， 
cn) = 3*(yY(n)-Yy(n-l1))/ (xn)-x(n-1)) 一 (xn)-x(n-1))xy2_NV2; 
m = followup(R,c):; g 用 追赶 法 求解 方程 组 
h = xf(index+1) - x(index);，  %x0 所 在 区 间 长 度 


于 =Y(inaex)*(2x(t-x(indqex))+h)x(t-xf(indqex+l1))^2A 和 hh + ... 
Y(indqex+1)*(2*(X(index+1l)- 上 )+h)x(t-x(index))^2/nh/nh/h + ... 
m(indqex)*x(t-xf(indqex))*(xf(indqex+l)-t)^2/nhMnh -- ..， 
m(Iinqex+1)x*(xX(index+lL)-c)*(t-x(indqex))^27nhAh， 

sxX0 所 在 区 间 的 插值 函数 
f0 = subs(f,'t'v,x0); sx0 处 的 插值 


第 二 类 三 次 样 条 插值 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 第 二 类 三 次 样 条 


插值 多 项 式 ， 并 计算 当 *= 4.3 时 > 的 值 。 
5 6 7 8 
-0.9589 | -02794 | 06570 0.9894 
0.9589 02794 | -06570 | -09894 




















解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ， 


>> X=1:8:; 

>> Y=[ 0.8415 0.9093 0.1411 -0.7568 -0.9589 -0.2794 0.6570 
0.9894]; 

>> [ft,f0]=ThrSample2(x,y,-0.8415,-0.9894,4.3) 


于 三 

(-34083354358618477/2251799813685248x*t+23858348051032929/1450359962737049 
6)*(t-5)^2+(-95009442133087537/9007199254740992+8637222012098867/4503599627 
370496*t)*(t-4)^ 人 2+(-2909697190512605/4503599627370496x*t+2909697190512605711 
25899906842624)*(5-t)^2-(6087063306293405/4503599627370496-1217412661258681 
/4503599627370496xt)* (tt 一 4)^ 人 2 

狗 计 算 x=4.3 时 的 插值 输出 值 f 

ft0 = -0.9125 


站 的 数据 点 是 按 >= sinx 给 出 的 ， 而 sin4.3=-0.9162 。 
) 对 于 第 三 类 边界 条 件 ，za 满足 的 方程 组 如 下 所 示 : 





1110 三 1IN 
4 2 2vr 4 GOw 一 mw- ,6On 2) 
A 加 hv- jn PN 队 


1 +210 二 HL=ciG=12…, NM-]D) 
94 知 色 知 多 














写成 矩阵 形式 为 ， 
2 轴 用 1711 Cl 
人 2 /12 1722 C2 
和 : |-| : 
2 AN-l | mw-l CN-1 
AN 4 2 7112N CN 
各 参数 的 意义 如 下 ， 
加 
4w 二 ,LN = 一 AN 
3(- 一 一 和 二 和 2 一 ?1) 
cv = 而 Aiwv-i 
PN_lI + 加 ,=]12…,NV 一 TD 
国人 pi 
十 记 让 夺 二 志 + 有 
= 3 ( 太 一 0D 二 3H Or 一 六 ) 
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功能 : 求 已 知 数据 点 的 第 三 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
调用 格式 : [ff0] = ThrSample3 (xy ,x0) 


其 中 ，x; 已 知 数据 点 的 x 坐标 向 量 ; 
y; 已 知 数据 点 的 y 坐标 向 量 ; 


X0: 插值 点 的 x 坐标 ; 
f， 人 | 


在 MATLAB B 中 实现 第 二 关 三 次 样 条 插值 法 的 代码 如 下 所 示 ， 


function [ft,f0] = ThrSample3 (X， YXO) 

g% 求 已 知 数据 点 的 第 三 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
g% 已 知 数据 点 的 x 坐标 向 量 : x 

g 已 知 数据 点 的 y 坐标 向 量 : y 

g 揪 值 点 的 x 坐标 ，x0 

g 求 得 的 第 三 类 三 次 样 条 播 值 多 项 式 : ff 

g% 求 得 的 x0 处 的 播 值 ，f0 


SYmS 七 ; 
= 0.0; 
f0 = 0.0; 


f(length(X) 一 length(ty)) 
Dn = Length(Xx) ， 
elSse 


qisp('x 和 Yy 的 维 数 不 相 等 | ，) ; 


Yeturn 
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end g 维 数 检查 
for =1 :DT 
IE(X(I)<=x0)&& (X(L+1L)>=x0) 
Inaex = 工 ; 
Dreaky; 
enaQ 
endq 


for 1L=1 :也 


g% 找 到 x0 所 在 区 问 





TIE(X(I)<=x0)&& (xf(i+1l)>=xX0) 
inaqex = 工 ; 
Dreak; 
enQ 
endq g 找 到 x0 所 在 区 间 
有 = aqiag(2xones(1,n-1))， g 求 解 m 的 系数 和 矩阵 
DO =X(2)-X(1); 
hl =X(3)-xXx(2): 
he = xf(n)-xX(n-1L1) :; 
Al(1,2) = POPnO+h1) ; 
A(1,n-l)=1 一 A1,2); 
An-1,1) = he/(h0+he) : 
An-l,n-2) = 工 一 An-1, 1)， 
C = zeros (mn-1 ,1) 
cltl) =3x*Aln-l)*(y(2)-y(1))/ho + 3x RAR12)*(y(3)-y(2))7/hl， 
for 1=2:n-2 
us= (X(I)-x(i-L) )V/ X(i-1) )， 
1amaqa = (X(i+Lt)-X(i))V(X(+L) 一 X(i1))， 
clti) = 3xlamdax(y(i) 一 的 T))/(xX(IT) 一 X(IL-1) ) 十 
3x*xux(YyY(i+l)-Y(I))/(X(+L) 一 X( 守 ) ) 
A(i，i+1) = ui 
A(i，i-1) = lamdqa; g% 形 成 系数 和 矩阵 及 向 量 < 
enmd 
ctn-l) = 3x( hex(y(2)-y(1))/ho+hor( y(n)-y(n-L))/he)y/ (ho+he) 
m = 三 Zeros (ny, 工 ) :; 
[Im(2:n),Q,R] = Grxq(RA,c)， gs 用 ar 分 解法 求解 方程 组 
1) = Im(Dn) ; 
xl(indqex+1) - xl(index); 8g%x0 所 在 区 间 长 度 
Yyf(inaqex)*x(2x*(t-x(indqex))+h)x(t-x(indqex+1))^2/h/hh + ... 
Y(index+1)x(2*x(X(index+1l)-)+h)x(t-x(index))^2/hnh/h + ... 
m(Iinaex)x*(t-x(indqex))x(x(indqaex+l)-c)^2/hnh - ..， 
m(Indqex+1l)*(x(inaqex+l)-)x(t-x(index))^27/h/nhi 
sx0 所 在 区 间 的 插值 函数 
f0 = subs(E，'t',x0) ; sx0 处 的 插值 


第 三 类 三 次 样 条 插值 应 用 实例 。 根 据 下 面 的 数据 点 求 出 其 第 三 类 三 次 样 条 


插值 多 项 式 ， 并 计算 当 x=4.3 时 y 的 值 。 








2 3 
0.9093 0.1411 





4 ] 6.2832 
-0.7568 -0.9589 0 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 
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>> X=[0 1 2 3 4 5 6.2832]: 

>> Y=[ 0 0.8415 0.9093 0.1411 --0.7568 -0.9589 0]: 

>> [ft,f0]=ThrSample3(x，y,4.3) 

f = 

(-946/625*xt+3311/625)*x(t-5)^2+(-105479/10000+9589/5000xt)x(t-4)^2+(-8015 
178787200365/9007199254740992x*t+8015178787200365/2251799813685248)*(5-)^2 一 
(-42507782961253755/9007199254740992+8501556592250751/9007199254740992xt)x*( 
七 一 4) 人 2 

g 计 算 x=4 .3 时 的 插值 输出 值 f0 

ft0 = -0.8718 


和 和 二 本 给 时 的 ， 而 加 43= -09102。 < 这样 选取 是 为 了 满足 
值 条 件 ， 但 是 由 于 计算 误差 ， 使 得 sin 6.2832 不 精确 等 于 0， 因 此 结果 有 一 定 的 误差 。 


4.7.3 B 样 条 插值 


B 样 条 插值 也 称 为 等 距 节 点 三 次 样 条 插值 。B 样 条 函数 是 最 基本 的 样 条 函数 。 它 是 
于 磨 光 函 数 而 形成 的 。 磨 光 函 数 也 就 是 把 函数 作 一 次 不 定 积分 ， 然 后 进行 一 次 步 长 为 hn 的 
对 称 差 商 运算 , 得 到 的 结果 就 是 一 个 磨 光 函数 。 利用 磨 光 函数 对 于 插值 节点 进行 平滑 处 理 ， 
这 样 得 到 的 结果 就 是 一 个 基本 的 样 条 函数 。 如 果 使 用 K 次 的 磨 光 函 数 的 话 ， 得 到 的 插值 样 
条 函数 就 为 k 次 B 样 条 函数 


如 果 节 点 之 间 是 等 距 的 ， 设 丰 =Q+iGE= 0 天 








叶 插 值 函 数 可 写成 : 





7 十 1 


PCO = 之 cj93( 一 





也 - 廊 。 





其 中 93( 一 二 一 方 为 B 样 条 。 根 据 不 同 的 边界 条 件 可 得 出 不 同 的 系数 ， 如 上 小 节 一 
尾 ， 第 _ 种 条 件 下 的 系数 求法 如 下 所 示 


4 2 co 6yo +2jy0 
1 4 Cl 07 
| : |= : 
1 4 1jco 0ym-1 
2 4| ec 6 一 21， 
求解 出 co,ct- ， 和 再 用 下 面 的 式 子 求 出 c-4 和 cr 
C_1 三 Cl 一 2j0 
四 二 Cn=-i 一 2jn 





于 是 插值 函 函数 为 PO= wosC 
1 


后 
和 在 二 ， BSsample 
功能 : 求 已 知 数据 点 的 第 一 类 了 B 样 条 的 插值 


调用 格式 : 名 =BSample(ab nyy_1.y_N,xO) 
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其 中 ，a: 区 间 左 端点 
b: 区 间 右 端点 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 
n : 区 间 等 分 数 ; 


y_1 : 左 端 点 的 一 阶 导 数 ; 
y_N: ， 右 端 点 的 一 阶 导 数 ; 
X0: 插值 点 的 x 坐标 ; 
f0， 。 求 得 的 x0 处 的 插值 。 


在 MATLAB 中 实现 第 一 类 B 样 条 插值 的 代码 如 下 所 示 ， 


function ft0 = BSample(a, pny,y 1,y_N,x0) 
gs 求 已 知 数据 点 的 第 一 类 B 样 条 插值 
sg 区 间 左 端点 ， 已 

区 间 右 端点 : b 

区 间 等 分 数 : n 

g 已 知 数据 点 的 y 坐标 向 量 : y 

g% 左 端点 的 一 阶 导 数 ;: y_1 

g 右 端点 的 一 阶 导数 ;: y_ 

g 插 值 点 的 x 坐 标 : x0 

%x0 处 的 播 值 : f0 

f0 = 0.0:; 

Rh = (pa)/n; 

Zeros (n+3 ,1) : 


G 





Ge 


吕 
中 省 


Zeros (n+1, 1) : 

for =0 :nm 一 1 

工 E(a+Ixh<=x0) && (a+ixh+h>=Xx0 ) 
inaeX = 工 ; 


break'， 
enQ 
end g 找 到 x0 所 在 区 间 
A = Qiagl(4xones (n+1,，1)) 
工 三 eyef(n+l,n+lL): 


AL= [I(2:n+l,:));zeros(1,n+L)]; 
AU = [zeros(1,n+l);I(1:ny，:)]; 
A = RHRALH+AU; g 形 成 系数 矩阵 
for =2 :mm 
P(i,1) = 6xy(I); 
endQ 
pbp(1) = 6xy(1)+2xhxy 1; 
D(n+l1) = 6xy (n+l) 一 2*hxy_N; 


Q = followup(&a,b): g 用 追赶 法 求 出 系数 
cl(2:n+2) = qdq; 
C(1) C(2) 一 2xhxy 1， 委 C (一 1) 


) = Cl(3)+2xhxyv_ NI; gc (n+1) 
X1 = (a+indqexx*h-h-x0) /hy; 
cl(indqex+l)*(-((abs(xlL))^3)/6+(xXL)^2-2xabs(x1)+473) ， 
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X2 = (a+indexxh-x0) /ny; 

m2 = cl(index+2)x*((abs(X2))^37/2 一 (xX2)^ 人 2+273); 

X3 = (a+indexx*h+h-x0) /hy 

nm3 = cl(indqex+3)*((abs(xX3))^372--(x3)^ 人 2+2713) ; 

X4 = (a+inaexrxh+2xh-x0) hy; 

m4 = cl(index+4)*x(-((abs(x4))^3)7/6+(XxX4)^2-2xabs(X4)+47/3) ， 
f0 = ml+m2+m3+m4 ; g 求 出 插值 


第 一 类 B 样 条 插值 应 用 实例 。x 为 区 间 [0,6.2832] 的 等 分 节点 ， 等 分 份 数 
为 10， 而 y=SsinxX o 求 出 当 x= 2.8 时 ， 第 一 类 了 B 样 条 播 值 的 y 值 。 
解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> x=0:6.2832/110:6.2832; 
>> Y=Sin(X) ; 
>> f0 = BSample(0,6.2832,10,y,1l,cos(6.2832),2.8) g# 计 算 x=-2.8 时 的 播 值 输出 值 


ft0 = 三 0.3352 
而 sin 2.8 = 0.3350 ， 从 插值 的 结果 来 看 ， 误 差 不 超 过 0.06%。 
B 样 条 的 定义 如 下 
0 |z 这 2 
Q3 =」10.5| 寺 -她 +213 四 sl1 


-| 对 16+ 妇 -2|+413， 1<| 对 <2 
对 于 第 二 类 B 样 条 ， 其 系数 求解 公式 为 


2 


4 6 嫉 一 加 十 全 
1 Cl 06 
1 4 本 C2 6y2 
。 1 : |_ 。 
1 4 1||c 60yn-2 
1] 4 Cn-l 刀 ? 


6ym1 一 mr + 匠 罗 
求解 出 ccz，……cml 后 ， 再 用 下 面 的 式 子 求 出 c_ ， C0， cn 和 cn+l : 


C-1 三 2co 一 Cl 十 2y0 
2 


c = 加 -二 加 


“ 
Cn 三 yn 本 
carl=2cn 一 cr 十 肛交 
程序 的 求解 过 程 大 体 不 变 , 只 不 过 在 用 追赶 法 求解 系数 c; 的 时 候 稍微 改 一 下 矩阵 4 和 
向 量 心 即 可 。 
对 于 第 三 类 B 样 条 ， 其 系数 求解 公式 为 : 
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1 4 C2 0y> 
1 : : 

1 4 1 Can-1l 06yr-1 

1 4 CP 6y0 


而 cn+l = clco =coc-1=coloe 其 程序 更 简单 ， 读 者 参考 第 一 类 了 B 样 条 的 代码 就 可 以 很 
快 写 出 来 。 


所 谓 有 理 分 式 插值 ， 就 是 寻求 如 下 形式 的 有 理 分 式 函 数 : 
R， -2 十 QIX 十 … 十 Gan 
bo 十 DiX 二 十 Po 
满足 Ron)= co)。 
在 已 知 /2 ) 的 情况 下 ， 可 以 通过 以 下 两 种 算法 来 得 到 R，: 
1. 反差 商 - 连 分 式 算法 
定义 一 阶 反差 商 的 计算 公式 如 下 所 示 : 


-1 Xi 一 X0 
jxo,xor = 一 一 


jx 一 xzo) 
一 般 情 况 下 ， 上 阶 反差 商定 义 为 : 


，. -!L 一 一 姑 --1 
大 [xzo,xl， ,Ko] 站 ， .2 ] 加 Do ， -xi] 
显然 ， 反 差 商 就 是 均 差 的 倒数 。 仿 照 均 差 表 ， 可 构造 如 表 4-4 所 示 的 反差 商 表 。 
表 4-4 反差 商 计算 表格 


一 阶 均 差 二 阶 均 差 三 阶 均 差 














jxo,xa 


1 





Jj[xo,tz] [ro,xb xz 本 











[mo [ro 和 0， 妆 ] [oa 


一 -! -1 -1 
[zxo,zn] 了 [xo,xixr] [zonesz] …: 























则 最 终 的 插值 公式 可 表示 为 : 


民 nan 二 (xzo) 十 
J[xo,aa] 一 + 





诈 一 X2 
才 一 Xr-] 


， - 
[zx 





-1 
J[xo,xz2] 十 
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条 十 相 在 对 应 的 有 肖 办 式 所 村 医 吉 0 





这 定 双 维 十 的 并 Co] 级， 并 








“在 MATLAB 中 编程 实现 的 有 理 分 式 形式 的 反差 商 插值 法 函数 为 ; DCS 
功能 .用 反差 商 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
调用 格式 : f= DCS (xy) 或 人 f= DCS (xy'x0) 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y， 已 知 数据 点 的 y 坐标 向 量 ; 
x0 插值 点 的 x 坐标 ; 
了 求 得 的 有 理 分 式 形 式 的 插值 分 式 或 是 在 x0 处 的 插值 。 





在 MATLAB 中 实现 有 理 分 式 插值 ( 反差 商 算法 ) 的 代码 如 下 所 示 ， 
function 工 = DCS(xyv yy X0) 
g% 用 反差 商 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
g 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g 揪 值 点 的 x 坐标 : x0 
g 求 得 的 有 理 分 式 形式 的 插值 分 式 或 是 在 x0 处 的 插值 ,ff 
SYmsS 七 ; 
if(Iength(x) 一 length(y)) 
nn= lencth(X 广 ); 
Cl(1:n) = 三 0.0; 
elSse 
qisp('x 和 Yy 的 维 数 不 相等 ! ' ) ; 
工 eturDn7 
emndQ 
ct1) =Y(1) 7 
for (1I=1:n-1) 
for(j=i+l:n) 








y1(3) = (x()-x(ti))/Y()-y(i))， gs 计 算 反 差 商 
enmaQ 
cf(i+1l) = YL1(I+1) ， 
Y = YL; 
enmnd 
ff = CD)，; 
for (II=1:n-1) 
王 = cn-i) 二 (tx 人 (nn 于 )) VE， g 揪 值 公式 的 连 分 式 递 推算 法 
三 = vpal( 人 ft,6)， 
IE (1 一 mn 一 1) 
it (nargin 一 3) 
f = Subs(f，' tv，xXx0O) ， 
elSse 
上 = vpa(f ,6) 
endaQ 
enaQ 
eIQ; 


有 有 理 分 式 插值 法 ( 反差 商法 ) 应 用 实例 。 根 据 下 面 的 数据 点 ， 用 有 理 分 式 
详 遂 二 本 101 





RATLAB 语言 常用 算法 程序 集 
的 反差 商 形式 进行 插值 ， 并 计算 当 x=1.44 时 y 的 值 。 





解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=-1:0.2:1.8; 

>> y=[1 1.0954 1.1832 1.2649 1.3416] 

>> f=DCS (xyY) 

f = 
1.+(t-1.)/(2.09545+(t-1.20000)/(2.27866+(t-1.40000)/(1.83429+.383649xt) ) ) 

>> f=DCS(x,y,1.44) ，g 计 算 x=1.44 时 的 插值 输出 值 王 

f = 1.2000 


表格 中 的 数据 点 是 按 ”= Vx 给 出 的 ， 从 插值 结果 看 ， 偏 差 也 不 大 ,如 果 增 加 插值 点 的 
个 数 ， 精 度 会 更 高 。 
2.，Neville 迭代 算法 

由 Nevile 迭代 算法 得 到 Rn 的 迭代 公式 如 下 所 示 : 





0,K=0 

6) 大 =1 
Aik(Cz) = 四 四 , 委 上 < 1 一 12 ,天 

Ai 一 Ni_Uk_ICX 
大- ,天 之 2 
+ 一 辣 [1_ Nik-IOO 一 NICO) 
大 一 大 NeI( 贡 一 Nt-2(X) 

将 算法 列 成 表格 如 下 所 示 : 














在 MAILAB 中 编程 实现 的 有 理 分 式 形式 的 Neville 插值 法 函数 为 : Neville 
功能 : 用 Neville 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
调用 格式 : f= Neville (xy) 或 f= Neville (x,yxO) 
其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y; 已 知 数据 点 的 y 坐标 向 量 ; 
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L 








x0， ”插值 点 的 x 坐标 ; 
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本 


f:，。。。 求 得 的 有 理 分 式 形式 的 插值 分 式 或 是 在 X0 处 的 二 信 。 


在 MATFLAB 中 实现 有 理 分 式 插值 ( Neville 算法 ) 的 代码 如 下 所 示 : 


function f = Neville(x,Yy，xXO0) 
g% 用 Nevilie 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
g 已 知 数据 点 的 x 坐标 向 量 ; x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g 播 值 点 的 x 坐标 : x0 
g 求 得 的 有 理 分 式 形式 的 插值 分 式 或 是 在 x0 处 的 插值 , 
SYmS 七 ; 
ft(length(x) 一 Jength(y)) 

mn = length(x) : 
elLSse 

qisp('x 和 Yy 的 维 数 不 相等 ! ' ) ; 

TetUurTn 
endaQ 
Y1(1:n) = 七 
for (II=1:n 一 1) 

for (J=i+1:Dn) g 递 推 公式 

if (一 2) sg 注意 递 推 公式 中 的 下 标 范 围 


Y1() = y(j)+(y()-y(j-1))V((t-x(-i))VL-x()))*(T-(Y() 一 


Yy(3j-1L1))/Y()); 


@1Se 
v1() =y()+(y()-y(j-1))/(t-x(-i))VGE-x()))*(I-(Y() 一 
Y(j-1L))Vy()-yY(J-2) ) ); 
endQ 
end 
Y = Y1; 
if (II==n 一 1) 
if(nargin 一 3) 
f = subs(y(n-1)，' 七 '，XO) ; 
所 Se 
f = vpa(y(n-1)，6) 1; 
endQ 


enq 
end 


儿 DB 国 ”有 理 分 式 括 值 法 ( Neville 算法 ) 应 用 实例 。 根 据 下 面 的 数据 点 ， 用 有 理 


分 式 的 Neville 形式 进行 插值 ， 并 计算 当 x=1.44 时 y 的 值 。 








解 ; 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:0.2:1.8: 
>> y=[1 1.0954 1.1832 1.2649 1.3416] ; 
>> f-Neville(x,y)， g% 表 达 式 过 长 ， 在 此 不 再 列 出 
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>> 伟 Neville(x,y,1.44) ” 色 计 算 x=1.44 时 的 插值 输出 值 f 

工 三 工 .0030 

表格 中 的 数据 点 是 按 >= Vx 给 出 的 ， 从 插值 结果 看 ， 偏 差 比较 大 ， 一 般 来 说 欠 代 算法 
的 精度 很 难保 证 。 























如 果 已 知 插值 的 函数 值 ， 要 求 对 应 插值 点 的 x 值 ， 则 可 用 反 揪 值 。 构 造反 播 值 多 项 式 
的 算法 介绍 如 下 : 
从 利用 表 4-4 计算 反差 商 ; 
登 计算 反 插 值 多 项 式 ， 
POD)=a+F[yo(0 一 yo)+ 
7[yoy 070 一 7 二 + 
J [yo (7 一 yo)0y7 一 ) (一 ) 
7 四 遇 失 及 二 站 并 一 一 
功能 : 用 反差 商 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
调用 格式 ，[f ,f0]- FCZ (xyy0) . 


其 中 ，x: 已 知 数据 点 的 x 坐 标 向 量 ， 
y; 已 知 数据 点 的 y 坐标 向 量 ， 
y0， 。 反 插 值 点 的 y 坐标 ， 

f: 求 得 反 插 值 函 数 表达 式 ， 


如， 反 插值 点 的 x 值 。 
在 MATLAB 中 实现 反 插 值 算法 的 代码 如 下 所 示 ， 


function [f,x0] = FCZ(x,yvy0) 
g 用 反差 商 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 揪 值 分 式 
g 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g 插 值 点 的 y 坐标 : v0 
g 求 得 反 揪 值 函数 表达 式 : 芋 
g% 求 得 反 播 值 点 的 x 值 : f0 
SYmS 七 ; 
If(1lengtnh(x) 一 Jength(ty)) 
nm = Tength(X) ; 
Cl(1:n) = 三 10.0:; 
已 1Se 
qisp('x 和 Yy 的 维 数 不 相 等 | ') ; 


etUzDn 7 





GDnd 
ct(1) =Xx(1); 
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Y1T = X; 
for (ii=1:n 一 1) 
for (]J=i+l:Dn) 





Y2(]J) = (yl1(j)-y1(i))V()-y())， g% 上 反差 商 
end 
Cf(i+1) = Y2(I+1)， 
Y1 = Y2; 
enmQ 
f=cCGL)， 
for (ii=1:n-1) 
ff = Cl(Ii+L); 
for (jJ=13:1) g 反 插值 多 项 式 的 项 
ff = ff*(t-y())， 
enaQ 
f=f+Eff; g% 反 插值 多 项 式 
enQ'， 


x0 = Subs(f，'t'vy0); 


假设 c 是 介 于 加 和 尹 之 间 的 一 个 实数 , 如 果 被 插值 的 函数 为 连续 函数 , 则 在 mm 和 六 之 
间 存 在 某 个 ， 使 得 c= /Goc) ， 求 交 的 另 一 种 算法 步骤 介绍 如 下 。 
兮 0 c 一 /exo) 
@@ 人 -oO [xzoa] 
__ c 一 /xxo) jxzoxt2] 0 
@ ”5+ j 帮 [7xo,z] Do 人 
舍 按 下 面 的 迭代 公式 进行 迭代 计算 ， 
0 如, 辣 , 瑟 ]0rel 一 ao)Czt-L 一 太 ) 


J[xo,x] 


一 2)(xz0 -2 ; 


进行 迁 代 ， 直到 蕊 与 六 之 问 的 插值 小 于 某 个 给 定 的 精度 值 。 


在 MATLAB 中 编程 实现 的 欠 代 反 插 值 函数 为 ，DFCZ 
功能， 用 和 迭代 法 求 已 知 点 的 反 插值 点 | 
调用 格式 : xf= DFCZ (x,y,y0,eps) 
其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ， 
y: 已 知 数据 点 的 y 坐标 向 量 ; 

y0， 反 插 值 点 的 y 坐标 ; 

eps;， 迭代 精度 ; 
xf， ”， 反 插 值 点 的 x 值 。 


在 MATLAB 中 实现 迭 代 反 播 值 算法 的 代码 如 下 所 示 ， 











function xf = DFCZ(x,y,y0,eps) 
g 用 和 迭代 法 求 已 知 点 的 反 揪 值 点 
sg 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 ， y 
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g 揪 值 点 的 y 坐标 : v0 
g% 和 迭代 精度 ， epS 
g 求 得 反 播 值 函 数 表 达 式 :ff 
g% 求 得 反 揪 值 点 的 x 值 : f0 
If(lengtn(x) 一 Jengtnh(y)) 
交 = length(Xx) ; 
if(nargin 一 3) 
epgs = 1.0e-6: 
enaQ 
e@S 扎 
disp('x 和 y 的 维 数 不 相 等 ! ') ; 
CetutDny7 
end 
for 工 =1 :DTn 
if(y(i)<=y0)&& (y(i+l)>=v0) 
Inaex 三 工 ; 


Dreak， 

endQ 
end g 找 到 y0 所 在 区 间 
tol = 1; 
xf0=X(index)+(y0-y(indaex))*(x(index+l)-x(indaex))/(y(inaqaex+1)-y(inaex)) 
Xft1 = Xf0; 
while tol>eps gs 迭代 找 出 反 插 值 点 

dl1 = (yl(index+2)-y(inqaex))/( x(index+2)-x(inaex))， 

dq2 = (yY(indqex+1l1)-y(index))/( x(index+1)-x(index)) ， 

da3= (dl -qq2)/( xindex+2)-x(index+1) ) ; 


xf = xf0 - Q3* (xft1-Xx(index))x(xf1-xfinaex+1))yva2， 
tol = aps(xft 一 xftl)， 
XfE1 = Xf， 


enQ 


反 插 值 应 用 实例 。 根 据 下 面 的 数据 点 ， 计 算 当 > =1.44 时 x 的 值 。 








解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ; 


>> X=1:0.2:1.8: 

>> Y=[1 1.0954 1.1832 1.2649 1.34161]:; 

>> [tf,X0] =FCZ(X,y,1L.44) 

ft =-616680776470671/562949953421312+11796307298919837/562949953421312xt 十 
(2814749767106517/281474976710656*t-281474976710651/281474976710656)x(t-175x 
30”^(17/2) )+(5437323133546911/39614081257132168796771975168x*t-543732313354691 
1 /39614081257132168796771975168)*(t-1/5x*30^(1/2) )*x(t-1/5x*35^(17/2)) 上 +(-419969 
3426240639/4951760157141521099596496896x*t+4199693456240639/4951760157141521 
0393596496896)*(t-1V/5*30^ 人 (17/2))x(t-1V/5x*35^(1/2))*(t-275x10^(172) ) 

g 计 算 v=1.44 时 的 x 值 
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X0 = 2.0736 


表格 中 的 数据 点 是 按 y= Vx 给 出 的 ,而 当 》=1.44 时 ，1.442 = 2.0736 , 从 插值 结果 看 ， 
是 很 准确 的 ， 而 且 更 重要 的 是 此 例 求 的 是 外 播 点 的 值 。 

再 看 看 迭代 反 插 值 的 应 用 ， 题 目 仍然 如 例 4-15 所 示 : 

>> XO=DFCZ (xy 1.1) 

X0 =1.2101 

当 y=1.1 时 ，1.! =1.21， 可 见 结果 也 是 相当 精确 的 。 

一 般 来 说 , 反 插值 可 以 用 来 求 函 数 的 根 , 例如 要 求 妇 -3x2+x+1=0 在 区 间 [0.5.1.4] 的 
一 个 根 ， 则 可 以 用 以 下 的 方法 求解 : 

>> X=0.5:0.16:1.4; 

>> for i=1:6 

Y(Ii)=x(i)^ 人 3-3xx(i)^ 人 2+x(i)+1， 
endQ 

>> [f,Xx0] =FCZ(xX,y，0) 

于 =5274/3523-2500/3661*t+(-8609847242294533/36028797018963968xt+602689306 
?36061731/288230376151711744)* (t-5770876533715533/9007199254740992)+(-678135 
?464980797/36028797018963968x*t+47469516254865579/288230376151711744)x (t_577 
0876533715533/9007199254740992)* (t-1595030872826553/4503599627370496)+(-672 
3573403253353/172057594037927936xt+47107013822773471/576460752303423488)* (t- 
5770876533715533/9007199254740992)* (t-1595030872826553/14503599627370496)x 人 
-30053978148901/2251799813685248)+(-8666552771671405/144115188075855872xt+6 
0665863401699835/1152921504606846976)*(t-5770876533715533/9007199254740992) 
“(t-1595030872826553/4503599627370496)* (t-90053978148901/2251799813685248)+* 


(t+312162504571559/1125899906842624) 
X0 = 工 .0000 


经 过 验证 可 以 得 出 x=1.0 确实 是 方程 a -3x2+x+1l1=0 的 一 个 根 ， 当然 区 间 要 适当 细 
分 才能 得 到 精度 比较 好 的 根 。 


二 维 插值 


前 面 讲述 的 都 是 一 维 插值 ， 即 节点 为 一 维 变量 ， 插 值 函数 是 一 元 函数 ( 曲线 )。 若 节 
点 是 一 维 的 ， 插 值 函数 就 是 二 元 函数 ， 即 曲面 。 例 如 在 某 区 域 测量 了 若干 点 ( 节点 ) 的 高 
程 ( 节点 值 ) 为 了 画 出 较 精确 的 等 高 线 图 ， 就 要 先 插入 更 多 的 点 ( 插值 点 )， 计 算 这 些 点 
的 高 程 ( 插值 )。 


4.10.1 “分 片 双 线性 插值 


双 线 性 插值 是 由 一 片 一 片 的 二 次 曲面 空间 构成 。 
定义 德 形 网 格 
QG 一 MX<X<…< 思 = 


C=yo<y<…<ym=Q 
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在 其 上 给 出 函数 值 ， 
zy 门 = 太 0 冬 i 和 过 10 芝 ) 和 了 
在 矩形 网 格 上 的 某 个 小 片 Le-,z]x[y 六 ,>y 门 上 的 双 线 性 插值 函数 为 : 


ZL(xz,y)=a+pxr+cy+ay 
其 中 ， 
Q 1 Xi yj 和 -yy 广 | ZL, 广 1 
必 | 1 太 和 2 
cl 11 2 yj) 1y7 ZL 
d 1 五 yi 和 7 六 2 六] 


在 MATLAB 中 编程 实现 的 双 线 性 插值 函数 为 DL 
功能 : 用 双 线 性 插值 求 已 知 点 的 插值 
调用 格式 : 包 = DL (x,y,Z,x0,y0) 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 
乙 : 已 知 数据 点 的 z 坐标 矩阵 ， 
揪 值 点 的 x 坐标 ; 
播 值 点 的 y 坐标 ; 
插值 点 的 z 值 。 





在 MATLAB 中 实现 双 线 性 插值 的 代码 如 下 所 示 ; 


tunction fz = DLLIx,y,Z,xX0,y0,eps) 
g 用 双 线 性 插值 求 已 知 点 的 插值 
g 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
gs 已 知 数据 点 的 z 坐标 矩阵 Z 
g 播 值 点 的 x 坐标 : x0 
g% 插 值 点 的 y 坐标 ; y0 
g 求 得 插值 点 的 z 值 : fz 
D = Lengtnhf(x) : 
m = Length(y) ; 
for 工 =1 :了 
IE(x(I)<=x0)S& (XxX(i+l)>=Xx0) 
inaex X = 工 ; 
Dreak:; 
enmdQ 
end g 找 到 x0 所 在 区 间 
for =1:m 
If(y(i)<=y0)&& (y(i+1)>=v0) 
inaex yy = 工 ; 
Preak:; 
emnd 


enaQ g 找 到 v0 所 在 区 间 
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1 x(index_x) yl(index y) x(inaex_x)*x Y(inaqaex y):; 

1 x(index_x+1) y(index _y+1) x(index_ x+1)*x Y(indqex_Yy+l1) 

1 xf(index_x) y(index y+1) x(index_x)* Y(iIindex Y+1T):， 

1 xl(inadex_x+1) yv(inGex y) X(index_ x+1)* y(indqex y)j; 

1iA = InVv(A) 

B=iaAxr[Z(index xindqex_y);， 2Z(index_x+l,index_y+1); 2(inaqaex_x, inaex_ Y+1) : 
Z(inadqex_x+1,， index _ Yy)]: 

fz = [1 Xx0 Yy0 x0xy0]>xB; 


区 分 片 双 线性 括 值 应 用 实例 。 根 据 下 面 的 数据 点 ( 表格 中 的 值 是 z 值 ， 按 昭 
z=sinxcosy 给 出 ) 计算 当 x=2.08,y=3.77 时 z 的 值 。 



































-0.9207 


-0.2683 -0.2107 























解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:6: 

>> Y=2:7; 

>> Z=Slin(X) xcos (yy) 

乙 一 
-0.3502 -0.8330 -0.59500 0.2387 0.8080 0.6344 
-0.3784 -0.9002 -0.5944 0.2579 0.8731 0.6855 
-0.0587 -0.1397 -0.0922 0.0400 0.1355 0.1064 
0.3149 0.7492 0.4947 -0.2147 -0.7267 -0.5706 
0.3991 0.9493 0.6268 -0.2720 -0.9207 -0.7229 
0.1163 0.2766 0.1826 -0.0793 -0.2683 -0.2107 

>> fz=DL(x,y,z,2.08,3.77) # 计 算 x=2.08,y=3.77 时 的 插值 输出 值 fz 


fz = -0.6198 
>> sin(2.08)xcos(3.77) $# 计 算 真 实 值 
amns 一 -0.7063 


由 于 是 线性 播 值 ， 因 此 结果 显然 不 会 太 好 ， 这 从 例题 的 结果 中 也 可 以 看 出 。 


4.10.2 ”二 元 三 点 拉 格 朗 日 插值 
在 矩形 网 格 某 个 小 片 [x_iz]x[y 广 ,>)] 上 的 二 元 三 点 拉 格 朗 日 函数 为 


+29+2 PT+2 无 一 区 9+2 加 
cu)=yy>[[( 一 二 [一 一)mw 
i=p j=dgk=p 和 一 MK 79 7 一 六 
大 尖 1 


其 中 ，xxptlxor 和 yyoryyot2 分 别 为 网 格 中 最 靠近 插值 点 (x0,y0) 的 x 方向 的 坐 
标 和 Yy 方向 的 坐标 。 
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| ”在 MATLAB 中 编程 实现 的 二 元 三 点 拉 格 朗 日 插值 函数 为 ，DTL 
功能 :用 二 元 三 点 拉 格 朗 日 插值 求 已 知 点 的 插值 

调用 格式 ， [ffz ]= DTL (xyZ, x0,y0) 
| 


其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ，; 
y: 已 知 数据 点 的 y 坐标 向 量 ; 
乙 : 已 知 数据 点 的 z 坐标 和 矩阵 ; 


x0: 插值 点 的 x 坐标 ， 
y0: 插值 点 的 y 坐标 ; 
f: 插值 多 项 式 ， 

| 名 :插值 点 的 z 值 。 、 


在 MATLAB 中 实现 二 元 三 点 拉 格 朗 日 插值 的 代码 如 下 所 示 : 


function fz = DTLIX,Y，Z,，X0,Yy0) 
g 用 二 元 三 点 拉 格 朗 日 插值 求 已 知 点 的 播 值 
g 已 知 数据 点 的 x 坐标 向 量 : x 
sg 已 知 数据 点 的 y 坐标 向 量 : y 
gs 已 知 数据 点 的 z 坐标 甜 阵 : 2 
sg 插值 点 的 x 坐标 ，x0 
g 播 值 点 的 y 坐标 : y0 
g% 播 值 多 项 式 : f 
g 求 得 插值 点 的 z 值 : fz 
SymsS S 七 ; 
fE = 0.0; 
了 LE = Lengthn(X) ; 
m = Jength(y) 
for =1 :mn 
1IfE(x(1)<=X0)&S& (x(Ii+1L)>=x0) 
Inaex X = 工 ; 
Preak; 
enQ 


end g 找 到 x0 所 在 区 间 
for =1:m 
if(y(i)<=y0)&& (y(i+1)>=v0) 


1Inaex_y = 工 ; 
Dreak'; 
emdQ 
endq g 找 到 0 所 在 区 间 
It index_X 一 工 
CxX(1:3) = index_x:(index _ x+2) ; 
人 GTSe 
If index_x = 一 mn-1 
CX(1:3) = (inaex_X-1):(inaqex_X+T) 
@1Se 


If abs(x(inqex xx-1)-x0)>abs(x(index x+2)-X0) 


cxf(1:3) = (inadex x):(inaqaex X+2) 
eSe 

cxl(1:3) = (index_x-1):(inaex_Xx+1) ， 
endQ 
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emnGQ 
enmQ 


if inaqex yy 一 工 


插值 


g 找 到 离 x0 最 近 的 三 个 x 坐标 


cy(1:3) = indqex _ y:(inaex Yy+2) ; 
eSe 
if inaqex_ y 一 mm-1 
cy(1:3) = (inaqaex_y-1):(inadex _ y+1): 
elTSe 


If abs(y(index v-1)-Yy0)>=abs(ty(indaex _y+2)-y0) 


cyY(1:3) 
elSse 


cy(1:3) 
end 


= (indqex_y):(inaex Yy+2) :; 


(inaex_Yy-1):(inaex_y+1) ; 


enmd 
enaQ 





g 找 到 离 v0 最 近 的 三 个 y 坐标 
for 1=1:3 


工 三 
(1 
1 三 


modq(i+1l1,， 3)， 
0) 
37 


12 = moaQ(iI+2，3) 
if(i2 一 0) 
1i2 = 3; 
enQ 
ftor J=13:3 
jl = 
了 (了 1 
]jLl = 
endQ 
J2 三 
f(Jj2 
]j2 = 


moQt(]Jj+1，3) 
0 ) 
3; 


modq(j+2,，3) 
0 ) 
3; 


end 


. = f+2(CX(I)，cY())x( 
X(CcX(il)))VX(cCX(I) )-x(cXx(i2)))) 
S- 


(S-Y(CY(jJT) ))*( 


( 蕊 -X(CX(i1) ) )*(-X(CXx(i2)))/(xX(cCX(T) )- 


Y(cy(j2)))/(y(cy())-y(cy(JjL)))Vy(cy())- 
y(cy(j2))) ， sg 揪 值 多 项 式 
enmda 
end 
fz 三 


Subsl(t,'[t sS]'，[x0 y0]); 
一 一 二 占 


二 元 三 点 拉 格 朗 日 插值 应 用 实例 。 根 据 下 面 的 数据 点 ( 表格 中 的 值 是 z 值 ， 
按照 zx=sinxcosy 给 出 计 ) 算 当 x=1.3,y=2.7 时 z 的 值 。 
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解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:6; 

>> Y=2:7); 

>> Z=Sin(X) xcos(y) 

>> [ft,fz]=DTLIX,y，Z,1.3,2.7) 

= -6308200795821975/72057594037927936x (七 -2)x( 臣 -3)*x(SsS-3)*x(S-4)+3751723 
41469/9007199254740992x*(t-2)x*(t-3)x(S-4)x(S-2)-4954159021762373/3602879 
963968*(t-2)*x(t-3)*x(sS-2)*(S-3)+6816670871723695/36028797018963968x (t-3) 
1)*(S-3)*(S-4)-506766213729585/562949953421312x ( 蕊 -3)x(t-1)x(S-4)x(S-2)+ 
4870861913157/18014398509481984x (上 t-3)x(t-1)*(sS-2)*x(sS-3)-8463401478808105 
460752303423488*(t-1)x(LF-2)x(S-3)x(S-4)+786484708481397/1125899906842624 
1)x(t-2)x(SsS-4)*(S-2)-6646750499572631/288230376151711744x (t-I)*(t-2)x(f(s 





(S-3) 

gs 计算 X=1.3,y= 2.7 时 的 插值 输出 值 fz 
ftz = -0.8674 

>> sin(1.3)*cos(2.7) 8# 计 算 真 实 值 
ans 二 -0.8711 


从 例题 的 结果 可 以 看 出 ， 插 值 结果 较 好 。 


4.10.3 “分 片 双 三 次 埃 尔 米 特 插值 


在 矩形 网 格 某 个 小 片 Ce]x[y 产 ,y 门 上 的 双 三 次 埃 尔 米 特 播 值 函数 为 : 
Bi(o7)=[d-Ao) (+2A) Ad-A)2 AxG3-2A) AzA-D] 
(-Ay)2(+2Ay) 


4 Ay(-Ay) 
Ay(3-2A)) 
Ay(Ay -1 
其 中 A。， -= 了 -LA， = 六， 而 (x0,y0) 为 播 值 点 : 
姑 一 妈 -1 姑 一 了 1 
0Oz 09z 
ZL, 广 1 ZL GD) 产 1 人 3) 7/ 
oz oz 
。 < 关 1 民 ai GD 1 人 了 
一 (2)， (人 az) (Ca (3.2 
3 1 一 .7 一 1 ax t 一 1 7 axDy i 一 1 六 ] ax 一 1 ,7 
Oz Oz D?zz 92z 
(3 J 一 1 GD) 了 GD (Gy 了 


在 MAILAB 中 编程 实现 的 分 片 双 三 次 埃 尔 米 特 插值 函数 为 DH 

功能 : 用 分 片 双 三 次 埃 尔 米 特 插值 求 插值 点 的 z 坐标 
调用 格式 : 包 = DH (xyZ, zx,zy,zxyX0,y0) 
其 中 ，x: 已 知 数据 点 的 x 坐标 向 量 ; 
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7 已 知 数据 点 的 y 坐标 向 量 ， 
之， 已 知 数据 点 的 z 坐标 矩阵， 


ZX : z 对 x 的 偏 导 数 和 矩阵 ; 
Zy: z 对 y 的 偏 导 数 和 矩阵 ; 
ZXyY: z 对 x 和 Yy 的 偏 导 数 矩 阵 ; 
x0: 揪 值 点 的 x 坐标 ; 

y0: 播 值 点 的 y 坐标 ; 

亿 ， 插值 点 的 z 值 。 


tunction ftz = DH(X,Y,X0,y0,zX， zy，ZXY) 
g% 用 分 片 双 三 次 挨 尔 米 特 播 值 求 插值 点 的 z 坐标 
s 已 知 数据 点 的 x 坐标 向 量 : x 
g 已 知 数据 点 的 y 坐标 向 量 : y 
g 已 知 数据 点 的 z 坐标 憩 阵 ，Zz 
2 对 x 的 偏 导 数 矩 阵 ，zx 
z 对 y 的 偏 导 数 矩 阵 ，zy 
z 对 x 和 y 的 偏 导 数 和 矩阵 zxvy 
g 揪 值 点 的 x 坐标 ，x0 
gg 插值 点 的 y 坐标 ， y0 
g% 求 得 插值 点 的 z 值 ; fz 
史 = Jength(X) ; 
mm = TIengthty): 
for =1I:DTn 
IE(X(I)<=x0)&& (x(i+1l)>=x0) 
inaex X = 工 ; 
break:; 
endaQ 
end g 找 到 x0 所 在 区 间 
for 工 =1:m 
if(y(Ii)<=y0)&& (y(i+l1)>=y0) 
indqex yy = 工 








在 MAITLAB 中 实现 分 片 双 三 次 埃 尔 米 特 播 值 的 代码 如 下 所 示 : 


Dreak; 
endQ 
end g 找 到 y0 所 在 区 间 
hx = X(index_ x+l1) - xf(index _x) ; 
by = Yy(indqex _y+1) -yl(indqex y); 
tx 三 (xX0 X(index_X) ) /nx:; 多 揪 值 坐标 归 一 化 
ty = (Y0 -~-Y(inaex_y))7/hy: sg 插值 坐标 归 一 化 


HL 三 [(1-EX) 2* (1+2xtX) 七 XxtXx (3 一 2xtX) LXx (1-Lx)^2 txxtxx(tx-1)];， sg% 左 向 量 
HE = [(1ty)^2x(1+2xty) tyxtyx(3-2xty)， tyx(1-ty)^2 ) tyxtyx (ty-1) ] ， g% 右 向 量 


C 一 
zy (Index_Xx，index _y+1) ， 
2(indqex_x+1，inaqex_y) 2(index_x+Hl,inaqex_y+l) 
2ZYy (Indqex_x+1， inaex_y+1) ; 

ZX(indqex xx，jindqex_ y) zy(index _x， Indqex_Yy+l) 


[2(indqex_x，index y) 2(indqex_x, index_y+1) 2y (index_X，indqex_y) 


ZYy (index_x+1，inaqex_y) 


ZXY(Iindqex_X，inqex_y) 
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ZXYy (inaQex_X，jindex_y+1) ; 

zxX(index_x+1，index y) zy(index_x+1，index_y+1) zxy(index_x+1，inaex_v) ... 
zxy (index_x+1，jindex_y+1)]， gsC 和 珑 阵 

ftz = HLxCxHT; 


分 片 双 三 次 埃 尔 米 特 插值 应 用 实例 。 根 据 下 面 的 数据 点 ( 表格 中 的 值 是 z 
值 ， 按 照 z=sin xcosy 给 出 ) 计算 当 x=2.6,y=5$.2 时 z 的 值 。 
































解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X=1:6; 

>> Y=2:7: 

>> Z=SlIn(X) xcCos(y); 

>> ZX=Cos (X) '*xCcos (y) 

>> ZY=-Sin(X) xsSin(y) ， 

>> ZXY=--COoS (X) xsSin(y)， 

>> fz=DH(X,Y，Z，ZX，ZYy， ZXYy，2.6,5.2) 
gs 计算 x= 2.6,y=5S.2 时 的 插值 输出 值 fz 


fz = 0.2322 
>> sin(2.6)'*cos(5.2) sg$g 计 算 真 实 值 
amnSs 一 0.2415 


从 例题 的 结果 可 以 看 出 ， 插 值 结 果 较 好 。 


本 章 介 绍 了 各 种 插值 的 方法 ， 主 要 是 多 项 式 或 分 段 多 项 式 的 插值 方法 ， 因 为 它们 最 便 
于 计算 和 使 用 。 近 几 十 年 来 ， 插 值 法 仍 在 不 断 发 展 中 ， 特 别 是 利用 样 条 函数 的 插值 ， 在 精 
密 机 械 加 工 、 计 算 机 图 形 学 等 领域 有 着 广泛 的 应 用 。 
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本 章 主要 介绍 函数 逼近 和 曲线 拟 合 的 概念 和 算法 。 函 数 逼 近 的 概念 是 按照 一 定 的 准 
则 ， 用 简单 的 连续 函数 ( 或 分 段 函数 ) 来 逼近 较为 复杂 的 函数 ( 或 是 一 组 离散 点 )。 

函数 逼近 的 目的 在 于 更 方便 地 计算 函数 值 和 进行 函数 运算 ( 包括 微 积分 ) 等 。 曲 线 拟 
合 倾向 于 在 一 定 准 则 下 用 一 个 简单 的 函数 来 模拟 一 组 已 知 数据 的 函数 关系 ， 曲 线 拟 合并 不 
要 求 拟 合 曲 线 严 格 通过 每 个 数据 点 ， 只 要 求 在 每 个 数据 点 上 的 残 差 的 某 种 组 合 在 一 定 意义 
上 达到 最 小 就 可 以 了 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 函数 逼近 和 曲线 拟 合算 法 ， 而 且 还 能 熟练 使 用 
MATLAB 编程 来 实现 这 些 算法 。 


切 比 雪夫 通 近 


一 个 连续 函数 定义 在 区 间 [-1J] 上 时 ， 它 可 以 展开 成 切 比 雪夫 级 数 。 即 : 
FOOD= > 万 了 (OO 


7=0 
其 中 妈 (x) 为 闫 次 切 比 雪 夫 多 项 式 ， 具 体 表达 式 可 通过 递 推 得 出 : 
70( 切 =1，() =2 TO=2xX7 (0 一 人 (2 
它们 之 间 满 足 如 下 的 正 交 关 系 : 


0 严 夫 于 
(DCOTCOdz |r 
六 7 7 一 1 基 0 


T，7=71=0 
在 实际 应 用 中 ， 和 县 末 营私 有 限 项 数 。 名 比 雪夫 级 数 中 的 系数 由 下 式 决 定 ， 
_0 
六 = 


-二 了 PP2a 也 0 党 


功能 : 用 切 比 雪夫 多 项 式 逼 近 已 知 函 数 
调用 格式 : f= Chebyshev 0 f= Chebyshev (yk,x0) 


村 ET 一 
_ xx 通 近 局 数 所 需 项 数 ， 


se 





语言 常用 算法 程序 集 


X0 逼近 点 的 X 坐标 ， 
人 ” 求 得 的 切 比 雪夫 逼近 多 项 式 或 是 在 x0 处 的 遥 近 值 。 


在 MATLAB 中 实现 切 比 雪夫 逼近 的 代码 如 下 所 示 : 


function 上 = Chebyshev(y,K,XO0) 

gs 用 切 比 雪夫 多 项 式 通 近 已 知 函 数 

g 已 知 函数 : y 

g% 逼 近 已 知 函 数 所 需 项 数 : k 

g% 通 近 点 的 x 坐标 : x0 

g 求 得 的 切 比 雪夫 逼近 多 项 式 或 是 在 x0 处 的 通 近 值 : 于 





SYmsS 七 ; 

了 T(1:k+l) = 七 ; 

T(1) = 工 ; 

T(2) = 七 ; 

C(1:Kk+l) = 0.0; 

ct1L)=int(subs(y, findsym(sym(y))，sSym(''))x*T(1L)ASsGEL(1LI-^2) ,一 1 1)VPIY 
gs 常数 项 

ct2)=2xlintl(subs(y, finasym(sym(y))， sym( tt))*T(2)7VSGFTLE (1-L^2) ,一 1 ,ITI) VDPI; 


g 一 次 项 系数 
E=cl(1)+C(2)xL， 
fo 工 =3 :十 1 





TUi) = 2x*txm(i-1)-T(i-2) ; g% 切 比 雪夫 多 项 式 的 递 推 公式 
C(i) = 
2xint(sSubs(yy finasym(sym(y))，sym('t7'))xT(T)VASGEL(L-L^2) ,一 1，1)72， 
g 展 开 项 系数 
=fE+cli)xT(I); gs 展开 后 的 多 项 式 
= Vpa(ft,6):; 
IE (1==k+1 ) 
if(nargin 一 3) 
f = subs(f,'t'vx0) ; g 已 知 点 的 切 比 雪夫 逼近 值 
elSse 
= Vpa(f,6); 
end 
end 
enQ 


切 比 雪夫 逼近 应 用 实例 。 用 切 比 雪 夫 公 式 ( 取 6 项 ) 逼近 函数 
当 *x*=0.5 时 的 函数 值 。 
解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 





-， 并 求 


>> f=Chebyshev('1/(2-X) 6) 

于 =.455803+.277012xt+.243094xt^2+.647768e 一 1x*tx(2.xt^2-1.) 十 .173569e 一 1x 七 x 
(2.*xtx(2.xt^ 人 2-1.)-1.xt)+.501051e-2xtx(2.xx(2.xtx(2.xt^2-1.) 一 1L.xtL) 一 2.x 七 “2+T.) 
十 .134256e 一 2xtx(2.xtx(2.xLx(2.xtx(2.xt^2 开 .) 一 1 .xf 七 ) 一 2.xL^ 人 2+1.) 一 2.xtx(2.xt 21.) 
+t) 

>> f=Chebyshev('17(2-x) 6,0.5) 
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第 多 章 ”函数 通 近 





工 = 0.6293 


事实 上 函数 的 准确 值 为 V(2 -0.5)= 0.6667 。 


| 勒 让 德 逼近 


勒 让 德 逼 近 也 要 求 被 逼近 函数 定义 在 区 间 [-11] 上 ， 勒 让 德 多 项 式 也 可 通过 递 推 来 定义 : 
丽 Goo) = 只 = 
(+DPaOO0=(22+DXP (OO 一 mAP-IO0 
它们 之 间 满 足 如 下 的 正 交 关系 : 


) 0 严 关 了 1 
三 88CDPCodx=1 1 
一 1 尹 二 
27 十 1 
勒 让 德 级 数 中 的 系数 由 下 式 决定 : 
2 
万 = 人 2 本 忆 CDO7Codx 





| 在 MATLAB 中 编程 实现 的 勒 让 德 逼近 法 函数 为 ，Legendre 
| 





功能 : 用 勒 让 德 多 项 式 逼 近 已 知 函 数 
调用 格式 f= Legendre (yk) 或 人 f= Legendre (yx0) 





其 中 ，y: 已 知 函 数 ， 

k 盟 近 已 知 函 数 所 需 项 数 ; 

x0: 逼近 点 的 x 坐标 ; 
和 通 近 多 项 式 或 是 在 x0 处 的 通 近 值 。 





在 M MATLAB B 中 实现 惑 让 德 逼近 的 代码 如 下 所 示 ， 


function fE = LegenaQre (y,，K,X0) 

gs 用 勒 让 德 多 项 式 逼 近 已 知 函 数 

g 已 知 函 数 : y 

g 通 近 已 知 函 数 所 需 项 数 : k 

g 通 近 点 的 六 坐标 : XO 

g 求 得 的 勒 让 德 逼近 多 项 式 或 是 在 x0 处 的 台 近 值 : 芋 





SYmS 七 
P(1:K+1) 三 七 ; 
P(1) = 1 
P(2) = 三 七; 
Cl(L:k+l) = 0.0) 
clt1)=int(tsubs(ty, ,findqsym(sym(ty)) ,sym('t'))xP(1) ,1,1)7/2， g% 常 数 项 
ct2)=int(substy,findsym(symlty)) ,sym('c'))xP(2),t -1,1)/2; g% 一 次 项 系数 
ff=cCl(1L)+C(2)xt; 
for =3 :K+1 
P(i) = ((2xi-3)x*P(i-1)*t 一 (II-2)xP(i-2))/ (il1) ， 
cti) = inttsubs(ty,findsym(symlty)),t)x*P(ti),t,-1,1)/2 sg% 展 开 项 系数 
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E=E+ct)xp(i)y g 展 开 后 的 多 项 式 
工 E ( 工 = 一 K+1) 
if (nargin 一 3) 
f = subs (fx0); g 已 知 点 的 勒 让 德 逼 近 值 
elLSse 
f = vpa(E,6): 
emnqQ 
enQ 
ed 


勒 让 德 逼近 应 用 实例 。 用 勒 让 德 公式 ( 取 6 项 ) 逼近 函数 二 ， 并 求 当 
十 一 0. 9 时 的 函 数值 。 
解 : 在 MAILAB 命令 窗口 中 输入 以 下 命令 


>> f=Lecengre('17/(2-xX)'，6) 

f =.539128+.955158e-1xt+.305351e-1xt^2+.154825e-2x(7.50000xt^2-2.50000) 
xt 二 .275682e-3*(2.33333* (7.50000xt^2-2.50000)xt-4.66667x*t)xt+.565953e 一 4x 
(2.25000*(2.33333* (7.50000x*t^2-2.50000)*t-4.66667xt)xt--10.1250xt^2+3.37500) 
xf 二.T16697e-4*(2.20000*(2.25000*(2.33333x (7.50000x*t^2-2.50000) *t-4.66667xt) 
x* 七 -10.1250xt^2+3.37500)x*t-2.93333x(7.50000*t^2-2.50000)xt+5.86667x 七 ) xy 蕊 

>> f=Degenare('1/(2-X) 7，6,0.5) 

芋 = 0.5935 


从 通 近 结果 看 ， 函 数 的 准确 值 为 (2- 0.5) = 0.6667， 与 上 例 相 比 可 以 看 出 勒 让 德 级 数 
的 收敛 速度 比 切 比 雪夫 级 数 慢 ( 因为 取 6 项 示 近 ， 但 是 精度 还 是 很 差 ， 也 就 是 说 为 了 达到 
切 比 雪夫 级 数 相 同 的 精度 ， 勒 让 德 级 数 需要 取 更 多 的 项 数 )。 








可怕 德 逼 近 





帕 德 ( Pade ) 通 近 是 一 种 有 理 分 式 逼 近 。 台 近 公式 如 下 所 示 : 


之 px 
foD=-co 


1+ 2 Ge 
K=1 
大 量 实验 表明 ， 当 元 +M 为 常数 时 ， 取 工 =M ， 帕 德 融 近 的 精确 度 最 好 ， 而 且 速 度 最 
快 。 此 时 分 子 与 分 母 中 的 系数 可 通过 以 下 方法 求解 。 
首先 ， 求解 线性 方程 组 49 = 忆 ， 得 到 (9 ,92，……9gn) 的 值 。 其 中 


Ga 0 0 0 加 
4= 2 4 orl ,9g= 2 .= To 

CC CD 了 
ao =jJ(0),an = 了 2 
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然后 通过 下 式 求 出 (Po, 记 Pr) 的 值 。 


下 
Po = 00,9o =1P = 2 dian 
i=0 





在 MATLAB 中 编程 实现 的 帕 德 逼 近 法 函数 为 ， Pade 
功能 : 用 帕 德 形式 的 有 理 分 式 盘 近 已 知 函 数 
调用 格式 : f= Pade (yn) 或 = Pade (yn,x0) 


其 中 ，y: 已 知 函 数 ; 
n 帕 德 有 理 分 式 的 分 母 多 项 式 的 最 高 次 数 ， 
x0: 通 近 点 的 x 坐标 ; 
f: 求 得 的 帕 德 有 理 分 式 或 是 在 x0 处 的 逼近 值 。 








在 MATLAB 中 实现 函数 的 帕 德 和 逼近 的 代码 如 下 所 示 : 


function 革 = Padqde(y,ny,X0) 

g% 用 帕 德 形式 的 有 理 分 式 逼 近 已 知 函数 

gs 已 知 函 数 : y 

g 有 帕 德 有 理 分 式 的 分 母 多 项 式 的 最 高 次 数 : n 

% 通 近 点 的 x 坐标 ，x0 

g 求 得 的 帕 德 有 理 分 式 或 是 在 x0 处 的 逼近 值 , 上 


Syms 七 ; 





= Zeros (人 mn,D) ; 
三 Zeros (mn,， 1) ; 
= Zeros (n+1 ,1) ; 


ee 


= Zeros (PTI) ， 
YY = 0 
al(1:2x*xn) = 0.0; 
for (=1:2xmn) 
YY = Qifft(sym(y) ,tindqsym(sym(y) ) nl) ; 
al(i) = Subs(sym(yy)，findsvym(sym(yy))，0.0)/factorial(iy) ， 
enmnqQ; 
for(i=1:n) 
for(J=1:Dny) 
A(iT, jj)=a(i+j-1) ， 


end: 
PbP(I,1) = -amn+i); 
enaQ; 
q = ANb:; g 求 出 分 母 的 多 项 式 系数 
P(T1) = Subs(sym(y),ftindasym(sym(y))，0.0); 
for(i=1:n) g% 求 出 分 子 的 多 项 式 系数 
DP{Ii+1) = altn)+q(i)*subs(sym(y)，findsym(sym(y))，0.0); 
for (Jj=2 :1 =-1) 
P(i+l)=p(i+l)+G()xa(i-]j) 
end 
emnd 


翅 二 可 可 119 


了 ATLAB 语言 常用 算法 程序 集 


ft 1=0: 
ff 2 = 1; 
for(i=1:n+1) 
El1=f 1+Pp)*( 人 te 人 (IIL)) 
end 


for (1I=1:m) 
f2=f2+dG()x( 蕊 rz)， 


enQ 
If(nargin 一 3) 
f=f 1/f 2， g 帕 德 通 近 分 式 
f = subs(E,'t',x0); g 已 知 点 的 帕 德 逼近 值 
eJSe 
fE =f1/f 2; 
三 = vpa(E,6); 
endQ 


帕 德 逼近 应 用 实例 。 用 相 德 公式 ( 取 4 项 ) 逼近 函数 一 ， 并 求 当 x=0.5 


时 的 函数 值 。 
解 : 在 MAILAB 命令 窗口 中 输入 以 下 命令 : 


>> f=Pade('17(1-x) 4) 

f =(1.+1.00060*t+.988095xt^2+.821429x*t^3+2.92857xt^4)/ (1.+.595238e 
一 3xft 一 .19048e 一 1xt^2+.107143xt^ 人 3 一 .500000*xt^4) 

>> f=Paaqe('17/(1-x) 4,0.5) 

二 = 2.0757 

从 通 近 结果 看 ， 函 数 的 准确 值 为 JIL-0.5)=2 ， 而 用 4 次 有 理 分 式 的 帕 德 逼近 已 经 达 
到 很 高 的 精度 了 。 


设 函 数 fx) 在 区 间 [a, 忆 的 最 佳 一 臻 逼近 多 项 式 为 p(O=ao+ax+…+wx ， 则 确定 
P(z) 系数 的 列 梅 效 算法 步骤 如 下 。 
代 在 区 间 [m,n] 上 取 +1 次 切 比 雪夫 多 项 式 的 交错 点 组 : 
区 -JIB+a+OB_acos 亿 天 +DT] 天 =0,1……,7+1 
2 丈 十 1 
作为 初始 点 集 。 
例 将 点 集 {5 pr] 代 入 下 式 : 


Jo- an =( 人 -DA (人 =0,1…,m+D 


7=0 
得 到 以 ao,ai……an,A 为 未 知 数 的 线性 方程 组 ， 求 解 此 方程 组 得 到 初始 的 逼近 多 项 式 
PCx o 
古 求 使 /CD - p(o| 在 [wa] 取 最 大 值 的 zf， 设 其 为 E， 按 下 面 的 算法 确定 新 的 点 集 ， 
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。 如 果 关 在 和 为 之 间 ， 并 且 foo)- PCa) 和 JJ-P( 同 号 则 用 关 人 代替 za ， 构 成 


新 的 点 集 ， 


e。 如 果 # 在 和 和 刀 之 间 ， 并 且 /Co) 一 PCo) 和 7 一 (和 同 号 ， 则 用 无 代替 zsrl， 构 


成 新 的 点 集 ， 


e。 如 果 关 在 某 个 嫉 和 xl 之 间 , 并 且 Foi)- po) 入 2- P 状 同 号 , 则 用 X 代 替 Al， 


构成 新 的 点 集 ; 


全 将 伟 中 得 到 的 新 的 点 集 代 替 旧 的 点 集 ， 求 出 新 的 ao,a an, ， 如 果 新 的 人 与 旧 
的 上 的 美 在 给 定 的 精度 范围 内 ， 则 停止， 否则 重复 上 壕 过 程 。 


在 MATLAB 中 编程 实现 的 列 梅 效 算法 为 ， 
功能 :用 列 梅 效 算法 确定 函数 的 最 佳 一 下 台 让 多 项 
调用 格式 : [coff,err]j=lmz(func,m,a,b,eps) 
其 中 ，func， 已 知 函 数 ， 
m: ”最 佳 一 臻 逼近 多 项 式 的 最 高 次 数 ; 
a: 逼近 区 间 的 左 端点 ; 
b: 逼近 区 间 的 右 端点 ; 
eps: 吉 近 误差 的 收敛 控制 精度 
coff， 通 近 多 项 式 的 系数 


在 MATLAB 中 实现 列 梅 兹 算法 的 代码 如 下 所 示 : 


function [coff,err]l= lmz(func,mvav beps) 
g 列 梅 效 算 法 确定 函数 的 最 佳 一 臻 逼近 多 项 式 
g 已 知 范 数 : func 
g% 最 佳 一 臻 逼近 多 项 式 的 最 高 次 数 : m 
“逼近 区 癌 的 下 请 点， 忌 
g% 带 近 区 间 的 右 端 点 
这 训 放 内 愉 约 过 避 生 度 epPS:， 
g% 通 近 多 项 式 的 系数 : coff 
g 台 近 误差 ，err 
if(nargin 一 4) 
epSs=1 .0e-6; 
enQ 
SYmS V7 
maxv= 0.0; 
max_X = 一己 ; g 记 录 abs (E(x)-B(x) ) 取 最 大 值 的 x 
for K=0:m 
DPX (k+1)=pPowez (V，Kk) ; 
end sp (x) 多项式 


for =1L:m+2 . 


xf(i)=0.5*(a+b+(b-a)xcos(3.14159265*x (mr2-T) /Orm+1L) ) ) 


fx(i)=subs(sym(func)，findasym(sym(func)),XxX(IL) ) 


第 号 章 函数 逼近 
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endQ g 初 始 的 x 和 工 (x) 
及 = Zeros (m+2 mr+r2) ; 
for 1=1:m+2 
for ]=1:m+L 
&A(I,])=power(X(I)，J-I)， 


emnQ 
Aivrm+2)=(-1)^ 人 1; 
enaQ 
C =ANtranspose(fEx) : sp (x) 的 初始 系数 
u = cmt2); g% 算 法 中 的 
tol = 1; 精度 
while(tol>eps) 
本 三 7; 
while (t<Db) gs 此 循环 找 出 abs (E(x)-p (x) ) 取 最 大 值 的 x 


上 = 革 +0.05*(b-a)yvmy; 

PDPx1L = Subs(PX，V' 七 ) ; 

Pt PXTL*cl(1L:m+l) : 

芋 七 Subps (sym(tunc)，finasym(sym(Etunc)) ,七 ) ; 
守 f _ abs (一 pt) >maxV 


maxV = abs (ft 一 pt) 
max_X 三 七 ; 
endQ 
end 
IE max_X>b 


max_X = Pb; 


emnaQ 
gs 以 下 可 参考 算法 的 三 个 确定 新 点 集 的 情况 
If (a<=max_X)&&(max _X<=x(2)) g% 第 一 种 情况 


f0 = Subs (sym(func)，ftindqsym(sym(Eunc)) ,xx(2)) 
PXTL = Subs (PX，V'，X(2) 1) ; 
BtL = 三 PX1xCcl(L:m+l) ， 
G1 = f0 一 Bt; 
tm = Subs (sym(func)，finasym(syml(func) ) max X) ， 
BPm1l1 = Subs (PX，V' max X) ; 
pm = DPmLxc(1L:m+l) 
qq2 = fm 一 pm; 
if Q1lx*xdq2>0 
X(2) = max X); 
enmda 
elSe 
if (X(m+1)<=max_Xx)&&(max_x<=b) g 第 二 种 情况 
f0 = Subs(syml(ftunc)，ftindqsym(sym(tunc)) ,xx(mrL)) ， 
PXT1T = Subs(DPXx，V'，X(mrL) ) ， 
PtL = DPX1LxCc(1L:rmrh1L) : 


Gd = f0 一 Bt; 
fm = Subs(Sym(func)，ftindqsym(sym(tunc)) max X) : 
Bm1l = Subs (PX，'VIIaX X) ; 


PBPm = Pmlxc(1:m+l); 
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Q2 = fm 一 pm， 
It Q1xaq2>0 
X(m+1) 三 maX Xr， 
endq 
else g 第 三 种 情况 
for =2:m 
ff(X(I)<=max_X)&R&S (X(iI+L)>=max_Xx) 


Inaqex Xx= 工 ; 


break'， 
emndQ 
endq g 找 到 max_x 所 在 区 间 
f0 = subs(syml(func)，ftinqasym(sym(ftunc)),x(index_x) ) : 
PXT = Subps(Ppx，'vIxX(inaex Xx) ) ， 


Bt = DX1Lxcl(1L:mrl) 

qql1 = f0 一 Bt; 

fm = Subs(sym(func)，ftindqsym(sym(tunc)) max_Xx) : 
DPml = Subs (DX，'V'Ivmax_X) : 

pm = PmLxc(1L:m+lI) ; 

Q2 = fm 一 Prm; 


zf Q1*xdq2>0 
Xf(inaqex xx) = max_ X; 
emndaQ 
enmnd 
endQ 
for ii=1:m+r2 g% 重 新 计算 f(x) 
fx{(1i)=subs(sym(ftunc)，ftindsyml(sym(ftunc)),，xX(I)) : 
enQ 


fotr II=1:m+2 
for ]=1:m+l 
Ai jj)=power(X(I) ，Jj-T) ; 


endQ 
和 (im+r2)=( 一 1) 人 人; 
emnQ 
cC =ANEranspose (Ex) ; gs 重新 计算 p (x) 的 系数 


tol = abs(c(m+2)-u)， 
u = cf(m+2):; 

endQ 

coff = C(1L:m+L) ; 


erTL 三 LU7 


最 佳 一 致 多 项 式 和 逼近 应 用 实例 。 求 函数 = sinx 在 区 间 [0,7] 上 的 5 次 最 佳 
一 致 多 项 式 通 近 。 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ， 
>> Syms V; 
>> Yy=SsSinfV): 
>> [coff,err]j=lmz(y，5,，0,，7) 
coff = -0.0202 
1.1026 
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0.0051 
-0.2809 
0.0670 
-0.0043 


ertr 三 -0.0202 
从 结果 可 以 得 到 函数 y=sinxz 在 区 间 [0,7] 上 的 5$ 次 最 佳 一 致 逼近 多 项 式 为 : 
y=-0.0202+1.1026x+0.0051x? -0.2809xz3 +0.0670x4 -0.004322 

逼 近 误 差 为 -0.0202。 


最 佳 平方 多 项 式 逼 近 


求 定义 在 区 间 [办 ,] 上 的 已 知 函 数 最 佳 平 方 通 近 多 项 式 的 算法 介绍 如 下 。 
息 设 已 知 函 数 /Co 的 最 佳 平方 逼近 多 项 式 为 p0O=a +ax+，…+wxt2， 由 最 佳 平方 


逼近 的 定义 有 : 


人 
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OF(ao,al……,Gan) 
0ai 


其 中 Fooa ao)= 上 (FOOD-ao 一 ax-… 一 anx2)2dx 


=0 (= 0,12……1) 


舍 形成 多 项 式 p(z 系数 的 求解 方程 组 ， 


Ca= 姜 
其 中 : 
人 「 XdX  …: 『 xz dx 「 Xdx 
「 Xdx 「 X2dx  …. 「 X"dx 「 Xmldx 
C = : : ， : : 
六 dx 「 ad 「 2n-2dx ed 


rdr dr 三 edr ed 
roodr 


「 FCDxdx 
万 = : 


「 OoDxrtldx 
『 让 CDxzndx 


功能 : 求 已 知 函数 的 最 佳 平 方 逼 近 多 项 式 
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人 


其 中 ，func， 已 知 函 数 ， 
Im : 最 佳 平 方 通 近 多 项 式 的 最 高 次 数 ， 


a， 逼近 区 间 的 左 端 点 
b: 逼近 区 间 的 右 端 点 


co 任 : 台 近 多 项 式 的 的 系数 。 


在 MAILAB 中 实现 最 佳 平方 多 项 式 逼 近 函 数 的 代码 如 下 所 示 、 
function coft=2ZJPF(ftunc,nyab) 
g% 求 已 知 函 数 的 最 佳 平方 逼近 多 项 式 
人 用 和 func 
最 佳 平 方 逼 近 多 项 式 的 最 高 次 数 : n 
s 示 近 区 站 的 在 请 上 忆 
区 间 的 右 端 
带 近 多 项 式 的 系 和 Coff 
C = Zeros (n+1,，n+1) ; 
var = findqsym(sym(func) ) 





func = funcyvary， 
fo 





(Power (Pb, 守 )-power(a,I)) /ii g 算 法 中 的 c 和 矩阵 的 第 一 行 


工 ) 三 
funa = funcxvar' 
工 ) 


Q(i =int (sym(func) ,var,a,b) sg 算法 中 的 D 向 量 的 第 一 行 

end 
for 工 =2 :mn+1 

Clti,1:n)=C(i-1, 2:n+L) ， 

f1 = Power (Pb,n+i) ; 

f2 = Power (an+i)，; 

Ci,n+l)=(f1-f2)7/(n+i) ; g 形 成 c 和 矩阵 
emndQ 
coff = CNd; g 求 解 融 近 多 项 式 的 系数 


最 佳 平 方 多 项 式 逼近 应 用 实例 。 求 函数 y= sinx 在 区 间 [0.7] 上 的 5 次 最 佳 
平方 多 项 式 逼 近 。 
解 ， 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> SyYyImS V; 

>> Y=Ssin(v): 

>> Coff=ZJPPF(y,，5,，0,7) 

coftf =[ 一 .878e-2] 
[ .9902] 
[ .1322] 
[ 一 .33266] 
[ .75749e-1] 
[ 一 .47944e-2] 


从 结果 可 以 得 到 函数 y=sinx 在 区 间 [0,7] 上 的 5 次 最 佳 一 致 逼近 多 项 式 为 ， 
y=-0.00878 上 + 0.9902x+0.1322x? -0.33266x3 + 0.07$749x4 _0.0047944x5 
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傅立叶 逼近 





当 被 逼近 的 函数 为 周期 函数 时 ， 用 代数 多 项 式 来 逼近 效率 不 高 ， 而 且 误 差 也 较 大 ， 这 


时 用 三 角 多 项 式 来 通 近 是 较 好 的 选择 。 


三 角 多 项 式 和 逼 近 也 就 是 傅立叶 逼近 ， 任 一 周期 函数 都 可 以 展开 为 傅立叶 级 数 ， 通 过 选 


取 有 限 的 展开 项 数 ， 就 可 以 达到 所 需 精度 的 逼近 效果 。 

下 面 介 绍 连续 周期 函数 和 离散 周期 函数 的 傅立叶 逼近 的 具体 做 法 。 
1. 连续 周期 函数 的 傅立叶 逼近 

对 于 连续 周期 函数 ， 只 要 计算 出 其 傅立叶 展开 系数 即 可 。 





在 MATLAB 中 编程 实现 的 连续 周期 函数 的 傅立叶 逼近 法 函数 为 
功能 : 用 傅立叶 级 数 融 近 已 知 的 连续 周期 函数 

调用 格式 :， [A0,A,B] = FZZ (func,Tn) 

其 中 ，func: 已 知 函 数 ; 





T: 已 知 荔 数 的 周期 ; 
n : 展开 级 数 的 项 数 ; 
A0: 展开 后 的 常数 项 ; 
A: 展开 后 的 余弦 项 系数 
B: 展开 后 的 正弦 项 系数 。 


在 MATLAB 中 实现 连续 周期 函数 的 傅立叶 逼近 的 代码 如 下 所 示 : 


function [aA0,A, BlI=F22(ftuncy 了 T，D) 

g 用 傅立叶 级 数 遥 近 已 知 的 连续 周期 函数 

g% 已 知 函数 : func 

g 已 知 函数 的 周期 : 

g 展 开 项 数 : mn 

% 展 开 后 的 常数 项 ， A0 

g 展 开 后 的 余弦 项 系数 : R 

g 展 开 后 的 正弦 项 系数 : B 

SYmS 七 ; 

func = Sups(sSym(tunc)，ftinasym(sym(ftunc))， sym( 七) ); 

A0O=int (sym(Etunc) ,七 ,0 ,了 ) 7 了， 

for (k=1 :DTm) 
有 (K)=int(ftuncxcos (2xPixKxtVT) ， 七 0， 了)*27 工 ; 
和 有 (K)=vpa(A(K) 4) ， 
B(Kk)=int(ftuncxsin(2xPIxrKxtyVT) ， 蕊 ,0 IT)x*27T; 
B(K)=vPpa(B(K) ，4) 





enmda 


傅立叶 和 逼 近 应 用 实例 。 用 傅立叶 级 数 ( 取 5 项 ) 逼近 函数 x ， 输 出 系数 值 。 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 ; 
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>> [A0,A,B]=ftzz('X'，2x*pi,5) 


AO = 三 DPI 
人 及 三 [0.，0.，0.，0.，0.] 
也 三 [ 一 2.， -1.，-.6667，--.5000，--.4000]j 


由 于 函数 y=# 是 奇 了 数 ， 因 此 展开 后 的 余弦 项 系数 都 为 0。 
2， 离散 周 期 数据 的 傅立叶 逼近 
对 于 离散 周期 函数 的 数据 拟 合 ， 只 要 计算 出 其 离散 傅立叶 展开 系数 即 可 。 其 展开 公式 


并 一 ] ， 
?= cie 拓 
天 =0 
其 中 
一 局 2 
广 三 je YE=01pm-D 
在 MATLAB 寺 中 编程 RE DFEF 和 


功能 ， 离散 周期 数据 点 的 傅立叶 通 近 

调用 格式 : c=DFF (ffN) 
其 中 ,fi 已 知 离散 数据 点 ， 
N;，。 离散 数据 点 的 个 数 ; 
c， _ 离 散 傅立叶 通 近 系数 。 

















在 MATLAB 中 实现 离散 周期 函 5 数 的 傅立叶 各 近 的 代码 如 下 所 示 ， 


function cC = DFR(E,N) 
gs 离 散 周期 数据 点 的 傅立叶 膛 近 
g% 已 知 离散 数据 点 ; 革 
gs 离散 数据 点 的 个 数 : N 
gs 带 近 系数 : 避 
c(1:N)=0; 
for (m=1:N) 
for (n=1:N) 
ctm)=c(m)+E(n)xexp( 一 TIxmxnx2xpi/N) 
en qq 
c(m)=c(m) 7/N; 
end 





离散 傅立叶 盘 近 应 用 实例 。 对 下 列 数据 点 进行 离散 傅立叶 变换 。 








5 6 
-0.9589 一 0.2794 


>> Y=10.8415 0.9093 0.1411 -0.7568 -0.9589 -0.2794]; 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 
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>> C = DEFT(y,，6) 

cC = _ Columns 1 throughnh 3 
-0.0926 一 0.50031 -0.0260 -0.01941 -0.0251 + 0.00001 
Colunmns 4 上 hroughnh 6 
-0.0260 + 0.01941 -0.0926 + 0.50031 -0.0172 -- 0.0000i 


对 于 实数 序列 来 说 ， 其 离散 傅立叶 变换 的 结果 一 般 是 复数 序列 。 


自 适应 台 近 


函数 fx) 在 区 间 [a, 习 上 的 自 适 应 逼近 是 指 在 给 定 的 精度 下 ， 找 到 节点 序列 


Xi( 人 =0,12…,1) 20=0， 和 =D 





使 得 
LaX |PCO 一 7COSe 0012 
其 中 ， 尼 为 给 定 精 度 。 为 以 为 端 点 的 分 段 函数 。 
根据 分 段 函 数 Po 的 形式 ， 可 分 为 自 适 应 分 段 线性 逼近 和 自 适 应 样 条 通 近 等 。 


5.7.1_” 自 适应 分 段 线性 逼近 


自 适 应 分 段 线性 逼近 的 P(x) 的 分 段 表达 式 为 : 
xD 一 iD) 
HL 一 


(CO = 后 ) 十 


(一 到) XE (XiH1) 





功能 : 用 自 适应 分 段 线 性 法 通 近 已 知 函数 
调用 格式 :， [node,err] = SmartBJ(func,a,b,maxtol) 
其 中 ，func: 已 知 函数 ; 








3.: 运 近 区 间 的 左 端点 
b: 逼近 区 间 的 右 端点 
maxtol: “分 段 线性 逼近 人 允许 的 最 大 误差 ; | 
node， 分 段 线性 通 近 的 区 间 节 点 ， 
| err: 分 段 线性 逼近 实际 的 最 大 误差 。 
在 MATLAB 中 实现 自 适 应 分 段 线性 法 逼近 已 知 函 数 的 代码 如 下 所 示 : 
function [node,err]l = SmartBJ(ftunc,avb,maxtol) 


g% 自 适应 分 段 线性 法 各 近 已 知 虽 数 

g 已 知 函数 ，func 

g 通 近 区 间 的 左 端点 ，a 

g% 通 近 区 间 的 右 端点 : b 

g% 分 段 线性 逼近 人 允许 的 最 大 误差 : maxtol 
g 分 段 线性 逼近 的 区 间 节 点 : node 

g 分 段 线性 通 近 实际 的 最 大 误差 : err 
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function fnoqe,err] = SmartBJ(tunc,a,b,maxtol) 
format 1ong ; 


er = 0; 
bsSign = 工 : 
while (bpSignmn) 
DSign = 0; 
knodqe = Doaqe 
tnum 三 有 um 
insert_mnum = 0); 
for 1=1: (tnurm-L) 


[mx,mv] = 
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FindqMX(Eunc,knodqe(i),knode(i+1l)，D) ; 


g 找 到 区 间 [kmnode (1) ,knodqe (i+1)] 上 的 误差 最 大 的 点 


if mv > maxtol 


8 如 果 误 差 超过 给 定 精度 ， 在 此 点 将 区 间 fjenode (j) ,knode (i+1) ] 分 为 两 段 


Ql(1:(i+insert_num)) = noae(1: 

Q(i+insert_mnurm+1L) = mxy; 

num = Durm+1: 

Q((i+insett_nurn+r2) :num) 三 

noae = qd; 

pbSign = 1 工 ; 

insett_num = insert_nurm 十 工 ; 
el1Se 


IE (mv>eLL) 
er = mV; 
enQ 
enaQ 
emnQ 
enmdQ 
format Short 
function [max_ xmax_vV] = 
format Tong: 
eps = 1.e-3: 


FindMX(funcy, apb,D) 


max V = 0; 


noqQe( (1I+insert_mnurm+1L) : 


(+insert_num) ) ; 


(num-1I) ) ; 


g% 记 录 所 有 分 段 线性 插值 区 间 上 的 最 大 误差 








max_Xx = a; 
fa = subs(sym(tunc)，findsym(sym(ftunc)) al y g 左 端点 函数 值 
fb = subs(syml(func)，ftindqsym(syml(tunc))，b)， g 右 端点 函数 值 
Step = mV/5; 
二 Oo = 工 ; 
tmop = 0); 
while tol>eps 
芋 三 忌 ; 
for j=0: (n/step) gs 此 循环 找 出 取 最 大 值 的 x 
上 一 昌 +JxSstep*x(b-a)7/n; 
pt = fa + (t-a)x(fb-fa)/(b-a); sg% 线 性 插值 得 出 的 函数 值 
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ft = Subs(sym(func)，ftinaqasym(sym(tunc)) ,上 ) ; 

IE abs (ft 一 bt) >max_V gabs(ft(x)-P(X) ) 
max_Vv = abs(ft-pt) ) g 记 录 最 大 误差 
max_X = 七 ; gs 记 录 此 点 坐标 

emnd 

enQ 
tol = abs (max_X-trmp) 


tmp = max_ X; 
step = Step/2: 
enmd 
format Short : 


加 区 一 自 运 应 分 段 线性 逼近 应 用 实例 。 在 区 间 [0,4] 上 分 段 线性 逼近 y= VX ， 精 度 
为 0.01。 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 


>> SyYymS V， 
>> Y=SdGLrt (V) ; 
>> [nodGe,err]j=SmartBJ(y,，0,4,0.01) 
noae = 三 

Columns 1 throughnh 6 


0 0.0008 0.0039 0.0156 0.0344 0.0625 
Columns 7 上 htough 12 
0.1375 0.2500 0.3850 0.5500 1.0000 1.5400 
Columns 13 through 15 
2.2000 3.0325 4.0000 


err = 0.0096 


从 结果 可 以 看 出 ， 为 了 达到 给 定 精 度 0.01 ， 在 区 间 [0,4] 上 用 了 15 个 节点 ， 而 且 从 节 
点 横 坐 标的 大 小 可 以 看 出 来 ， 节 点 在 x=0 附近 比较 密集 ， 高 x 4 越 近 刚直 各 瑚 ， 这 是 国 
为 ?= wx 在 x=0 附 近 斜 率 比 较 大 ， 曲 线 比较 陡 ， 变 化 比较 剧烈 ， 四 此 需要 比较 多 的 节 
来 和 逼 近 它 ， 而 到 后 面 曲线 越 来 越 平缓 ， 需 要 的 节点 也 就 相对 少 一 

为 了 了 解 分 段 线性 逼近 的 过 程 ， 可 参考 下 面 的 三 幅 图 。 


2 r r T 




















9 
1 上 | -一 分 医 线 性 蜗 
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1 上 工 上 1 4 1 1 
0.5 1 1.5 2 25 3 3.5 4 


图 5-1 ”精度 为 0.1 的 自 适应 分 段 线性 逼近 
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一 - 腺 函数 y=sqrt(x) 
一 分 段 线 性 通 近 























上 1 1 L 1 1 
0 0.5 1 1.5 2 2.5 3 3.5 4 


图 $-2 ”精度 为 0.05 的 自 适 应 分 段 线性 通 近 





2 T T T 一 T T 三 


一 -项 函 数 y=sqrt(x) 

















05 1 1 2 25 了 35 4 
图 5-3 ”精度 为 0.01 的 自 适应 分 段 线性 逼近 


5.7.2 ， 自 适应 样 条 通 近 
自 适应 样 条 逼近 ( 第 一 类 ) 的 px) 分 段 表 达 式 为 : 


挛 ( 加 = 半 [2(x 一 区 十 记 ]Oo 一 切 ? 


人 


二 和 20 一 区 十 放 ]C 一 区 


人 





7 7 
二 (太一 有 (一 石 ) 


人 (站 


2 





帮 = Ji41 一 大 人 = 0,1…,N 一 TD,xe [221] 
各 参数 的 意义 可 参照 第 4.7 节 。 
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在 MATLAB 中 编程 的 和 和 天 应 样 条 逼近 ( 第 一 类 ) 函数 为 ，SmartBjJ 
功能 适应 样 条 通 近 ( 第 一 类 ) 局 吕 
调用 格 了 ，[node,err] = SmartBJ(func,a,b,maxtoD 
其 中 ，func， 已 知 函 数 ; 
al 通 近 区 间 的 左 端点 ; 
b: 通 近 区 间 的 右 端点 ; 


maxtol: 全 区 甫 二 人 最 入 识 和 ， 
node， 分 段 样 条 通 近 的 区 间 节 








er 信和 样 条 通 迫 际 的 基 大 员 此 。 


在 MATLAB 中 实现 自 适 舌 应 样 条 通 近 已 知 函 数 的 代码 如 下 所 示 ， 


function [noqe,err] = SmartBJ(ftuncy ab,maxtol) 





g 自 适应 样 条 通 近 已 知 函数 








sg 已 知 函 数 ，func 
g 通 近 区 间 的 左 端点 ，a 
g% 通 近 区 间 的 右 端点 : b 





g 分 段 线 / 
加 多 分 段 线 ， 
g 分 段 线 | 


性 逼近 人 允许 的 最 大 误差 : maxtol 
| 生 逼 近 的 区 间 节 点 :noae 
全 逼近 实际 的 最 大 误差 : err 


function [noade,err] = SmartYTBJ(funcy ay by _ s,y_emaxtol) 


format 
noae (1 
noqae (2 


num = 2: 


IE (P 一 a 
三 


elSe 


pPSigm 
while 


ong ; 
二 已; 
= hb; 





(PbSiGm) 


bsSign = 0; 


OF 


end 


1=1:murm 
Yy(1) = subs(subs(sym(func)，finadasym(sym(tunc)),nodqe(1))): 


kmnode = modqe 


蕊 num 三 mumy 


Insetrt_num = 0 


fo 


=1: (tnum 一 1 ) 

pfx = ThrSamplel(knode,y,y_s,y_e,((knode(i)+knode(i+1))7/2)) ; 
gs 上 式 给 出 每 个 分 段 区 间 上 的 样 条 插值 函数 

[mx,mv]l = FindqMX(ftunc, ptx,knoadel(Ii),knoaqe(i+1l)，n)，; 

g 找 到 区 间 [knoaqae (i) ,knoae (i+1)] 上 的 误差 最 大 的 点 

If mv > maxtol 


#s 如 果 误 差 超过 给 定 精 度 , 在 此 点 将 区 间 [knode (1i),knoadae(i+1) ] 分 为 两 段 , 即将 此 点 加 
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gs 入 节点 数组 中 
al(1:(i+insett_num)) = node(1:(i+inSsert_mnum) ) : 
Q(i+insert_numt+1) = mX; 
num = murm+1; 
Qtl((i+insert_num+2) :nurmn) = node((i+insert_num+1l): (num-1) ) : 
noae = d'; 
DSign = 工 ; 
Insert_nunm = insert_num 十 工 ; 
el1Sse 
IEt(mv>ezr) 
er = mv; g 记 录 所 有 样 条 插值 区 间 上 的 最 大 误差 
endQ 
enQ 
end 
end 
format Short 
function [max_ xmax _ v] = FindMX(func,pPftx,a,b,Dn) 
format 1ong:; 
eps = 工 .ee 一 3 
max vv 一 0; 
max_ X = 日 ; 
fa = subs(sym(ftunc)，ftindsym(sym(tunch) )，a) ; % 左 端点 函数 值 
fb = subs (sym(func)，findqsym(sym(func)) vb): g% 右 端点 函数 值 
Step = mV/5: 
tol 三 工 ; 
tmp = 0:; 
while tol>eps 
廿 三 忌 ; 
for j=0: (n/step) g 此 循环 找 出 取 最 大 值 的 x 
七 三 电 + jxstep*(b-a) /nn 
pt = subs(sym(pftx)，findsym(sym(pfx)),t); 8% 样 条 播 值得 出 的 函数 值 
ft = subs(sym(ftunc)，ftindsym(sym(tunc)) ,七 ): 
ff abs(fEt-pt)>max_V gabs(E(x)-pP(X) ) 
max_V = abs(ft-pt): gs 记 录 最 大 误差 
max _X = 七 ; gs 记 录 此 点 坐标 
emnQ 
enaQ 
tol = abs (max_Xx-tmp) ， 
tmp 三 IaX_X 
step = Step/2， 


emnQ 
format Short 


自 适应 样 条 逼近 应 用 实例 。 在 区 间 [ 和 上 用 自 适 


分 别 为 0.1 和 0.01。 
解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> Syms V; 
>> Y=SGFL (V) ， 


应 样 条 i 
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>> [node err]=SmartYTBJ(ty,1,4,0.5,0.25,0.1) 


node = 工 4 

erL 三 0.0128 

>> [nodqe,err]=SmartYTBJ(y，1,4,0.5,0.25,0.01) 

nodae = 1.0000 2.2000 4.0000 

er 二 0.0015 

通过 在 程序 代码 的 下 面 语 句 的 地 方 设 立 断 点 : 

Ptx = ThrSamplel(knode,y,y_s,y_e, ((knode(i)+knode(i+l1))/2)) 


可 以 查看 到 y= Vx 在 区 间 [L4] 上 精度 为 0 .1 的 样 条 逼近 函数 为 
Pr) = 亏 Cx+ DOxz 一 4)? + 翅 C2- 4z)(r 一 TD? 
工 1 1 4 2 工 T_T 2 
+9G7 (4 0) 4 开罗 人 了 


化 简 得 到 P(x) = 1 如 一 1 2 十 乞 x+ 1 
108 9 36 27 








将 ?=Vx 和 pnD=- 工 12+ 抱 x+ 在 区 间 岂 4 的 曲线 绘制 如 图 5-4 所 示 。 
108 9 36 27 
采用 相同 的 方法 ， 在 精度 为 0.001 时 ， 绘 制 如 图 $-5$ 所 示 的 对 比 曲 线 。 


Le 

















图 5-4 ”精度 为 0.1 的 自 适 应 样 条 通 近 











和 上 例 比 较 ， 本 例 只 用 了 3 个 节点 就 达到 了 0.01 的 逼近 精度 ， 可 见 样 条 函数 的 强大 
之 处 。 

除了 上 面 介绍 的 两 种 自 适应 逼近 方法 外 ， 结 合 自 适应 方法 和 各 种 蜗 近 理论 可 得 到 各 种 
自 适 应 逼近 方法 ， 如 自 适 应 切 比 雪夫 台 近 、 自 适应 帕 德 逼近 等 。 

自 适 应 逼近 是 一 种 奇妙 的 逼近 方法 ， 它 能 在 达到 给 定 精度 的 前 提 下 ， 采 用 尽 可 能 少 的 
通 近 节点 ， 而 且 节 点 的 分 布 也 十 分 合理 ， 曲 线 变化 剧烈 的 地 方 节点 密 ， 曲 线 平缓 的 地 方 节 
点 稀 。 
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2.5T 
第 一 段 样 条 近 
一 - 第 一 段 样 条 逼近 
函数 Y=sqrtoo) 
2 一 
1.5f 
计 
LA 
os 
0 1 ， ! 1 
虽 05 1 15 2 2.5 3 3.5 





图 $-$ 精度 为 0.01 的 自 适 应 样 条 逼近 

















对 给 定 的 试验 数据 点 (xy y)JG=12,…,N) ， 可 构造 闫 次 多 项 式 : 
P(xz) = ao 二 QI 十 十 Go (< AN) 
由 曲线 拟 合 的 定义 ， 应 该 使 得 下 式 取 极 小 : 
AN 7 。 
> [>》aj 邓 一 7 
=1 j=0 


通过 简单 的 运算 可 得 出 系数 是 下 面 线性 方程 组 的 解 : 


C0 C1 机 Cmm C0 Po0 
cl cz co a | | 总 
Cm Crm+l … CC2m 半 L4m bm 


其 中 
六 
cr = 》 对 ,= 01 ,210 


i=] 


N 
必 = > y 太 (人 = 0,1……,71I) 


1 一 1 


| 动能， 离散 试验 数据 点 的 多 项 式 曲线 拟 合 
调用 格式 : A = multifit (X,Ym) 
其 中 ，X: 试验 数据 点 的 x 坐标 向 量 ; 
Y: 试验 数据 点 的 y 坐标 向 量 ; 


_m: 所 合 多 项 式 的 次 数 


在 MATLAB 中 编程 实现 的 多 项 式 曲线 拟 合 函 数 为 : multifit 


第 里 章 函数 逼近 
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 A 所 全 多 项 或 的 系数 内 量 。 








function A=multifit(X,Yvm) 

gs 离散 试验 数据 点 的 多 项 式 曲线 拟 合 

gs 试验 数据 点 的 x 坐标 向 量 : X 

g% 试 验 数据 点 的 y 坐标 向 量 : Y 

g 拟 合 多 项 式 的 次 数 : m 

sg 拟 合 多 项 式 的 系数 向 量 : A 

N=1Length (X) ; 

M=jlength(Y) ， 

if(N ~= MI) 
qisp(' 数 据点 坐标 不 匹配 | 


returny; 


1) 


CI(1:(2xrm+l))=0: 
: (m+1) )=0; 
J=1:(2xm+l1) 
for kK=1:N 
ctJ)=C(J)+X(K) (一 ) ; 
if(jJ<(m+r2)) 
D(J)=b(j)+Y(K) 


gs 求 出 c 和 P 





*X(K) (一 1) ) 


enQ 

end 
emnd 
Cl(1，:)=c(1:(m+L))， 
for S=2: (mr+l) 

Cs :)=C(SsS:(mrS)) 7 
te 
R=b'NC; % 直 接 求 解法 求 出 拟 合 系数 


在 MATLAB 中 实现 多 项 式 曲 线 拟 合 的 代码 如 下 所 示 : 


多 项 式 曲线 拟 合 应 用 实例 。 用 二 次 多 项 式 拟 合 下 面 的 数据 点 。 





1 
， 3 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


>> X= 1:3)， 

>>Y= [1 5 10]: 

>> 有 三 ImuLLiEtit(XY， 2) 

及 二 0.1282 0.3235 0.8718 


即 拟 合 多 项 式 为 ， 疡 = 0.1282+0.323Sx+0.8718z” 


用 线性 函数 : 


y=Qax+P 
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拟 合 离散 数据 : (0 太 ) = 0,12……) 
在 最 小 二 乘 意义 上 有 
OF OF 
开 (a.D) = ,+D-y 一 =0 一 -=0 
(a.D) 之 Ca 7) 吉 了 


解 出 “与 总 的 值 ， 则 得 到 线性 最 小 二 乘 函 数 。 


和 
| 功能， 离散 试验 数据 点 的 线性 最 小 二 乘 拟 合 
| 调用 格式 ，[ab]=LZXEC(x,y) 


其 中 ，X， 试验 数据 点 的 x 坐标 向 量 ; 

Y， 试验 数据 点 的 y 坐标 向 量 ， 

a 拟 合 的 一 次 项 系数 ， 

的 党 数 项 。 


在 MAITLAB 中 实现 线性 最 小 二 乘 拟 合 的 代码 如 下 所 示 : 
function [abpl=LZXECI(X,Y) 
gs 离散 试验 数据 点 的 线性 最 小 二 乘 拟 合 
g 试 验 数据 点 的 x 坐标 向 量 : X 
sg 试验 数据 点 的 y 坐标 向 量 : Y 
g 拟 合 的 一 次 项 系数 : a 
g 拟 合 的 常数 项 ，Dp 
if(lengthn(x) 一 Length(y)) 
nn= lengthn(x): 


elSe 
qisp('x 和 Yy 的 维 数 不 相 等 ! ') ; 
zetuzDn 7 

enaq g 维 数 检查 

有 = zeros(2,2):; 

At2,2) = 三 ; 


也 = ZeroSs(2,，1) 
for =1 :nm 


A(1,1)=A1l,1) 二 X(I)xx(I) 
Al(1,2) =A1L2) 二 X(I)， 
B(1,1) = 了 B(1,1) +X()xy(I) 
B(2,1) = 了 Bl2,1) +Y(); 
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解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 


>> X= 1:95; 

>>Y= [1.95 1.8 43.4 5.7]:， 
>> [ab]j = LTZXEC (xyY) 

己 二 1.0000 

jp 三 0.2800 


即 拟 合 的 式 子 为 ，y=x+0.28 
上 面 的 程序 还 可 以 进一步 完善 ， 比 如 说 加 入 计算 相关 系数 的 功能 等 。 


人 正 交 多 项 式 最 小 二 乘 拟 合 





正 交 多 项 式 最 小 二 乘 拟 合 是 选取 一 组 在 给 定点 上 正 交 的 多 项 式 函 数 系 {8(C9} 作为 基 


函数 进行 最 小 二 乘 拟 合 。 拟 合 的 多 项 式 记 为 : 
PC =DoBo(0)T 访 世 (十 … 十 nBm() 
其 中 


2 yiBi(65) 
_ 误 


> B7(Cx) 
i=0 
函数 的 构造 公式 如 下 所 示 ， 
Bo(x)=1B(O=X 一 CQ0 
BO = (一 00) 记 ( 菩 一 DB (OO 


> ABCxr) 
wo = K=0 
2 开 (x) 
大 =0 
> 了 (xb 
有 _ 大 =0 


> BP CCxx) 
K=0 


对 给 定 的 试验 数据 点 (xy)G=12,…,N) ， 构 造 六 次 正 交 多 项 式 最 小 
式 的 步骤 介绍 如 下 。 
会 令 Bo(o =1， 根 据 递 推 公式 有 : 
加 -之 )Ma+D,oo =(》xm)Mm+D 


大 =0 
则 ao =poo。 
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二 


时 


函数 吾 近 


天 
2 也 有 (也 ) 
ki 


> 有 1(xe) > BC) 
大 =0 大 =0 


第 3 
BO) 
个 50 =co+cux ,由 递 推 公式 有 co = -ao'cl =1 ,= 名 一 一 一 ,oa = 
2 于 (x) 
有 一 K=0 
> BO) 
k=0 


更 新 通 近 多 项 式 的 系数 : ao 三 ao+Zco， al = 三 acl 


先 对 于 !=2,3…, 站 ， 设 羽 ( 阅 = 帮 上 + 二 十 用 入 再 -JI( 人 =S0 上 SI 二 十 SEE 


B 20O0= wo +Twxz+…+w-ax ， 由 递 推 公式 ， 
天 二 4 一] 
有 -1 三 一 Qt-181-1 十 St-2 
天 三 -CI TS 一 Di GG=12 一 2) 
四 三 一 Qt-130 一 Qt-1W0 
更 新 逼近 多 项 式 的 系数 ， 
| 一 CQK 十 已 六 天 =0,12, 一 ] 


Qi; 二 已 7 


在 MATLAB 中 编程 实现 的 正 交 多 项 式 最 小 二 乘 拟 合 函数 为 ，ZJZXEC 


功能， 离散 试验 数据 点 的 正 交 多 项 式 最 小 二 乘 拟 合 
调用 格式 :，a=ZJZXEC(xym) 
其 中 ，x: ”试验 数据 点 的 xx 坐标 向 量 ; 
y: ”试验 数据 点 的 y 坐标 向 量 ; 
m:， 拟 合 多 项 式 的 次 数 ， 
| a: 。 拟 合 多 项 式 的 系数 内 量 。 


在 MATLAB 中 实现 正 交 多 项 式 最 小 二 乘 拟 合 的 代码 如 下 所 示 : 


function a=ZJZXEC (xyym) 
g 离 散 试验 数据 点 的 正 交 多 项 式 最 小 二 乘 拟 合 
g% 试 验 数 据点 的 x 坐标 向 量 : Xx 
g 试 验 数据 点 的 y 坐标 向 量 : y 
g 拟 合 多 项 式 的 次 数 : m 
g% 拟 合 多 项 式 的 系数 向 量 : a 
ift(lengthn(x) 一 Jength(y)) 
mL= length(X):; 





elSe 
disp('x 和 Y 的 维 数 不 相 等 ' ' ) ; 
TetUurn 7; 
end g 维 数 检 查 
SymS V; 


本 
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@ zeros (1,m+1) ， 
G = zeros (1 ,mr+1l) ， 
apha = Zeros (1,m+l) ; 


for k=0:m 
X(K+1)=Ppower (vv K) ， 
end g%xX 的 震 多 项 式 
B2 = [1]:; 
Q(1) = 呈 ; 
for =1 :DTn 
G(1) =G(I) 二 YL) 
alphal(1) = alphal(1) 十 X( 工 ); 
enmQ 
G(L) = G(L)V/ad(T)， 
alphal(1I) = alphalt1l)/aqal(1)， 
al(1) = G(1L); g 算 法 的 第 一 步 ， 求 出 拟 合 多 项 式 的 常数 项 
B1 = [-alpha(1) 1]; 
for =1 :了 mn 
Qt2) =Ql2) + (xx(L)-alpha(T))^ 人 2: 


2 
G(2) =G(2) +Y(L)x(X(T)-alpha(1)); 


引 LPhal(2) aphal(2) + X(1L)*x(X(1I)-alLpha(1))^ 人 2 
endQ 
G(2) = G(2)7/d(21) 1; “ 
alpha(2) = alphal(2)/Qq(2)， 
al(1) = al(1)+aq(2)*(-alpha(1)); g% 更 新 拟 合 多 项 式 的 常数 项 
a(2) = 3 g% 算 法 的 第 二 步 ， 求 出 拟 合 多 项 式 的 一 次 项 系数 
beta = Q(2) 工 ) ; 


于 OF 3 
马 三 Zeros(1,，1); 


BE) = B1(I-1)， 
B(i-1I) = -alpha(i-1)*B1(I-1)+B1(I-2) 
for ]j=2 : 12 
B(]) = -alphal(i-L)*B11(]j)+B1(-1)-betaxB2(]J) 
enmQ 
B(L1) = -alLlphal(i-L)xB1(1)-betaxB2(1) ; 
BF = Bxttranspose(PX(1L:I) ); 
for = 工 :mn 


QXxX = Subs(BF，'V，X(1)) 
di) = qi + (OoOx)^ 人 2 


G(I) = GGI) +Yy(L)x*Qx; 
alphal(i) = alphal(I) 十 X(1)x(QxX)^ 人 2; 
endQ 
alphal(i) = alphal(i)/vatI)， 
G(i) = G()V/Qa(I)， 
beta = QQ(i)/d(i-1) :; 
for K=1: 工 一 
a(k) = al(k)+d(i)x*B(k):， g 更 新 拟 合 多 项 式 的 系数 
endQ 
al(i) = G(i)xB(I)， 
B2 = B1: 
B1L = 了 B; 
enaQ 








正 交 多 项 式 最 小 二 乘 拟 合 应 用 实例 。 用 四 次 正 交 多 项 式 最 小 二 乘 拟 合 下 面 
的 数据 。 








解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 


>> X= 1:5; 

>>Y= [1.5 1.8 43.4 5.7])， 

>> 日 = ZJZXEC (X,Y，4) 

巳 二 18.2000 -32.8333 20.8167 一 5.1167 0.4333 

即 拟 合 的 多 项 式 为 : y=18.2 一 32.8333x+20.8167x2 -S.1167 妇 十 0.4333X” 


线性 最 小 二 乘 和 四 次 正 交 多 项 式 最 小 二 乘 拟 合 的 结果 如 图 $-6 所 示 : 


一 页 站 晤 氢 点 
拉 人 最 全 生 
。 正 交 多 项 式 最 小 二 全 Rb 人 




















图 5-6 ”最 小 二 乘 拟 合 数据 


小 结 


逼近 是 为 了 在 计算 机 上 更 加 方便 地 计算 丞 数 的 值 ， 因 为 多 项 式 计算 起 来 是 最 简单 的 ， 不 
管 哪 种 逼近 , 它们 都 是 使 逼近 函数 和 已 知 函 数 的 误差 在 某 种 意义 上 达到 最 少 , 从 而 有 最 佳 一 
臻 逼近、 最 佳 平方 逼近 和 最 小 二 乘 逼 近 。 自 适应 逼近 是 适应 性 比较 广 的 算法 ， 但 是 它 耗费 时 
间 比 较 长 ， 相 对 来 说 ， 如 果 用 多 项 式 逼 近 的 话 ， 首 选 可 用 正 交 多 项 式 最 小 二 乘 拟 合 方法 。 
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物理 、 力 学 和 工程 技术 中 的 很 多 问题 在 数学 上 都 归结 为 求解 矩阵 特征 值 问 题 。 当 矩阵 
的 阶 数 较 小 时 ， 可 以 通过 求 特征 多 项 式 的 根来 得 到 特征 值 ， 即 利用 MATLAB 中 的 函数 来 
实现 ; 当 和 矩阵 阶 数 比 较 大 的 时 候 ， 就 需要 用 到 一 些 数值 方法 , 利用 MATLAB 编程 也 可 方 
便 实现 。 

通过 本 章 ， 读 者 能 够 熟练 掌握 MATLAB 中 的 特征 值 来 计算 相关 函数 ， 而 且 能 通过 编 
程 实现 多 种 和 矩阵 特征 值 运算 的 算法 。 


特征 值 与 特征 向 量 


设 4 是 半 阶 窍 阵 , * 是 非 零 列 向 量 ， 如 果 有 数 4 存在， 满足 hx=4xz ， 那 么 称 * 是 矩阵 
4 关于 特征 值 4 的 特征 向 量 。 
将 4x=hx 改 写 为 (4-41)xz=0， 则 称 : 
J()=|4-4 和 = 和 72+a0 + +anTan 
为 和 矩阵 4 的 特征 多 项 式 。 
当 4 是 4 的 一 个 特征 根 时 ， 它 必然 是 F(4) = 0 的 一 个 根 。 








条 件数 与 病态 矩阵 


若 和 矩阵 4 为 非 奇 异 ， 则 称 | 4 || 全 !| 为 矩阵 4 的 条 件数 ， 其 中 | 为 4 的 某 种 范 数 。 

由 于 和 矩 阵 范 数 的 定义 不 同 ， 因 而 其 条 件数 也 不 同 ， 但 是 由 于 和 殉 阵 范 数 的 等 价 性 ， 故 在 
不 同 范 数 下 的 条 件数 也 是 等 价 的 。 

矩阵 条 件数 的 大 小 是 衡量 矩阵 “ 坏 ” 或 “好 ”的 标志 。 条 件数 大 的 矩阵 称 为 病态 矩阵 
或 坏 矩 阵 。 一 般 来 说 ， 若 矩阵 的 按 模 最 大 特征 值 与 按 模 最 小 特征 值 之 比值 较 大 时 ， 和 矩阵 就 
会 呈 病 态 。 特 别 地 ， 当 4 的 行列 式 值 很 小 时 ， 和 殉 阵 总 是 病态 的 。 

设 X 为 向 量 ， 常 用 的 几 种 向 量 范 数 定义 如 下 : 

欧 几 里 德 范 数 ， 即 |X|， =\Jy>|zf ; 

co - 范 数 ， 即 上 XI= max(abs(X)) ， 

1- 范 数 ， 即 | = 了》 |z| ; 


p- 范 数 ，|X| = 人 之 | 略 六 。 
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对 应 于 向 量 范 数 ， 和 矩阵 4 的 范 数 定 义 如 下 
欧 几 里 德 范 数 等 于 4 的 最 大 奇异 值 ; 
列 范 数 等 于 4 的 列 向 量 的 1- 范 数 的 最 大 值 ， 
行 范 数 等 于 4 的 行 向 量 的 1- 范 数 的 最 大 值 ; 
Frobenius 范 数 ， 即 |4l =\V> > 地 。 
MAILAB 中 提供 了 norm 函数 来 求 矩 阵 的 范 数 ， 其 具体 用 法 如 表 6-1 所 示 。 
表 6-1 norm 函数 








格 式 
=norm(4) 求 4 的 欧 几 里 德 范 数 
于 = norm(4,1) 求 4 的 列 范 数 
1.= norm(4,2) 求 4 的 欧 几 里 德 范 数 
严 =norm(4,inf) 求 4 的 行 范 数 

















7.=norm(4, fro' ) 求 4 的 Frobenius 范 数 


不 同 的 范 数 有 相应 不 同 的 条 件数 ，MATLAB 中 提供 了 以 下 几 个 求 和 矩 阵 条 件数 的 函数 。 





e。 cond: 求 和 矩阵 的 条 件数 。 

基本 用 法 与 功能 介绍 如 下 。 

c=cond(CO: 求 和 的 2- 范 数 的 条 件数 ， 即 半 的 最 大 奇异 值 和 最 小 奇异 值 的 商 。 
c=cond(X&D): 求 忆 范 数 的 条 件数 ，P 的 值 可 以 是 1、2、inf 或 者 'fro'。 

e。 condest， 求 矩阵 的 条 件数 估计 值 。 

基本 用 法 与 功能 介绍 如 下 。 

c=condest (4): 求 矩 阵 4 的 1- 范 数 的 条 件数 的 下 界 估 值 。 


[cy] = condest (4 Y 为 向 量 ， 满 足 | 4hyIFLALIL 
C 





[cy] = condest (4 六 : 求 上 面 的 c 和 yv， 同 时 显示 出 关于 计算 的 步 又 人 信息。 如果 关 1， 则 
计算 的 每 步 都 显示 出 来 ; 如 果 六 -1， 则 给 出 商 crrcond(A)。 

e Icond:， 判断 矩阵 的 病态 程度 。 

基本 用 法 与 功能 介绍 如 下 。 

c=rcond(4)， 对 于 病态 矩阵 4 来 说 ， 给 出 一 个 接近 于 0 的 数 ， 对 于 非 病 态 和 矩阵 4， 则 
给 出 一 个 接近 于 !1 的 数 。 

se。 condeig: 求 矩 阵 的 特征 值 的 条 件数 。 

基本 用 法 与 功能 介绍 如 下 。 

c= condeig(4)， 返 回 短 阵 4 的 特征 值 的 条 件数 。 

[V, D, c] = condeig(): 刀 为 4 的 特征 值 对 角 阵 ，Y 为 4 的 特征 向 量 。 


矩阵 范 数 求 取 实例 。 求 矩阵 4 的 各 种 范 数 。 
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解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> A= [138; -529;01 4]:， 


>> nl1= Dorml(A) 

>> Dn2= morm(A,1) 

>> n3= mnorm(A,， inf) 
(A， 


>> Dn4= norm(A， fro) 


输出 计算 结果 为 : 


13.5336 
21 
16 
14.1774 


TI 
Dm2 
了 3 


md4 


gs 列 范 数 
g 行 范 数 
sFrobenius 范 数 


矩阵 条 件数 求 取 实例 。 求 矩阵 4 的 各 种 条 件数 。 


13 8 
4=|-5 2 9 
0 1 4 


解 ， 在 MATLAB 命令 窗口 中 输入 : 


>> AQ= [138; -9529;01 4]:; 


>> ClL= ConaQ (A) 

>> C2= Cond (和 1) 

>> C3= cona(A, infy) 
>> c4= cona(A， “fro") 
>> C5= rcond (A) 


输出 计算 结果 为 : 
cL = 40.5924 
c2 = 85.1053 
c3 = 61.4737 
cd4 = 42.6696 
c5 = 0.0118 


%1- 范 数 的 条 件数 

g 行 范 数 的 条 件数 
sFrobenius 范 数 的 条 件数 
g 判 断 和 矩阵 的 病态 程度 


从 4 的 条 件数 可 以 看 出 ， 4 是 一 个 病态 和 矩阵 。 


相似 矩阵 有 着 相同 的 特征 值 ， 在 MATLAB 中 ， 函 数 balance 能 够 求 出 相似 变换 和 矩阵， 


它 的 基本 用 法 与 功能 介绍 如 下 。 


[下 = balance(4):， 求 相似 变换 矩阵 7 和 平衡 矩阵 瑟 ， 满 足 有 =7-47 ， 且 了 为 对 角 


阵 。 


妃 =balance(4)， 求 平衡 矩阵 B。 
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1 3 0 
矩阵 相似 变换 实例 。 利 用 函数 balance， 计 算 和 矩阵 | 3 9 4 | 的 平衡 矩阵 和 
-8 6 2 


相似 变换 矩阵 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> JUJ=[1 3 0;3 9 4:-8 6 2;]， 
>> [了 T,B]=balance(J) 


输出 计算 结果 为 ， 
工 = 0.5000 0 0 

0 1.0000 0 

0 0 2.0000 
B =1.0000 6.0000 0 


1.5000 9.0000 8.0000 
-2.0000 3.0000 2.0000 
>> B=balance (J) 
B =1.0000 6.0000 0 
1.5000 9.0000 8.0000 
-2.0000 3.0000 2.0000 


对 于 稀 朴 方 阵 ( 零 元 素 较 多 )，7 的 形式 可 能 会 不 同 。 
继续 在 MATLAB 命令 窗口 中 输入 ， 


>> JUJ=[12 .02 4.0;83 9]， 
>> [T,B]=balance(J) 


输出 计算 结果 为 ， 
T=0 0 1 
0 1 00 
1 0 0 
B=-9 3 8 
0 4 2 
0 2 1 


上 面 的 了 矩阵 为 副 对 角 线 和 矩阵， 是 因为 / 的 第 三 列 有 两 个 0， 在 求 刀 之 前 对 /了 进行 了 
行 变换 ， 如 果 想 得 到 对 角 型 的 矩阵 7T， 可 采用 noperm 选项 。 
继续 在 MATLAB 命令 窗口 中 输入 ， 


>> [T,B]=pbalance (JJ，nopetrm' ) 


输出 计算 结果 为 : 
工 =0.2500 0 0 
0 0.2500 0 
0 0 工 .0000 
B=1.0000 2.0000 0 
2.0000 4.0000 0 
2.0000 0.7500 9.0000 
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这 样 得 出 的 了 矩阵 就 为 对 角 阵 了 。 如 果 和 天 阵 4 为 对 角 阵 , 则 得 出 的 了 德 阵 为 单位 和 矩阵。 
继续 在 MATLAB 命令 窗口 中 输入 ， 


>> JUJ=[123;2 4 6)3 6 9]| 
>> [TB=balance(JU) 


输出 计算 结果 为 
Tr=1 0 0 
0 1 0 
0 0 1 
B=1 2 3 
2 4 6 
3 6 9 


求 平衡 矩阵 的 目的 是 调整 矩阵 各 个 元 素 之 间 的 大 小 关系 ， 降 低 其 病态 程度 。 
一 般 来 说 ， 改 用 平衡 失 阵 有 来 求 特征 值 ， 会 比 直接 用 4 来 求 特征 值 的 精度 要 高 。 


【2 特征 值 求 取 





特征 值 的 求法 有 多 种 ， 有 些 方 法 只 能 求 出 一 个 特征 值 ， 如 宕 法; 而 有 些 方 法 能 求 出 所 
有 的 特征 值 ， 如 收缩 法 。 有 的 只 能 求 出 实 特 征 值 ， 有 的 能 求 出 复 特 征 值 ， 如 特征 多 项 式 法 。 
有 的 能 附带 求 出 特征 向 量 ， 而 有 的 只 能 求 出 特征 值 。 下 面 由 简单 到 复杂 依次 介绍 各 种 求 矩 阵 
特征 值 的 算法 。 


6.4.1 特征 多 项 式 法 


此 方法 的 思想 十 分 简单 ， 根 据 特征 值 的 性 质 ， 它 应 该 是 特征 多 项 式 的 根 ， 因 此 可 以 通 
过 求 特征 多 项 式 的 根来 求 特征 值 。 


在 MATLAB 中 编程 实现 的 特征 多 项 式 法 的 函数 为 ; Chapoly。 | 
功能 ， 通 过 求 矩阵 特征 多 项 式 的 根来 求 其 特征 值 。 
调用 格式 : 1= Chapoly (A) 
| 其中，A 为 已 知 矩 阵 ， 

| _1 为 求 得 的 矩阵 特征 值 。 


特征 多 项 式 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function 1 = Chapoly(A) 
g 特 征 多 项 式 法 求 矩 阵 特征 值 
g 已 知 矩 阵 : & 

g 求 得 的 矩阵 特征 值 : 1 








SYImS 七 ; 

N = Size( 有 ) ; 
nn=N(L,1):， 

Yy = Qet(A-Lxeye(mny,Dn) ): 
1 = Solvel(y):; 
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1 = vpa(1，5) g 结 果 取 五 位 精度 
特征 多 项 式 求 特征 值 应 用 实例 。 采 用 特征 多 项 式 法 ， 求 矩阵 4 的 特征 值 。 
l]1 3 8 
=|-3 6 10 
-2 3 4 





解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> am [1158;,-5610; -234]; 
>> 1L= Chapoly(A) 


输出 计算 结果 为 : 
1 = -.5721 


10.786-6.4035x*I 
10.786+6.4035* 工 


由 计算 结果 可 知 ， 和 矩阵 4 的 特征 值 为 -0.3721、10.786--6.403S*i 和 10.786+6.403Sxio 
在 实际 使 用 时 ， 会 发 现 用 特征 多 项 式 法 求 矩 阵 的 特征 值 速 度 很 慢 ， 因 此 几乎 不 使 用 这 
种 方法 。 


6.4.2 ” 蝴 法 


需 法 是 用 来 求 矩 阵 的 主 特征 值 和 主 特征 向 量 的 迭代 法 。 主 特征 值 指 的 是 按 模 最 大 的 特 
征 值 ， 它 对 应 的 特征 向 量 称 为 主 特征 向 量 。 需 法 的 友 代 过 程 为 : 
给 定 迭 代 初 始 值 xzx0 和 误差 限 g>0， 


kt 二 区 


如 果 |(n 纪 -mol<e， 结束 。 
其 中 ，max(y4) 表示 向 量 y 扩 按 模 最 大 的 分 量 。 景 法 有 如 下 的 收敛 性 质 : 


加 ao 加 玫 计 
其 中 帮 为 主 特征 值 ，w 为 对 应 的 主 特征 向 量 。 
在 MATLAB 中 编程 实现 的 景 法 的 函数 为 , pmethod。 
功能 : 需 法 求 矩 阵 的 主 特征 值 及 主 特征 向 量 。 
调用 格式 : [Lv s]=pmethod (A,x0,eps) 
其 中 ，A 为 已 知 和 矩阵; 
X0 为 欠 代 初始 向 量 ; 
eps 为 进 代 的 精度 ， 
1 为 求 得 的 矩阵 主 特征 值 ; 
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v 为 求 得 的 矩阵 主 特 征 向 量 ， 
_S 为 迭代 步 数 。 


罕 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [1,v,SsS] =bmethodq(A,x0,eps) 
g 柑 法 求 矩 阵 的 主 特征 值 及 主 特征 向 量 
g 已 知 和 矩阵 ， 和 
g% 人 迭代 初始 向 量 : x0 
g 和 迭代 的 精度 epPS 
g 求 得 的 矩阵 特征 值 : 1 
g 求 得 的 矩阵 主 特征 向 量 : v 
g% 和 迭代 步 数 : s 
夺 ft nargdin=- 一 2 
eps = 1.0e 一 6; 





emQ 
V = x0:; gsv 为 主 特征 向 量 
M = 5000; gs 和 迭代 步 数 限制 
m = 0); 
工 = 0; 
for (k=1:M) 
Y 三 从 xV 
mm = max(y): sm 为 按 模 最 大 的 分 量 
V = Y/m; 
it(absf 人 fm ~ 1)<eps) 
1 = my; g% 到 所 需 精度 ， 退 出 ，1 为 主 特征 值 
s = Ki; gs 为 迭代 步 数 
Teturn: 
elSe 
工 (KK 一 M) 
qisp(' 和 迭代 步 数 太 多 ， 收 敛 速度 太 慢 ! ，) ; 
工 三 ; 
S 三 M' 
el1Se 
J 工 = my; 
enmnaQ 
emnda 
emndQ 






景 法 求 特征 值 应 用 实例 。 采 用 宕 法 求 和 矩阵 4 的 主 特征 值 和 主 特 征 向 量 。 


1 3 2 
4=|6 -1 7 
1 3 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 
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>> 和 = [152; 6-L7;)13 171]: 
>> x0=[ 111] ; 
>> [1,v,S]= pmethoqQ(A,X0) 


输出 计算 结果 为 : 

工 =8.0407 

v=0.8661 
1.0000 
0.5491 

S = 84 


由 计算 结果 可 知 ， 经 过 84 步 迭 代 ， 求 出 了 矩阵 4 的 主 特征 值 为 8.0407， 对 应 的 特征 
向 量 为 [0.8661，1.0000，0.5491]7。 


6.4.3 ” 瑞 利 商 加 速 悍 法 


如 果 矩 阵 为 对 称 和 矩阵， 可 以 用 瑞 利 法 来 加 快 辕 法 的 收敛 速度 。 对 于 非 零 向 量 x ， 它 的 
瑞 利 商定 义 如 下 : 





(4X,X 
尺 (X) = 2 人 
瑞 利 商 加 速 寡 法 的 迭代 过 程 如 下 : 
给 定 和 迭代 初 始 值 xz0 和 误差 限 >0， 
yt 一 A 
K+L 一 (hx , 太 ) 
(Ce ) 
Mk+L 一 六 一 


如 果 |om 纪 一]| <e, 则 结束 。 
当然 ， 如 果 矩 阵 不 对 称 ， 也 可 以 用 瑞 利 商 加 速 辕 法 来 求 其 特征 值 ， 但 是 加 速 的 效果 可 
能 不 是 很 明显 。 
| 在 MATLAB 中 编程 实现 的 瑞 利 商 加 速 早 法 的 函数 为 ， rpmethod。 
功能 ， 瑞 利 商 加 速 守法 求 对 称 矩 阵 的 主 特征 值 及 主 特征 向 量 。 
调用 格式 ，[L v s]=rpmethod (A, x0, eps)。 
其 中 ，A 为 已 知 矩阵 ; 
x0 为 迭代 初始 向 量 ; 
eps 为 迭代 的 精度 ; 
1 为 求 得 的 矩阵 主 特征 值 ; 
v 为 求 得 的 矩阵 主 特征 向 量 ; 
s 为 迭代 步 数 。 
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function [1,v,sS]=rpbmethod(A,x0,eps) 

g 瑞 利 商 加速 澎 法 求 对 称 抢 阵 的 主 特征 值 及 主 特征 向 量 
g 已 知 和 矩阵 ,和 

gs 迭代 初始 向 量 : x0 

gs 人 迭代 的 精度 ，eps 

g% 求 得 的 矩阵 特征 值 : 1 

g 求 得 的 矩阵 主 特征 向 量 : v 

gs 迭代 和 步 数 : s 

If Parcin= 一 2 

epPs = 1.0e 一 6 

















end 
V = X0; gsv 为 主 特征 向 量 
M = 500; gs 迭代 步 数 限制 
mn 三 0 
= 0: 
for (k=13:M) 

Y 三 和 *V; 

m = (yxv)VOvoxv)y; sm 为 瑞 利 商 


If(rank(m)>1l) 
m=(yxVv' )VAOZxV ) 
emnQ 
V =Y/m; 
ift(abstm 一 1)<eps) 
1 = my gs 到 所 需 精度 ， 退 出 ，1 为 主 特征 值 
SS 二 天; ss 为 迭代 步 数 
zeturDn， 
elSe 
I 工 (KM) 
disp(' 迭 代步 数 太 多 ， 收 敛 速度 太 慢 ! ，) ; 
1 = pm; 
S 二 M; 


endq 


| 本 形 利 商 加 速 寞 法 求 特征 值 应 用 实例 。 采 用 瑞 利 商 加 速 罕 法 求 矩 阵 4 的 主 特 
征 值 和 主 特征 向 量 。 


1 35 2 
4=|6 -1 7 
1] 3 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> AAA== [152; 6-17;13 1]: 
>> XxXO=[ 1171] 
>> [1,vV，S]= rpmethoQ(A,x0) 


150 和 和 若 入 
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输出 计算 结果 为 : 


工 =8.0407 
V =1.2239 
1 .4131 
0.7759 
S = 三 74 
由 计算 结果 可 知 ， 经 过 74 步 迭 代 ， 求 出 了 和 矩阵 4 的 主 特征 值 为 8.0407， 对 应 的 特征 
向 量 为 [1.2239，1.4131，0.7759]7。 
和 需 法 相 比 ， 同 一 个 矩阵 ， 瑞 利 商 加 速 景 法 少 用 10 步 得 到 了 主 特 征 值 。 


6.4.4 ”收缩 法 


收缩 法 可 用 来 求 矩 阵 所 有 的 特征 值 。 它 是 基于 震 法 的 求解 特征 值 的 方法 。 
设 和 矩阵 4 的 个 特征 值 按 模 从 大 到 小 排序 为 : 
[>| 和 |>| 和 |>…>| 和 | 
其 相应 的 个 线性 无 关 特 征 向 量 为 m ，oo ，…，om 。 在 计算 4 的 最 大 特征 值 及 相 
应 特征 向 量 w 后 ， 可 以 通过 收缩 方法 ， 继 续 用 乘 党 法 计算 j 及 其 相应 的 特征 向 量 oa 。 具 


体操 作 过 程 介绍 如 下 : 
登 用 宕 法 求 出 A 的 主 特 征 值 h 和 主 特征 向 量 om ; 
@、^ 
0 0 . 0 
B-4-o47= C21 Ca21011 022 21002 Dr 20 
Ga CarlGIL Gap2 一 CalGI2 … Go 一 QnrlaQln 


其 中 4 代表 和 矩阵 4 的 第 一 行 组 成 的 列 向 量 ，w 代表 主 特征 向 量 w 的 第 靖 个 分 量 
伟 去 掉 4 的 第 1 行 和 第 1 列 : 


422 -CQ21C12 023 Ca21013 … 02z 一 CQ21Gln 

妃 032 CQ31012 033 CQ31013 …， 03n 一 CQ31GQln 
1 二 。 。 。 

Qnr2 CarlGI2 03 一 CrlC3 Go 一 CanlGln 


则 有 吾 与 有 与 4 除 九 外 的 相同 的 呈 1 个 特征 值 j 和 | >| 和 |>…>| 入 | ， 可 以 用 宕 法 计算 
及 其 对 应 的 特征 向 量 wz ， 如 此 经 过 半 次 收缩 ， 就 可 把 4 的 所 有 特征 值 求 出 来 





| 在 MATLAB 中 编程 实现 的 收缩 法 的 函数 为 ，spmethod 

功能 ;收缩 法 求 矩 阵 全 部 特征 值 。 

调用 格式 : T=spmethod (A, eps)。 
其 中 ，A 是 已 知 和 矩阵; 

eps 是 精度 ; 

工 是 对 角 阵 ， 对 角 元 素 为 矩阵 A 的 特征 值 。 
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收缩 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function T=spmethoaq(A, eps) 


gs 收缩 法 求 矩 阵 全 部 特征 值 
多 已 知 矩 阵 : 全 
g% 精 度 : epPS 


g 求 得 的 矩阵 特征 值 : T 
If nargin 一 1 
eps = 1.0e-6; 





emdQ 

N = Size(A):; 

D=N(1,1): 

了 = Zeros (my,Dn) : 

也 三 入 ; 

B1I= 孔 ; 

for (1I=13:n) 
S = Sizel(B) 
rz = s(1,1); sr 为 B 的 阶 
[IT(i,i) ul = pmethod(B,ones(r,1),eps); sg% 用 早 法 求解 主 特征 值 和 主 特征 向 量 
= u/ul(1,1); g% 将 主 特征 向 量规 一 化 
B1L=B 一 urB(1,:)， 
S1T = Size(B1):; 
r1 = S(1,1):; 
B = Bl1(2:rl,2:r1); sB 为 收缩 后 的 和 矩阵 


emnaQ 


收缩 法 求 特 征 值 应 用 实例 。 采 用 收缩 法 求 和 矩阵 4 的 所 有 特征 值 。 
2 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>>A= [32 1 437:)58 6]: 
>> 了 T = spmethoa(A) 


输出 计算 结果 为 

T =13.3751 0 0 
0 -3.1534 0 
0 0 1.7782 


所 以 用 收缩 法 得 到 矩阵 4 的 三 个 特征 信 为 13.375$1，-3.1$34，1.7782。 





152 和 莽莽 移 





6.4.5 “ 道 寡 法 
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逆 寡 法 是 用 来 求 和 矩阵 按 模 的 最 小 特征 值 及 其 对 应 的 特征 向 量 的 迭代 法 。 首 宕 法 的 迭代 





公式 如 下 所 示 。 
给 定 迭 代 初 始 值 风 z*0 和 误差 限 e>0， 
yt = 丸 
12KTL __ max(y4e+1) 
MK+L 一 yy 和 
174+1 


如 果 |om*” -m|<e ， 则 结束 。 
其 中 ，max(y“ 扩 0) 表示 向 量 yt+l 按 模 最 大 的 分 量 。 
逆 需 法 有 如 下 的 收敛 性 质 ; 
。 。 1 
加 疮 -Maxoh， 加 只 = 元 


其 中 和 为 矩阵 按 模 的 最 小 特征 值 ，a 为 对 应 的 特征 向 量 。 


| 功能， 收缩 法 求 矩 阵 全 部 特征 值 。 
调用 格式 ，[L, v]=ipmethod (A, x0, eps)。 
| 其 中 ，A 为 已 知 矩 阵 ， 





X0 为 迭代 初始 向 量 ; 
eps 为 迭代 精度 ; 
] 为 求 得 的 矩阵 按 模 的 最 小 特征 值 ; 


逆 震 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [1,v]=ipmethoaQ(A,x0,eps) 
g 逆 需 法 求 矩 阵 按 模 的 最 小 特征 值 及 其 特征 向 量 
g 已 知 矩 阵 : 人 入 
g 和 迭代 初始 向 量 : x0 
# 和 迭代 的 精度 ，eps 
g 求 得 的 矩阵 特征 值 : 1 
g% 求 得 的 矩阵 特征 值 1 对 应 的 特征 向 量 ，v 
Imnargin 一 2 
eps = .0e-6: 


end 

V = X0) gV 按 模 的 最 小 特征 值 对 应 的 特征 向 量 
M = 500; g# 和 迭代 步 数 限制 

mm 一 0: 

1 = 0; 

for (k=1:M) 


| 在 MATILAB 中 编程 实现 的 逆 早 法 的 函数 为 ，ipmethod。 
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Y = 有 ANV; 
m = max(y); gm 为 按 模 最 大 的 分 量 
V = YA/m; 
if(abs(m 一 )<eps) 
1 = 1/m; gs 达到 所 需 精度 ， 则 退出 ，1 为 按 模 的 最 小 特征 值 
returny， 
人 LSe 
工 (Kk= 一 M) 
qisp( :迭代 步 数 太 多 ， 收 敛 速度 太 慢 ! ，) ; 
工 = /ma; 
elSse 
1 工 三 n; 
enQ 
endQ 
enQ 
有 逆 尖 法 求 特征 值 应 用 实例 。 采 用 逆 震 法 求 矩 阵 4 的 特征 值 。 
1 2 -2 
4=|-4 3 0 
3 1 4 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> 有 A= [12 -2 -430:5 1 4];， 


>> x0= [1 1 1]7; 
>> [1,vV] = 1ipmethoaQ(A,Xx0) 
输出 计算 结果 为 : 
1 =4.1129 
V =-0.1946 
0.6967 
1.0000 


所 以 得 到 4 的 按 模 最 小 的 特征 值 为 4.1129， 其 对 应 的 特征 向 量 为 [-0.1946，0.6967， 
1.0000] 


6.4.6 ”位 移 逆 寡 法 


位 移 逆 卉 法 是 用 来 求 矩阵 离 某 个 特定 的 常数 最 近 的 特征 值 及 其 对 应 的 特征 向 量 的 迁 
代 法 。 位 移 需 法 的 迭代 公式 如 下 所 示 。 
给 定 迁 代 初 始 值 xzx0 和 误差 e>0， 常 数 几 ， 
(4-HAD7 = 交 


Jpk+1l 二 max(y^+1 ) 
天 十 | 
大 +1 了 
二 TI 
171 


如 果 ln4-n 罗 < e ， 结 束 。 
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其 中 ，max(y*) 表示 向 量 交 411 按 模 最 大 的 分 量 。 
位 移 逆 需 法 有 如 下 的 收 信 性 质 : 
limxt = 2 ，limmkt = 
一 = IaxX(G) ) -= 4 一 及 


其 中 妃 为 离 由 最 近 的 特征 值 ，aj; 为 入 对 应 的 特征 向 量 。 











调用 格式 : [Lv]=dimethod (A, x0, u, eps)。 
其中，A 为 已 知 矩 阵 ; 
x0 为 迭代 初始 向 量 ; 
u 为 常数 ; 

eps 为 迭代 精度 

L 为 求 得 的 和 矩阵 离 & 最 近 的 特征 值 ; 
| Y 为 短 阵 特征 值 ! 对 应 的 特征 向 量 。 


位 移 逆 惊 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [1,vj=adimethod(A,x0,uvebs) 
g% 位 移 逆 祝 法 求 矩 阵 离 某 个 常数 最 近 的 特征 值 及 其 对 应 的 特征 向 量 
g 已 知 和 矩阵， 和 A 
g 迭 代 初 始 向 量 : x0 
常数: u 
gs 迭代 的 精度 ePS 
g 求 得 的 矩阵 离 u 最 近 的 特征 值 ; 1 
g% 求 得 的 矩阵 的 特征 值 1 对 应 的 特征 向 量 : v 
if nargin 一 3 
epSs = 1.0e 一 6; 


enQ 
N = Sizel(A): 
n=N(L,1); sn 为 有 的 阶 
V 二 XO; 
M = 5000; g% 和 迭代 步 数 限制 
了 = 0; 
1 = 0: 
for (k=1:M) 
Yy = (ARA-urxeyet(tnn))ANv; 
mm = max(y): sm 为 按 模 最 大 的 分 量 
V = Y/m; 


ift(abs(m - 1I)<eps) 
1=1mm+u': #s 到 所 需 精 度 ， 退 出 
eturnm 
el1Sse 
IE (Kk 一 M) 
disp(' 人 迭代 步 数 太 多 ， 收 敛 速 度 太 慢 ! ) ; 
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功能 : 位 移 逆 震 法 求 和 矩阵 离 某 个 常数 最 近 的 特征 值 及 其 对 应 的 特征 向 量 。 
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j 
| 
| 
| 
j 
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=1m+Tu' 


elSe 
1 = mn; 
enqQ 
enQ 
emdQ 
位 移 逆 守法 求 特征 值 应 用 实例 。 采 用 位 移 逆 震 法 求 矩 阵 4 的 离 4 最 近 的 特 
征 值 。 
1 2 -2 
4=|-4 3 0 
5 1 4 





解 : 在 MATLAB 命令 窗口 中 输入 ， 


>>A= [12 -2 -430:5 1 4]:; 
>> XO= [1 1 1]7; 
>> [1],vV] = Qimethodq (ARA,x0,4) 


输出 计算 结果 为 


1 =4.1145 
V =-0.1943 
0.6974 
1.0000 


RE 
认定 如 果 所 有 特征 信 高 给 





6.4.7”QR 算法 


QR 算法 是 求 矩 阵 特征 值 的 最 有 效 和 应 用 最 广泛 的 一 种 方法 ， 算 法 的 基本 依据 以 下 两 
个 定理 ; 
。 设 4 是 半 阶 矩阵 ,其 汪 个 特征 值 为 如 ,和 2,……, 思 ,那么 存在 一 个 丁 矩 阵 六 ,使 得 52A4D 
是 以 太 ,jP,……, 思 为 对 角 元 的 上 三 角 和 珑 阵 ; 
e。 设 4 是 款 阶 实 和 矩阵， 那么 ， 存 在 一 个 正 交 和 矩阵 CQ， 使 得 0440 为 一 个 准 上 三 角 珑 
阵 ， 它 的 每 一 个 对 角 元 是 4 的 一 个 特征 值 ， 对 角 元 上 的 二 阶 块 矩阵 的 两 个 特征 值 
是 4 的 一 对 共 斩 复 特征 值 。 
QR 算法 的 具体 形式 有 很 多 种 ， 下 面 讲述 常用 的 QR 基本 算法 、 海 森 伯 格 QR 算法 和 
位 移 QR 算法 。 
1. QR 基本 算法 
QR 基本 算法 的 过 程 介 绍 如 下 . 
给 定 循环 步 数 M，4L=4 ，K=12…,M ， 计 算 : 





156 知 色 若 条 


区 忆 二 CO5R4， RH 一 民 4O 


QR 基本 算法 有 如 下 的 收敛 性 质 : 
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如 果 4 的 特征 值 满足 | 为 | >| 和 |>| 和 |>…>| 和 | , 则 QR 基本 算法 产生 的 矩阵 序列 {44] 基 


功能 ，QR 基本 算法 求 矩 阵 全 部 特征 值 。 
调用 格式 ;， T= qrtz (A,M)。 
其 中 ，A 为 已 知 和 矩阵 

M 为 迭代 步 数 ; 

] 为 矩阵 A 的 全 部 特征 值 。 


function 1 = Grtz(A,M) 

gsQR 基本 算法 求 和 矩阵 全 部 特征 值 

g 已 知 和 矩阵 : 和 

g% 迭 代步 数 : M 

g 求 得 的 矩阵 特征 值 : 1 

for (=13:M) gsM 为 迭代 步 数 
[GE]=GTF (A) 
和 二 工 <GT; 

Qiag(A) 


eIdQ 


在 MATLAB 中 编程 实现 的 QR 基本 算法 的 函数 为 ，qrtz。 


本 收敛 到 上 三 角 短 阵 ( 特别 地 ， 当 4 为 对 称 阵 时 ， 收 敛 到 对 角 阵 )， 对 角 元 素 收敛 到 4 的 
特征 值 。 


QR 基本 算法 的 MATLAB 程序 代码 如 下 所 示 ; 


QR 基本 算法 求 特征 值 应 用 实例 1。 采 用 QR 基本 算法 求 矩 阵 4 的 所 有 特 


征 值 。 





解 : 在 MATLAB 命令 窗口 中 输入 : 


>>A=-1IL156) 470; 811 4]; 
>> 1 = qdqrtz(RA,20) gs 从 代 20 步 计算 


输出 计算 结果 为 : 

1 =13.4695 
-3.8565 
2.3869 


继续 在 MATLAB 命令 窗口 中 输入 : 


>> 1 = qrtz(RA,500) g% 和 迭代 500 步 计 算 
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输出 计算 结果 为 ， 
1 =13.4695 
一 3.8566 
2.3871 
因此 得 到 矩阵 4 的 三 个 特征 值 为 13.4695、-3.8$65、2.3869。 
从 上 面 可 以 看 出 ，QR 基本 算法 的 收敛 速度 很 快 ( 20 步 时 便 已 收敛 )， 而 且 用 其 他 方 
法 可 能 不 收 往 的 矩阵 却 可 以 用 QR 基本 算法 求 出 其 特征 值 。 如 果 和 矩阵 为 病态 的 话 , 则 用 QR 
基本 算法 也 可 求 出 其 特征 值 ， 但 需要 迭代 的 步骤 较 多 。 


QR 基本 算法 求 特征 值 应 用 实例 2。 采 用 QR 基本 算法 求 病态 矩阵 4 的 所 
有 特征 值 。 








解 : 在 MATLAB 命令 窗口 中 输入 : 


>>RAR= [12-2; -430: 314]; 
>> [1l,v]l = pmethod(A,x0) g 震 法 求 取 ， 最 大 迭代 5000 步 


输出 计算 结果 为 : 


( 迭代 步 数 太 多 ， 收 敛 速度 太 慢 ! ) 
1 =3.6464 
v =0.0542 
-1.2547 
1.0000 


继续 在 MATLAB 命令 窗口 中 输入 : 
>> 1= artz(A,3000) 8%OR 基本 算法 求 取 ， 人 迭代 3000 步 
输出 计算 结果 为 ; 


1 =1.3669 
2.5185 
4.1146 


继续 在 MATLAB 命令 窗口 中 输入 ， 
>> 1 = artz(A,5000) gsQR 基本 算法 求 取 ， 和 迭代 5000 步 
输出 计算 结果 为 : 


上 =2.7055 
工 .1801 
4.1145 


用 特征 多 项 式 法 计算 可 得 出 4 的 特征 值 为 [4.1145 ,1.9428+3.6386*i 1.9428-3.6386* 丫 -。 
上 面 的 计算 表明 用 震 法 不 收 你 ，QR 基本 算法 是 不 能 求 复 特 征 值 的 ， 如 果 和 矩阵 为 病态 矩阵 
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的 话 ，QR 基本 算法 需要 较 多 的 夫 代 才能 得 旬 实 竺 生根 。 





2 海 森 伯 格 QR 算法 


当 4 为 一 般 和 矩阵 时 ，QR 基本 算法 的 计算 量 很 大 ， 在 实际 使 用 时 ， 通 常 采 用 的 做 法 是 


先 将 矩阵 4 正 交 相似 变换 为 上 海 森 伯 格 矩阵 ， 然 后 再 实施 QR 基本 算法 。 


给 定 循 环 步 数 M，A41! = Hessenberg(4) ， 大 =12…,AM ， 计 算 : 
At 一 OUR 
AL REO 
这 样 每 一 步 迭 代 过 程 中 的 CO 和 4 妈 都 是 上 海 森 伯 格 和 矩阵。 所 谓 上 海 森 伯 格 矩阵 是 指 一 


个 二 阶 和 矩阵 4， 如 果 当 i> 六 1 时 ，m=0， 称 4 为 上 海 森 伯 格 矩阵 。 


在 MATLAB 中 编程 实现 的 海 森 伯 格 QR 算法 的 函 数 为 : hessqrtzo 
功能 : 海 森 伯 格 QR 算法 求 矩 阵 全 部 特征 值 。 
调用 格式 : T= hessqrtz (A, MD)。 
其 中 ，A 为 已 知 和 矩阵 ; 

M 为 迭代 步 数 ; 

1 为 矩阵 4 的 全 部 特征 值 。 
“ 海 森 伯 格 QR 算法 的 MATLAB 程序 代码 如 下 所 示 ， 


function 1 = hessdGrtz (A,M) 
g 海 森 伯 格 QR 算法 求 矩 阵 全 部 特征 值 
g 已 知 和 矩阵 ， 和 

g 迭 代步 数 ，M 

g 求 得 的 矩阵 特征 值 : 1 


有 RA = hess (和 A) ; % 将 Aa 化 为 上 海 森 伯 格 矩阵 
for (1=1 :MI) gsM 为 迭代 步 数 
[GTz]=Gr(A) 
有 三 工 xG; 
1 = Qiag(A) 
endQ 


海 森 伯 格 QR 算法 求 特征 值 应 用 实例 。 采 用 海 森 伯 格 QR 算法 求 和 矩阵 4 的 


所 有 特征 值 。 


60 3 2 
4=|4 3 8 
7 9 5 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A= [632:; 438; 79 5]: 
>> 1 = hessaqGrtz (A,20) g% 和 迭代 20 步 来 求 取 
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输出 计算 结果 为 : 

1 =15.4121 
-4.4150 
3.0029 


所 以 得 到 和 矩 阵 4 的 三 个 特征 值 为 1$5.4121、-4.4150、3.0029。 而 正确 结果 计算 如 下 。 
继续 在 MATLAB 命令 窗口 中 输入 ; 


>> 1 = Chapoly(&A) 


输出 计算 结果 为 : 
1 = 3.0 
15.412 
-4.4120 


由 此 可 见 海 森 伯 格 QR 算法 收敛 速度 也 是 很 快 的 。 

3. 位 移 QR 算法 

为 了 加 快 QR 算法 的 收敛 速度 ， 产 生 了 所 谓 的 位 移 QR 算法 ， 它 类 似 于 位 移 逆 震 法 。 
其 算法 的 迭代 过 程 介 绍 如 下 。 

给 定 循环 步 数 M，A4lL = Hessenberg(4) ， =12,…,M ， 选 择 凡 ， 然 后 计算 : 

4 -HUET=OxR Ac = REO 上 HET 
一 般 必 的 选择 有 以 下 两 种 考虑 方法 ; 
。 选 此 =aw ， 即 瑞 利 商 位 移 ， 


类 
Cnn-l Cn 


天 天 
。 和 迭代 过 程 中 ， 当时 | 人 met 选 最 接近 ab 的 那 
个 特征 值 作 为 At ， 即 威 尔 金 森 位 移 。 


在 MATLAB 中 编程 实现 的 瑞 利 商 位 移 QR 算法 的 函数 为 : rqrtz。 
功能 : 瑞 利 商 位移 QR 算法 求 矩 阵 全 部 特征 值 。 
调用 格式 : T=rqrtz (A, M)。 
其 中 ，A 为 已 知 矩 阵 ; 
M 为 迭代 步 数 ; 
1 为 矩阵 4 的 全 部 特征 值 。 


瑞 利 商 位 移 QR 算法 的 MATLAB 程序 如 下 所 示 : 


function 1 = TYGLTtLZ(A,M) 

g% 瑞 利 商 位移 QR 算法 求 和 矩阵 全 部 特征 值 
% 已 知 和 矩阵 习 

g% 迭 代步 数 ， M 

g 求 得 的 矩阵 特征 值 ， 1 

和 有 二 hess(A): 

for (1I=1:M) 





160 四 轻 若 涛 





章 ”和 矩 阵 特征 值 计 算 


Size(A) ; 
N(1 ,ITL) 
和 (nn) 7 


册 


N 
也 
UL 
[qu,r]=Gqr(A-uxeye(n,Dn)); 
和 = CrxG+Huxeyet(nn) ; 

工 = qiag(&A) :; 


end 


功能 : 威 尔 金森 位 移 QR 算法 求 和 矩阵 全 部 特征 值 。 
调用 格式 : T= wilkqrtz (A, M)。 
其 中 ，A 为 已 知 矩 阵 ; 

M 为 欠 代 步 数 ; 

] 为 答 阵 4 的 全 部 特征 值 。 


威 尔 金 森 位 移 QR 算法 的 MATLAB 程序 如 下 所 示 ， 


function 1 = wilkaGrtz(A,M) 

g 威 尔 金森 位 移 QR 算法 求 矩 阵 全 部 特征 值 
乞 已 知 矩 阵 2 

g 从 代 步 数 : M 

g 求 得 的 矩阵 特征 值 ， 1 

有 = hess(A); 





for(I=1:M) 
N = size(&A)， 
mn=N(1L,1)， 


AL = An-L):n，(n-L) :nn)， 
上 = Chapoly(A1L) ; 























if(imag(t(1,1)) 一 0 &g imaglt(2,1)) 一 0) ss 两 个 特征 值 是 否 
g 为 实数 
iflabs(tt(1,1)-Atnn))<abstttl,1)-aAtnn))) 
u=t(1L,1)， 
人 TSe 
u=t 上 (2,1); g% 选 最 接近 Atn,n) 的 那个 作为 
enQ 
elSse 
u = Atn,nl) gs 如 果 两 个 特征 值 有 一 个 为 复数 , 取 atn,n) 作 为 
emna 


[Gr]=cGr(A-uxeye (ny TDn)) ; 
入 一 工 xGq+Uxeye(mnyDn) ， 
了 Qiag (有 ) : 

emnda 


位 移 QR 算法 求 特征 值 应 用 实例 。 采 用 位 移 QR 算法 求 矩 阵 4 的 所 有 特征 值 。 


0 3 2 
4=|4 3 8 
7 9 5 
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解 ， 在 MATLAB 命令 窗口 中 输入 : 


>>A= [6327 43 8) 7 
>> 1 = TGFLZ(A,13) 多 


9 95]:; 
威 尔 金森 位 移 QR 算法 ， 人 迭代 13 步 





输出 计算 结果 为 ， 
1 =15.4121 
3.0000 
-4.4121 
>> 1 = wilkqrtz(A,13) sg% 瑞 利 商 位移 QR 算法 ， 和 迭代 13 步 
输出 计算 结果 为 ， 


1 =15 .4121 
3.0000 
一 4.4121 


所 以 得 到 和 矩阵 4 的 三 个 特征 值 为 1$5.4121、3.0000、-4.4121。 通 常 来 说 ， 位 移 QR 算 
法 比 QR 基本 算法 的 收敛 速度 更 快 。 


舒 尔 分 解 可 以 直接 给 出 矩阵 的 特征 值 。 而 对 于 对 称 和 矩阵， 奇异 值 分 解 能 给 出 特征 值 的 
绝对 值 。 这 两 种 分 解 的 函数 的 用 法 在 第 2 章 的 第 2.3.2 节 中 已 介绍 过 ， 此 处 不 再 缆 述 。 


舒 尔 分 解法 求 特征 值 应 用 实例 。 采 用 舒 尔 分 解法 求 和 矩阵 4 的 所 有 特征 值 。 


-4 3 10 
4=|9 1 8 
7 6 2 








解 : 在 MATLAB 命令 窗口 中 输入 : 


>> 有 = [-43 10)91 8 7 62]: 
>> [S,U] = Scnhur (A) 


输出 计算 结果 为 : 


S =-0.4422 -0.8713 -0.2130 
-0.6719 0.4791 -0.5647 
-0.5941 0.1066 0.7973 


U =13.9957 3.5156 -3.8192 
0 --8.6568 一 4.6962 
0 0 -6.3388 


则 4 的 三 个 特征 值 为 13.9957、--8.6568、--6.3388。 
奇异 分 解法 求 特征 值 应 用 实例 。 采 用 奇异 分 解法 求 矩 阵 4 的 所 有 特征 值 。 
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-4 9 10 
4=| 9 工 
10 8 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> 有 A= [-49 10; 91 8;) 1082]:; 
>> [S,U] = sSvQ(A) 


输出 计算 结果 为 : 


S=0.5249 -0.8505 0.0327 
0.5782 0.3282 -0.7470 
0.6246 0.4110 0.6641 


U= 17.81195 0 0 
0 12.3053 0 
0 0 6.5062 


则 4 的 三 个 特征 值 的 绝对 值 为 17.811$、12.3053、6.5062 ,事实 上 4 的 特征 值 为 17.8115、 
-12.3053、-6.5062。 


有 到 采用 eig 函数 计算 


MATLAB 提供 了 一 个 求 矩 阵 特 征 值 的 函数 eig，eig 函数 功能 强大 , 它 综合 了 以 上 几 种 - 
求解 特征 值 的 方法 ， 而 且 能 求 出 复 特 征 值 。 它 的 用 法 如 表 6-2 所 示 。 


表 6-2 eig 函数 的 用 法 


2 















如 果 4 中 某 项 非常 小 ， 采 用 mobalance 选 项 求 4 的 特征 值 和 特征 向 量 要 精确 一 些 
计算 大 个 由 s 指定 的 4 的 特征 向 量 和 特征 什 
表 6-2 中 第 5 式 中 * 可 取 的 值 如 下 ， 
@ lm':， 求 具 有 最 大 幅 值 的 上 个 特征 向 量 和 特征 值 ; 
'sm:， 求 具有 最 小 幅 值 的 大 个 特征 向 量 和 特征 值 ; 
类: 求 具 有 最 大 实 部 的 大 个 特征 向 量 和 特征 值 ; 
'Sr， 求 具有 最 小 实 部 的 大 个 特征 向 量 和 特征 值 ; 
be': 将 特征 值 的 实 部 按 大 小 顺序 排列 ， 取 两 端 共 k 个 特征 向 量 和 特征 值 ， 如 果 K 
为 奇数 ， 实 部 大 的 那 端 比 实 部 小 的 那 端 多 一 个 。 


eig 函数 求 特 征 值 应 用 实例 1。 采 用 eig 函数 求 一 般 和 矩阵 4 的 所 有 特征 值 。 
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一 | 7 06 
4=| 0 1 4 
3 -8 2 

解 : 在 MATLAB 命令 窗口 中 输入 : 

>> A=- [-176J)015) 3 -8 2]: 

>> [V，LD]l = eig(A) 

输出 计算 结果 为 : 

V = -0.9339 、 -0.7759 -0.7759 
-0.3490 -0.3779 - 0.25941 -0.3779 + 0.25941 
-0.0780 0.3191 - 0.2934i 0.3191 + 0.29341 

二 = 2.1177 0 0 

0 -0.0589 + 4.6093j 0 
0 0 -0.0589 - 4.60931 


由 计算 结果 可 知 , 矩阵 4 的 三 个 特征 值 为 2.1177、-0.0589 + 4.6093i、-0.0S89-4.6093i。 
eig 函数 求 特征 值 应 用 实例 2。 采 用 eig 函数 求 病态 矩阵 4 的 所 有 特征 值 。 





1 10718 2 
4=| 20x1018 6 3 
5 2.0x10 9 4 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=[1 1.0e-18 2 ) 2.0e-18 6 3;5 2.0e-19 4]: 
>> [V， LDL] = elid(A) ， 


输出 计算 结果 为 : 


V = -0.6767 0.0000 0.0000 
-0.2900 1.0000 -1.0000 
0.6767 0.0000 0.0000 


工 三 下.0000 0 0 
0 6.0000 0 
0 0 6.0000 


继续 在 MATLAB 命令 窗口 中 输入 ， 


>> [VDL]=eig(A，nobalance') 


输出 计算 结果 为 
V =-1.0000 0.0000 + 0.0000i1 0.0000 - 0.00001 
-0.4286 -0.0000 -1.00001 -0.0000 + 1.00001 
工 .0000 0.0000 + 0.00001 0.0000 - 0.00001 
工 三 开 .0000 0 0 
0 6.0000 + 0.00001 0 
0 0 6.0000 -0.00001 


所 以 矩阵 4 的 三 个 特征 值 为 -1.0000、6.0000 + 0.0000i、6.0000-0.0000i。 
从 于 面 的 例子 可 以 看 出 ，mobalance' 选 项 可 提高 结果 的 精度 。 
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eig 函数 求 特征 值 应 用 实例 3。 采 用 eigs 函数 求 矩 阵 4 的 任意 个 数 特征 值 。 





1 5 2 
4=|-7 6 3 
5 9 4 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> A=[15 2) -763:5 9 4]: 
>> [V,L]j=eigs(a,2,，' lim') 8g 求 矩阵 A 的 具有 最 大 幅 值 的 2 个 特征 值 及 对 应 的 特征 向 量 
输出 计算 结果 为 : 


V =0.3830 0.2623 
0.0854 -0.2811 
0.9198 0.9231 
工 三 6.9173 0 
昌 2.6804 


继续 在 MATLAB 命令 窗口 中 输入 ， 
>> [V,L]=eigs(a,2，'sr') 8g% 求 矩阵 A 的 具有 最 小 实 部 的 2 个 特征 值 及 对 应 的 特征 向 
输出 计算 结果 为 : 
=-0.1612 0.2623 
0.3553 -0.2811 
-0.9207 0.9231 


工 三 1.4023 0 
0 2.6804 


从 计算 结果 可 以 看 出 ， 和 矩阵 4 的 三 个 实 特 征 值 从 小 到 大 排列 为 1.4023、2.6804 与 
6.9173。 








本 有 





车 作 和 矩 阵 指数 计算 


短 阵 级 数 ey = > (0- 称 为 矩阵 指数 。 
= 人 0 “ 
如 果 按 定义 来 求 矩阵 指数 ， 显 然 运 算 量 非常 大 。 利 用 下 面 的 两 条 性 质 可 以 很 快 算出 一 
些 矩 阵 的 矩阵 指数 ， 
es。 如 果 和 矩阵 4 为 对 角 阵 diag( ,各 ，……, 入 ) ， 则 它 的 矩阵 指数 为 diag(e2 ,ez ,ex ) 
e。 exp(P-I4P)= PT exp(4)P。 
因此 要 求 一 个 矩阵 的 矩阵 指数 , 可 以 先 求 其 特征 值 , 再 用 第 二 条 性 质 来 求 其 矩阵 指数 。 


3 2 6 
和 矩阵 指数 求 取 实 例 。 求 矩阵 4=| 1 0 35| 的 矩阵 指数 。 
-4 8 9 


解 : 在 MATLAB 命令 窗口 中 输入 以 下 命令 : 


才 志 本 可 165 


MATLAB 语言 常用 算法 程序 集 


>> A=[3 2 6)105; -48 9]| 

>> [V,Lj=eig(A) 

V=0.6767 -0.9129 0.2283 
0.3917 -0.3651 0.8380 
0.6234 -0.1826 --0.4956 


EL =9.6847 0 0 
0 5.0000 0 
0 0 -2.6847 


>> syms 七 ; 
>> B=VxeXxXp (Lxt)*xinv(V) 
>> B=vpa(B,6) sg% 结 果 保留 6 位 有 效 数 字 
由 于 MATILAB 输出 结果 很 长 ， 将 其 整理 为 如 下 形式 : 
hg Mi Mn 
ef =| Ma M2 Ma 
、 ha3l Ma Ma3s 
其 中 : 
AM111=-0.575869kexp(9.68466*0)-0.975788+1.66667*exp(S+t)-0.0907977#exp(-2.68466*H); 
Al12 =0.851988#*exp(9.68466*0-0.02844-1.11111*exp(S$*D+0.259123*exp( 一 2.68466*0; 
AM 13 =1.17537*xexp(9.68466#xb-0.02104-1.11111*exp(S*b-0.0642577*exp( 一 2.68466*H) 
AMf 21 =-0.333333*exp(9.68466*0D-2.65813+0.666669*exp(S*b-0.333333#exp( 一 2.68466*0; 
&7 22 =0.493161*xexp(9.68466*+b+2.12226-0.444445xexp(Sxt)+0.951284*exp(-2.68466*b); 
47 23 =0.680345*xexp(9.68466*t)+2.31059--0.444446*exp(S*t)--0.235901*exp(-2.68466*b ; 
AM73l =-0.530470*xexp(9.68466*D+0.168500+0.333333*#exp(Syt)+0.197137#exp(-2.68466*); 
4h7 32 =0.784821*exp(9.68466*xb-0.197920-0.222222*#exp(S*0)-0.562599*exp(-2.68466*H 
433 =1.08271*xexp(9.68466*xb)-1.14647--0.222222#exp(Sxt)+0.139S14*+exp( 一 2.68466*f); 


这 样 就 轻松 计算 出 了 和 珑 阵 4 的 矩阵 指数 。 


上 本 小 结 


本 章 详细 讲述 了 MATLAB 中 进行 矩阵 特征 值 运 算 的 常用 解法 ， 包 括 特征 多 项 式 法 、 
震 法 、 收 缩 法 、 逆 寡 法 和 QR 方法 等 。 

进行 矩阵 特征 值 计 算 ， 用 震 法 求 最 大 模特 征 值 特 别 适用 于 稀疏 和 矩阵 ， 它 计算 简单 ， 如 
果 用 逆 宕 法 结合 位 移 技巧 则 可 以 加 快 收敛 速度 ，QR 方法 可 以 求全 部 的 特征 值 ， 它 对 于 中 
小 型 稠密 和 矩阵 的 特征 值 计 算 非 常 有 效 ， 特 别 对 于 对 称 和 矩阵 ，QR 算法 简直 可 以 说 是 完美 的 
算法 ， 此外， 一些 古典 的 方法 如 雅克 比方 法 ， 不 但 过 程 十 分 复杂 ， 而 且 与 现代 的 一 些 方法 
相 比 无 明显 的 优越 性 ， 因 此 本 章 没 有 介绍 。 
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第 f 章 数值 微分 


微分 和 积分 是 非常 重要 的 数学 运算 , 本 章 讨论 微分 的 数值 算法 。 对 于 常见 的 初等 函数 ， 
如 震 函 数 、 指 数 函数 和 三 角 函 数 等 ， 可 以 通过 解析 的 方法 来 求 出 其 导数 ， 但 是 对 于 一 些 超 
越 函 数 ， 如 级 数 形式 的 函数 等 ， 就 很 难 直接 微分 了 ， 甚 至 有 时 候 函 数 的 表达 式 都 不 知道 ， 
只 获得 函数 的 一 系列 离散 点 ， 如 实验 数据 ， 在 这 样 的 情况 下 求 函数 的 导数 就 不 能 依靠 函数 
的 表达 式 了 ， 而 是 要 依靠 本 章 所 介绍 的 几 种 数值 方法 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 数值 微分 算法 ， 而 且 还 能 熟练 使 用 MATLAB 编程 
来 实现 这 些 算 法 。 


中 点 公式 法 


此 方法 的 思想 十 分 简单 ， 由 导数 的 定义 知 ， 
CC+ 月 -CC 一 月 
1 CD=lim 


在 实际 应 用 中 ， 可 以 用 有 限 的 很 小 的 产值 代入 右边 的 式 子 求 得 导数 的 近似 值 。 表 面 上 
看 ， 似 平 步 长 越 小 ， 结 果 越 精确 ， 其 实 不 然 , 当 闫 值 十 分 小 时 ， x+ 月 的 值 与 fx- 六 的 
值 很 接近 ， 在 计算 机 上 直接 相 减 会 造成 有 效 数 字 的 损失 ， 因 此 产值 也 不 能 太 小 。 
一 般 情况 下 ， 如 果 Fo 足够 光滑 ， 疡 取 0.1 就 够 了 。 


| 在 MATLAB 中 编程 实现 的 中 点 公式 法 求 一 阶 导数 的 函数 为 ， MidPointe 
功能 : 中 点 公式 法 求 取 一 阶 导数 。 
调用 格式 : df#=MidPoint(func,x0,h)。 
其 中 ，func:， 函数 名 
x0， 求 导 点 ; 
hbh， 和 迭代 步 长 ; 
df， 导 数值 。 


中 点 公式 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Qft=MiQPoint (tunc,Xx0,DP) 

g 采 用 中 点 公式 法 ， 求 取 函 数 func 在 x0 处 的 导数 
g 陋 数 名 : func 

g 求 导 点 : x0 

g 和 迭代 步 长 : h 
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gs 导数 值 ， df 
if nargin 一 2 
=0O.1; 
else if (nargin 一 3 &k&h 一 0.0) 
disp('n 不 能 为 01 '); 
YetLurDn; 
enq 
enQ 
YI Subs (Sym(func)，ftinasym( 


Yy2 = Subs (sym(ftunc)，ftindsym(sym 
Qf = (Y1-Y2)/(2xhn); 


风 芝 交 靖 中 点 公式 法 求 一 阶 导 数 应 用 实例 。 采 用 中 点 公式 法 求 函数 六 = Vx 在 x=4 处 


的 导数 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>>Qf=MiQPoint('SsGrL(X) 4) 
输出 计算 结果 为 


Qf = 0.2500 





sh 默认 为 0.1 


Syml(ftunc) )，x0O+nh) ; 
(Eunc) )，x0-n) ; 


g% 中 点 公式 


而 函数 上 = Vx 在 x= 4 处 导数 值 的 精确 值 也 是 0.25。 


三 点 公式 法 和 五 点 公式 法 





三 点 公式 法 是 由 等 距 节 点 插值 公式 得 来 的 ， 其 思想 是 先 将 函数 用 等 距 节点 公式 进行 播 


值 ， 再 对 插值 多 项 式 求 导 数 ， 再 取 有 限 的 项 数 。 


三 点 公式 有 以 下 三 种 形式 ， 分 别 由 等 距 牛顿 前 插 、 等 距 牛 顿 后 插 和 斯 特 林 公式 得 出 以 


。 等 距 牛顿 前 插 得 出 的 三 点 公式 : 


广 Go)= 庆 C3y+4 -2) 


。 等 距 牛 顿 后 插 得 出 的 三 点 公式 : 


， _ 工 本 _ 
J 六 (xzo) 3 y-1+37y-2) 


。 斯 特 林 公式 得 出 的 三 点 公式 ; 


， ] 
了 Co) 人 y-1D) 


上 述 式 子 中 


yo =J 帮 xzo)7 = x+ 有 hy2 = 大 (xo+21) 
y-1= Jo 站,y2 = 大 (0xo 一 2j 


五 点 公式 法 和 三 点 公式 法 的 得 出 过 才 程 是 一 样 
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的 ， 只 不 过 取 的 项 数 比 三 点 公式 法 多 : 


， 1 
太 (xXo ) = T 0 2530 十 48yi 一 30y2 十 1673 一 3y4) 


， 1 
J (zxo) 1 六 0371 -10yo+18 六 -167y2 + 为) 


， 1 
= 一 -(y- -8y1+8yi 一 
三 (zxo) (7 y-I+87 一 y2) 


， 1 
J (zxo) -1 太 9) +10yo -18y-1+16y7-2 -3) 


， 1 
(xzo) = 1 (25y0 -48y7-1+36y-2 -16y-3 +37-4) 
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在 MATLAB 中 编程 实现 的 三 点 公式 法 求 一 阶 导 数 的 函数 为 : ThreePoint。 


功能 : 三 点 公式 法 求 函 数 的 一 阶 导 数 。 
调用 格式 : df= ThreePoint (func,x0,type,h)。 
其 中 ，func: 函数 名 

XO: 求 导 点 ; 

type， 采 用 的 三 点 公式 法 的 形式 ， 

h:， 步 长 ; 

df， 导 数值 。 





三 点 公式 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Qtft=ThreePoint (func,x0,type, hy) 
g 采 用 三 点 公式 法 求 函数 func 在 x0 处 的 导数 
函数 名 : func 
g% 求 导 点 : x0 
三 点 公式 法 的 形式 :type 
% 步 长 : h 
sg 导数 值 : df 
if margin 一 3 
nn=0.1; 
else if (nargin 一 4&&h 一 0.0) 
qisp('h 不 能 为 01 '); 
YeturDm 
endQ 
enQ 
for 1=1:5 


Yy(I) = subs(sym(func)，findqsym(sym(func)) ，Xx0-2xh+ixhh) ; 


emnqQ 

hd = 1/2/h; 

Switch type 
Case 1， 


df = (-3x*y(3)+ 4x*y(4) -~-y(5) )*had; gs 用 第 一 个 公式 求 一 阶 导 数 


Case 2， 


df = (3xy(3) - 4xy(2) + 3xy(1))x*hda; g% 用 第 二 个 公式 求 一 阶 导 数 


Case 3， 


吉 项 可 可 169 





出 ATLABB 语言 常用 算法 程序 集 


Gft = (y(4) -YY(2))*hai g 用 第 三 个 公式 求 一 阶 导 数 


ena 


在 MATLAB 中 编程 实现 的 五 点 公式 法 求 一 阶 导 数 的 函数 为 ， FivePoint。 
功能 : 五 点 公式 法 求 函 数 的 一 阶 导 数 。 

调用 格式 ， df#= FivePoint (func,x0,type,h)。 

其 中 ，func: 函数 名 ， 


x0: 求 导 点 ; 

type， 采 用 的 五 点 公式 法 的 形式 ， 
h: 步 长 ; 

d: 导数 值 。 


五 -点 公 趟 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function Qf= FivePoint (func,x0,type, nhl) 
g 采 用 五 点 公式 法 求 函数 funec 在 x0 处 的 导数 
g 函 数 名 : func 


g% 求 导 点 : x0 
当 五 点 公式 法 的 形式 : type 
gs 步 长 : 
gs 导 数值 : aqf 
if nargin = 一 3 
PR=0.1; 
else if (pargin = 一 4&&h 一 0.0) 
disp('h 不 能 为 0! ')， 
retuzny 
end 
enG 
for 1i=1:9 
Yy(i) = subs(sym(func)，ftindsym(sym(func)) ，X0-4xnh+ixh-hy ，; 
end 


ph = 1/12Xh， 
Switch type 
CasSe 1， 


af = (-25*y(5)+48* yY(6)-36x*y(7)+16* Y(8)-3xy(9) )*ha;gs 用 第 一 个 公式 求 导 数 


Case 2， 


df = (-3*y(4)-10* yY(5)+18*y(6)-16*x y(7)+y(8) )*hd; % 用 第 二 个 公式 求 导 数 


Case 3， 
df = (y(3)-8* y(4)+8xy(6)- y(7) )x*hdy; g 用 第 三 个 公式 求 导 数 
CasSe 4， 


df = (3*y(2)+10x y(3)-18x y(4)+16x y(5)-y(6) )xhd; g% 用 第 四 个 公式 求 导 数 


Case 5， 


Gf = (25*y(5)-48*y(4)+36* yY(3)-16* y(2)+3*x y(1) )*hd;ig% 用 第 五 个 公式 求 导数 


end 


三 点 公式 法 求 一 阶 导 数 应 用 实例 。 三 点 公式 法 求 函 数 六 = sin(z 在 x=2 处 的 


导数 。 
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解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Qf1=ThreePoint (Sin(Xx) 2，1) 
>> Qf2=ThreePoint('Sin(x)'，2，2) 
>> aqQf3=ThreePoint (Sin(Xx)'，2，3) 


用 三 种 方法 得 到 的 计算 结 





Qqf1 = -0.4178 
Qf2 = -0.4173 
df3 = -0.4155 


第 ， 章 ”数值 微分 


而 函数 /= sin0o 在 x*=2 处 的 导数 为 cos(2)= -0.4161 ， 从 上 面 三 种 方法 得 出 的 结果 来 


看 ， 都 是 十 分 接近 的 ， 其 中 以 第 三 种 方法 的 近似 效果 最 佳 。 


五 点 公式 法 求 一 阶 导数 应 用 实例 。 采 用 五 点 公式 法 求 函数 /=sinC0O 在 x=2 


处 的 导数 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> Qf1=FivePoint('sin(xXx) 2,，1)， 
>> Qf2=FivePoint (' Sin(x) 22) 
>> Qf3=FivePoint('sin(xXx) 2， 3) 
>> qf4=PivePoint(' Sin(x) 2，4) 
>> Qf5=PFivePoint (Sin(Xx)' 25) 


用 五 种 方法 得 到 的 计算 结果 为 


Qft1 = -0.4161 
Qqaf2 = -0.4161 
Gf3 = -0.4161 
Gf4 = -0.4161 
Qf5 = -0.4161 


而 函数 / = sin(09 在 x=2 处 的 导数 为 cos(2) =-0.4161 ， 从 上 面 的 结果 来 看 ， 五 点 公式 


法 的 精度 是 很 高 的 。 


用 三 次 样 条 求 已 知 函 数 fxz) 在 点 和 处 的 导数 的 算法 介绍 如 下 。 


从 以 如 为 中 心 向 两 边 等 分 出 ( 7 为 正 整 数 ) 份 , 等 分 间距 为 册 ， 即 形成 下 面 的 分 割 ， 


-1<.…<X0- 天 <X<X0 十 闫 < <Xo 二 717 
令 和 = 加 一 7 
全 以 这 些 点 形成 三 次 样 条 函数 S， 求 出 $ 的 系数 ， 
于 十 ] 


SOO= 》 cj93( 一 


-1 





一 肋 


其 中 93( 世 包 - 广 为 甩 样 条 函数 ， 





有 才 可 可 171 


网 ATILAB 语言 常用 算法 程序 集 


什 按 下 面 的 公式 求 出 点 m 处 的 导数 : 
广 (m) = 于 Go- Cn-1) 


在 MAILAB 中 编程 实现 的 三 次 样 条 法 求 导 数 的 函数 为 : DiffBSample。 

功能 : 三 次 样 条 法 求 函数 的 导数 。 

调用 格式 :df DiffBSample (func,x0,n,b)。 

其 中 ，func:， 函数 名 ， 
x0: 求 导 点 ; 
n: 等 分 份 数 ; 

h:， 步 长 ; 

| df:， 导数 值 。 


三 次 样 条 法 的 MATLAB 程序 代码 如 下 所 示 : 


function aqf0 = DiffBSamplel(ftunc,x0,n,hy) 
g 采 用 三 次 样 条 法 求 函数 func 在 x0 处 的 导数 

sg 函数 名 : func 

g 求 导 点 : x0 

g% 等 分 份 数 : mn 

g% 步 长 : h 

s 导 数值 : Qf0 


format Long; 
node_num = 2xmn 十 工 ; 


有 


for 1i=1:nodqe_num 
Yy(Ii) = Subsl(sym(func)，ftinasvymktsym(func))，x0-nxh+ixh-h) ，; 


(-3*vV(1)+4xy(2)-y(3))7 (2xPn)， 

Yy_N = (3xy(2xn+1) 一 4xy(2xnmn)+3xy(2xn-1))/(2xh) ，: 
c = SubBSample(h,2xn,y,y_1,y_N); 

QGQf0 = (c(n+3)-cCt(n+1l)) /72 

format Short 

function C = SupBSample(n ny，y_1,y_N) 

f0 = 0.0:， 


[ 
记 
员 


C = Zeros (n+3，1) ; 
bp = zerxros (n+1,1); 
有 = Qiagd(4xones(n+t,， 1))，; 
工 三 eye(n+l,n+lL): 
AD = [I(2:n+l,:)7; zeros(1,n+L)]; 
AU = [zeros(1,n+l)7I(L:n，:)]: 
有 = A+ALTAU; 8 形成 系数 矩阵 
for =2:Dm 
DP(i,1l) = 6xy(I) 7 
emndQ 
pb(1) = 6xy(1)+2xhxy 工 ; 
D(n+1l) = 6x*y(n+l) 一 2xnhxy_ N; 
= followup(Rb) g 用 追赶 法 求 出 系数 


Cl(2:n+2) = Q:; 
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Cft1) = 
Cn+3) 


EE 晤 三 次 样 条 法 求 一 阶 导 数 应 用 实例 。 三 次 样 条 法 求 函数 六 = Inx 在 *=4 处 的 
一 阶 导 数 。 

解 : 在 MATLAB 命令 窗口 中 输入 ， 

>> Gf= DifftBSample ('1og(x) 4,10,0.1) 1; g% 两 边 各 取 10 个 点 ， 步 长 为 0.1 

计算 结果 为 

df = 0.2500 

而 A=Iinx 在 x=4 处 的 导数 的 理论 值 为 0.25。 


Cl(2) 一 2xhxy _ 1; scC (一 1) 
= Cl(3)+2xhxy_N; 当 C (D+]l) 


自 适应 数值 微分 法 


用 自 适 应 数值 微分 法 求 已 知 函 数 fz) 在 点 如 处 的 导数 计算 方法 介绍 如 下 。 
首先 令 f(x)=m ; 0 直至 收敛 ， 
丛 以 如 为 中 心 向 两 边 等 分 出 半 (7 为 正 整数 ) 份 ， 等 分 间距 为 六 ， 即 形成 下 面 的 
分 割 ; 
MX 一 /< <3X 一 严 <X0<X0 十 天 < <320 十 1 天 


例 以 这 些 点 形成 三 次 样 条 函数 8$， 求 出 8 的 系数 ， 
如 十 ] 
So = 》cj93( 一 


= 一 1 





一 一 廊 
其 中 x = 天。 
从 按 下 面 的 公式 求 出 点 如 处 的 导数 : 
jiOo) = 二 (nm 一 Co-1) 
傅 如 果 |JoCo)- Nu-nCoj|<s ( 给 定 精度 )， 则 退出 ; 否则 令 严 = 瑚 *0.7S, 央 = 天 +4， 


转 合 。 
在 MATLAB 中 编程 实现 的 自 适 应 法 求 导 数 的 函数 为 ，SmartDF。 
功能 ， 自 适应 法 求 函 数 的 导数 。 
调用 格式 : df= SmartDF(func,x0,eps)。 
其 中 ，func:， 函数 名 ; 
x0:， 求 导 点 ; 
导数 精度 。 


自 适 应 法 的 MATLAB 程序 代码 如 下 所 示 


function aQf0 = SmartDFI(tunc,x0,eps) 


g 采 用 自 适 应 法 求 函 数 func 在 x0 处 的 导数 
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g% 函 数 名 : func 

g% 求 导 点 : x0 

g% 等 分 份 数 : 

g% 步 长 : h 

gs 导 数值 : df0 

format 1ong; 

It nargin 一 2 
eps = 1.0e-4: 

end 

Qf0_tmp = Inf; 

D = 2; 

hp=0.1; 

con = 1 

while con 
nodqae_num = 2xmn 十 


hd = 1/2/n; 
X = (X0-nxh) :hnh:(XO+nxhn) ， 
for 1=1:noaqae_nunm 
Y(Ii) = Subs(syml(tunc)，ftindsvm(sym(func))，x(I))， 
endQ 
Y_1 = (-3x*y(L1)+4x*y(2)-y(3) )*hay; 
Y_N = (3xy (node_num)-4*y (nodae_num-1)+3xvy (nodqe_num-2) )xha; 


c = SubBSample(th,2xny,y_1,y_N): 
Qft0 = (c(n+2)-c(tn) )xhaQ; 
if abs(GQf0 ~- Qf0_tmp) <= eps 
con = 0); 
elLSe 
Gf0_tmp = dqf0:; 
D = D+4; 
Ph = hr0.75; 
end 
emq 
function c = SubBSample(thn,y，y_ 1,y _N) 
ftormat ong:; 


f0 = 0.0; 

C = Zeros (m+3，1) 

D = Zeros (n+1,1); 
A=daQiag(4*ones(n+L ,1)): 
工 = evef(n+l,n+1) : 


AL= [I(2:n+l，:)7: zeros(1,n+l)]y; 

AU = [zeros(1,n+l);I(1L1:nv:)])， 

有 = AHAL+AU; gs 形成 系数 矩阵 
D(2:n,1) = 6xy(23:D); 

bp(LI1) = 6xy(1)+2xhxy 了 ]， 

PbP(n+1l) = 6xy (n+1)-2xhxy_N; 

QG = tollowup(RA,b) ; 用 追赶 法 求 出 系数 
Cl(2:n+2) = G; 

Cl(1)=cl(2) 一 2xhxry 1; gc (一 1 ) 

cC(n+3) = C(3)+2xhxy_N; gc (D+1) 
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用 和 玫 。 自 适应 法 求 一 阶 导 数 应 用 实例 。 采 用 自 适 应 法 求 函数 广 = nx 在 *=4 处 的 
导数 。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 





>> Qqf= SmarLDE(' 1og(x) 4) 


计算 结果 为 
df = 0.25026424861455 


这 是 在 软 认 精度 下 得 出 的 导数 值 ， 进 一 步 提高 精度 可 得 出 更 好 的 结果 


>> Qf = SmartDF('1og(x)' 4,1.0e-6) 
Gf = 0.25000264568820 


上 面 的 计算 结果 精度 为 1.0e-6。 
而 下 面 的 计算 结果 的 精度 则 达到 了 1.0e-8。 


>> qQf = SmartDF('1og(x) 4,1.0e-8) 
Gf = 0.25000002602984 








广 普 森 数值 微分 是 用 来 求 等 距 节点 在 节点 处 的 导数 的 ， 辛 普 森 数值 微分 公式 如 下 所 示 : 


4 1 六 Go | 「 302 -yo Foo) 
1 4 1 广 (2) 3(y3 一 刀 )/P 
1 4 广 ( 坟 ) |= 3474 一 72)/ 庆 


1 4| 关 eo| Lon -ao 广 Co 

其 中 ， 六 = 和 = 和 + 

如 果 端 点 导数 值 -六 (Co) 和 - 广 (xm) 未 知 ， 则 将 它们 用 中 点 微分 公式 近似 ， 这 时 的 辛 普 
森 数 值 微分 公式 为 : 





2 0 7(Co) (Op -DA 
14 1 太 (p) | | 303-yD/2 
1 4 1 Co) 二 0 


1 
0 2 广 Co (On 一 yo- DA 
在 MATLAB 中 编程 实现 的 辛普森 数值 微分 法 法 求 一 阶 导 数 的 函数 为 CISimpson。， 
功能 ， 辛 普 森 数值 微分 法 求 函 数 的 一 阶 和 导数 。 
调用 格式 1: df CISimpson (func,x0,n,h)。 | 
其 中 ，func:， 函数 名 ， 
X0 : 求 导 点 ; 
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h， 步 长 ; 
df， 导 数值 。 


调用 格式 2: df= DISimpson(X,Yn,p)o 
其 中 ，X: 横 坐 标点 ; 
Y: 纵 坐 标点 
n:， 点 的 个 数 ; 
p: 求 导 点 的 点 编号 ; 
df， 导 数值 。 


辛普森 数值 微分 法 ( 适用 于 已 知 函 数 表 达 式 ) 的 MATLAB 程序 代码 如 下 所 示 : 


functiocn Qf=CcISimpson(tunc,x0,n hy) 
gs 采用 辛普森 数值 微分 法 求 函 数 func 在 x0 处 的 导数 
g% 范 数 名 : func 
g 求 导 点 : x0 
g 等 分 份 数 : nm 
g 秒 长 : h 
g 导 数值 : df 
if nargin 一 2 g% 以 下 是 参数 的 判断 过 程 
三 0.1; 
Dm = 5; 
eSe 
if (nargin 一 3 ) 
E (nmn<5) 
aisp('n 不 能 小 于 5!); 
etUurDm 
elSse 
h=0.1; 
enmnd 
else (nargin 一 4&&h 一 0.0) 
disp('n 不 能 为 0! '); 
eturzDn 
endQ 
eDd 
for(i=1:Dm) g 这 个 循环 计算 节点 的 函数 值 
ift (modqltn,2) 一 0) 
y(i)= subs(sym(func)，finasym(SsSym(tunc)),x0O+(i-n7V2)xh)， 
elSe 
Y(Ii)= subs(sym(tunc)，tinasym(sym(ftunc) ),，x0+(I 一 (n+1)/V2)x*h) ， 
endQ 


-yy(1I))/ (2xhn): 

-y(n-2))/(2xnh); sg 这 两 行 用 中 心 微分 法 给 出 端点 的 导数 
zeros (n-2 ,1) ; 

-YY(L))V/h-E(1) : 

DJ)-Y(n-2))7Vh-t(2): 
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for (I=2: (mn-3) ) 
bti,1li) = 3x(y(i+2)-y(i))vh; 
end g 这 一 块 是 辛普森 公式 的 右边 的 列 向 量 
for (II=13:n-2) 
for (]j=1:n-2) 
if( (1 一]Jj+l) 1 (一 i+l)) 
Ati, 林 )= 1; 
else if( 1 一 了 JJ) 
AI) = 4; 
endaQ 
end 
enaQ 
enda g 这 一 块 是 系数 矩阵 
[&Q,R]=Gr(A) ; 
DF = RN(QNDb) ; 8 用 QR 分 解法 求解 
Ift( modln,2) 一 0) 
Qt = DEF(nDVZ2) 
else 
Qt = DRI((n+1)7/2) ， 
end s 求 出 x0 处 的 导数 值 


辛普森 数值 微分 法 ( 适用 于 数据 向 量 ) 的 另 一 个 MATLAB 程序 代码 如 下 所 示 ， 


function Gqf = DISimpson(X,Y,ny,Dp) 


gs 纵 坐 标点 : Y; 

g% 点 的 个 数 ， nm 

g 求 导 点 的 点 编号 : p; 

g 导 数值 : df 

IfDn < 5 
Qisp('n 不 能 小 于 5! )， 
FreturnDy; 

end sn 为 数据 点 个 数 ，p 为 要 求 导 数值 的 数据 点 编号 

itp 王 -0 
Qisp('p 不 能 等 于 0! 7) 
returny; 

enaQ 

中 =X(2)-X(1)， 

XX =J1inspace(X(1),X(n) hnh); 


f(xxX ~= XI) 
qisp( ' 节 点 之 间 不 是 等 距 的 | ') ; 
TetLuDn 
end sg 判断 是 否 是 等 距 节 点 
E(1)=(Y(3)-Y(1))7/(2xh); 
f(2)=(Y(n)-Y(n-2))7/(2x*h); g% 这 两 行 用 中 心 微分 法 给 出 端点 的 导数 
D(1,1)=3x(Y(3)-Y(1))/nh-t(1)， 
b(n-2,1)=3x*x(Y(n)-Y(n-2))7/h-f(2); 
for (1I=2 :nm 一 3) 
D(i,1) = 3x(Y(i+2)-Y(i)) An， 
end g 这 一 块 是 辛普森 公式 的 右边 的 列 向 量 
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for (1I=1:nm-2) 
for (jJj=1:n-2) 
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if( (I 一 ]j+l) 11 0 一 1+1)) 
Ri,J) = 1 工 ; 
else if( 1 == 了]) 
AI) = 4; 
emnd 
enOQ 
end 
endq g 这 一 块 是 系数 德 阵 
[QQ,R]=GF(A) ， 
DF = R\(QNb) : gs 用 CR 分 解法 求解 
if(Dp 一 1) 
Qf = 工 (1):; 
eSe 
af = DF(p-1); g 求 出 第 p 个 节点 处 的 导数 值 
enqQ 


辛普森 数值 微分 法 应 用 实例 1。 辛 普 森 数值 微分 法 求 函数 六 = ex 在 x= 2.5 处 
的 导数 值 。 

解 : 在 MATLAB 命令 窗口 中 输入 ， 

>> df =CISimpson('exp(x)', 2.5) g% 默 认 在 X= 2.5 左右 各 取 5 个 节点 ， 步 长 为 0.1 

输出 计算 结果 为 


Qf = 三 13.8179 
>> df = CISimpson('exp(x)' ,2.5,10) g% 在 X=2.9 左 右 各 取 10 个 节点 ， 步 长 为 0.1 


输出 计算 结果 为 


at = 13.4528 
>> df = CTSimpson('exp(x)' ,2.5,100) g 在 X=2.5 左 右 各 取 100 个 节点 ， 步 长 为 0.1 


输出 计算 结果 为 


Qt = 13.4637 


而 函数 上 =e* 在 x= 2.5 处 的 导数 值 为 e 5 =12.1825 。 

辛普森 数值 微分 公式 的 缺点 在 于 : 如 果 端 点 的 导数 没有 给 定 ， 则 它 的 精度 会 比较 低 ， 
当然 如 果 端 点 的 导数 未 知 ， 可 以 采用 其 他 精度 更 高 的 方法 来 近似 端点 导数 值 ， 上 面 列 出 的 
代码 是 采用 中 点 微分 公式 来 近似 的 ， 精 度 显 然 比较 低 。 


辛普森 数值 微分 法 应 用 实例 2。 用 辛普森 数值 微分 法 求 下 列 数据 点 在 x=1 
处 的 导数 值 。 











解 ， 在 MATLAB 命令 窗口 中 输入 ， 
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>> X=0:0.5:3; 
>> y=[0 0.125 1 3.375 8 15.625 27]， 
>> Qf=DISimpson(x,y,7,3) g% 求 第 3 个 节点 处 的 导数 ( 总 共 7 个 节点 ) 


输出 计算 结果 为 
aft = 3.0308 


表格 中 的 数据 点 是 根据 函数 /= x 来 离散 的 ，/ = 妇 在 x=1 处 的 导数 为 3.00， 辛 普 森 
数值 微分 法 的 结果 还 是 比较 好 的 。 


理 查 森 外 推算 法 


理 查 森 外 推算 法 的 迭代 公式 如 下 所 示 ， 
jxz+A/2)- 7Oxz-AR/2) 








CI(P) = 下 
Gu 人 -2GuO 
GD= 一 全 一 ,一 2， 
2 
1-G) 


当 迁 代步 数 充分 大 时 ，G( 到 了。 此 算法 是 一 种 金字 塔 式 的 算法 ， 底 层 是 
GDGGDGI(C)， 第 二 层 是 G( 和 ,Ga(2)…GaG2) ;顶层 是 GAi(I 。 如 表格 7-1 


所 示 。 


表 7-1 理 查 森 外 推 法 计算 表 
































在 MATLAB 中 编程 实现 的 理 查 森 外 推算 法 求 导数 的 函数 为 、Richason 
功能 : 理 查 森 外 推算 法 求 函 数 的 导数 。 
调用 格式 :df= Richason (func,x0,nb)。 
其 中 ，func， 函 数 名 
x0， 求 导 点 ; 
n:， 友 代 步 数 ， 
hbh， 步 长 ; 
三 :导数 值 。 


理 查 森 外 推 贷 法 的 MATLAB 程序 代码 如 下 所 示 ， 
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function aqQft = Richasonlttunc，x0，Dn，DPn) 

g% 理 查 森 外 推算 法 来 函数 func 在 x0 处 的 导数 

g 函 数 名 :func 

g% 求 导 点 : x0 

gs 迭代 步 数 : mn 

g% 步 长 : hn 

g% 导 数值 : df 

if nargin 一 3 

了 = 工 : 

else if (nargin 一 3 &k&nh 一 0.0) 
disp('h 不 能 为 01 '):; 
Feturn; 
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enDGQ 
emnQ 
for ( 工 = 二 :了 n) 
Y1L = subs(sym(func) ， Fn9SYm(SYm(EunS) 1 xOthA (2 ) ) 1 
Y2 = Subs(sSym(func)，finadsym(sym(ftunc)),x0o-nhn/ (2 人) ) ， 
) = 2^(i-1)x(y1-y2) /hy g 求 得 金字 塔 的 底层 值 





G1L 三 G; 
ftor(i=1 :nm 一 1) 
for(]=(Iz+1) :ny) 
G1(j)=(G()-(0.5)^(2xi)xG(j-1))/(L-(0.5)^(2*i))， 8% 求 得 金字 塔 的 每 层 值 
end 
G= G1l; 


df = Gtn); sg 顶 层 值 就 是 所 需 得 导数 值 

理 查 森 外 推算 法 求 导 数 应 用 实例 。 用 理 查 森 外 推算 法 求 函数 y= 2* 在 x=1 
处 的 导数 值 。 

解 : 在 MATLAB 命令 窗口 中 输入 : 

>> df =Richason('2^x'y 1，8) g 外 推 8 层 

输出 计算 结果 为 

Qf = 三 1 .3863 


而 函数 y>=2* 在 x=1 的 导数 的 准确 值 为 2*log(2)= 1.3863， 经 过 试验 可 以 发 现 , 对 于 各 
种 函数 ， 理 查 森 外 推算 法 都 能 达到 很 高 的 精度 。 





二 阶 导 数 求 取 法 . 

前 面 几 节 介 绍 了 一 阶 导 数 的 各 种 求法 ， 实 际 工 程 应 用 中 还 可 能 要 用 到 二 阶 导 数 ， 比 如 
说 工程 中 常常 遇 到 的 微分 方程 ， 基 本 上 都 含有 二 阶 导 数 项 ， 因 此 下 面 介 绍 求 二 阶 导数 的 两 
种 方法 ， 对 于 更 高 阶 导数 的 求法 ， 可 以 根据 基本 公式 推导 出 ， 但 是 实际 上 用 到 高 阶 导 数 的 
地 方 比 较 少 。 
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二 阶 导 数 的 求法 与 一 阶 导数 的 求法 基本 上 是 一 样 的 。 基 本 公式 如 下 所 示 ， 


jxX+ 朋 + 月 270 


上 了 CO=1im 卫 


利用 插值 公式 还 可 得 出 求 二 阶 导 数 的 多 点 公式 法 ， 常 用 的 有 三 点 公式 法 、 四 点 公式 法 


和 五 点 公式 法 。 
三 点 公式 法 求 二 阶 导数 的 公式 如 下 所 示 ， 


。 1 

三 (xo) = 元 On -27 二 y2) 
， 1 

了 Co)= 二 (7 -2y70o 二 y) 


， 1 
三 (xzo) = 石 (7 -27-1+y0) 


其 中 
》o = jxzojy= xzo+Pya = 大 (xo+27) 
7-1=Jxo -站 y2 = 一 2 


| 在 MATLAB 中 编程 实现 的 三 点 公式 法 求 二 阶 导数 的 函数 为 
功能 : 三 点 公式 法 求 函 数 的 二 阶 导 数 。 
调用 格式 : df ThreePoint2 (func,x0,type,b)。 
其 中 ，func， 函 数 名 
x0:， 求 导 点 ; 
type: 采用 的 三 点 公式 法 的 形式 ; 
h:， 步 长 ; 
df: 二 阶 导数 值 。 


三 点 公式 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function dQf= ThreePoint2 (func,x0,type,n) 
g 采 用 三 点 公式 法 求 函 数 func 在 x0 处 的 二 阶 导 数 
gg 函数 名 : func 
g% 求 导 点 : x0 
gs 三 点 公式 法 的 形式 :type 
g 步 长 : h 
gs 二 阶 导数 值 : af 
if nargin 一 3 
Php=0.1; 
else lf (nargin 一 4&&h 一 0.0) 
disp('h 不 能 为 01 '); 
YetUrDny 
emnQ 
emG 


:ThreePoint2 。 
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for 1i=1:5 
Yy(Ii) = subs(sym(tunc)，ftinadasyml(sym(func))，XxX0-2xh+irxhh) : 
end 
Pa = /RPR/Anhy 
Switch type 
CasSse 工 ， 
Gf = (yY(3) - 2x*y(4) +Y(5) )*haqy g% 用 第 一 个 公式 求 二 阶 导数 
Case 2， 
Gf = (yY(2) -~ 2x*y(3) +Y(4))*hady; s 用 第 二 个 公式 求 二 阶 导数 
CaSe 3， 
Gf = (Y(1) - 2*y(2) +Y(3))*hay; gs 用 第 三 个 公式 求 二 阶 导数 
eDnq 


三 点 公式 法 求 二 阶 导 数 应 用 实例 。 





二 阶 导数 值 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> Qfl = ThreePoint2 ('2^x5，2，1,0.01) 
>> qtf2 = ThreePoint2 ('2^x' 2, 2,0.01) 
>> qdf3 = ThreePoint2 ('22^xX'5y 2，3,，0.01) 
输出 的 计算 结果 为 
Qf1l1 = 1 .93518706365303 
Gf2 = 1.92181975020134 
Qf3 = 1.90854477148950 


用 三 点 公式 法 求 函数 7 = 人 2 关 在 x=2 处 的 


而 函数 y>=25 在 x=2 的 二 阶 导数 的 准确 值 1.9218120$5$67281, 从 上 面 的 结果 可 以 看 出 
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来 ， 第 二 个 公式 的 精度 要 相对 好 一 些 。 对 户 的 选择 来 说 ， 并 不 是 越 小 越 好 ， 从 下 面 的 结果 


就 可 以 看 出 : 
>> qf = ThreepPoint2 ('2^x5， 2,2,0.001) g% 步 长 取 0.001 
af = 1.92181213254372 
>> df = ThreePoint2 ('2^x5,2,2,0.0001) g 步 长 取 0.0001 
af = 1.92181204283770 
>> df = ThreePoint2 ('2^x5y2,2,0.00001) g% 步 长 取 0.00001 
df = 1.92181381919454 
>> dqf = ThreePoint2 ('2^x', 2,2,0.000001) g 步 长 取 0.000001 
eft = 1.92112992181137 
精度 最 好 的 产值 为 0.0001， 一 般 情况 下 都 能 达到 6 位 的 精度 。 
人 
广 (xm) = 0230 - 30y +24y7 -0y3) 
矿 (0xo) -12yo+6D) 
7 Oo) 二 C++2472 - 30y-1 +12yo) 
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在 MATLAB 中 编程 实现 的 四 点 公式 法 求 二 阶 导 数 的 函数 为 ， FourPoint2。 
功能 : 四 点 公式 法 求 函数 的 二 阶 导 数 。 
调用 格式 : df FourPoint2 (func,x0,type,h)o 
其 中 ，func: 函数 名 
x0:， 求 导 点 ; 
type:， 采用 的 四 点 公式 法 的 形式 ; 
h: | 
: 二 阶 导 数值 。 


四 点 公式 法 的 MATLAB 程序 代码 如 下 所 示 :; 





function Qtft= FourPoint2(func,x0,tyPpe,nh) 
g% 采 用 四 点 公式 法 求 函数 func 在 x0 处 的 二 阶 导数 
g 函 数 名 : func 

g 求 导 点 : x0 

g 四 点 公式 法 的 形式 ,type 


g% 步 长 : 
g 导 数值 : dt 
if nargin 一 3 
nn=0.1; 
else 1If (nargin 一 4&&gh 一 0.0) 
disp('h 不 能 为 0! '); 
retLurn; 
endQ 
enaQ 
for 1=1:7 
Yy(i) = subs(sym(func)，findsym(sym(func) ) ，X0 一 3xhPh+Ixh 一 h) ; 
en 


PhQ = 1/6/n/n; 
Switch tyYyPe 


case 1， 

af = (12xy(4) - 30xy(5) + 24xy(6) - 6xy(7) )*hd; % 用 第 一 个 公式 求 二 阶 导 数 
Case 2， 

af = (6ky(3) - 12xy(4) + 6xy(5))xha; gs 用 第 二 个 公式 求 二 阶 导 数 
casSe 3， 


af = (12xvyv(4) - 30x*y(3) + 24xy(2) - 6x*y(1))x*hd; sg 用 第 三 个 公式 求 二 阶 导数 
emnQ 


四 点 公式 法 求 二 阶 导 数 应 用 实例 。 用 四 点 公式 法 求 函数 ?= Vx 在 x=4 处 
的 二 阶 导数 值 。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> qQftl = FourPoint2 ('2^x'y4,1,0.01) 
>> QQf2 = FourPoint2 (2^Xx5y 4 2,0.01) 
>> qdqf3 = EourPoint2 (' 22^xy4，3，0.01) 


输出 的 计算 结 
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Qf1l = -0.03124933498633 
df2 = -0.03125006103666 
Qf3 = -0.03124932214623 


而 函数 y= Vx 在 x=4 处 的 二 阶 导数 值 为 -0.03125。 
五 点 公式 法 求 二 生生 和 的 会 生 如 下 所 本 








三 (xzo)= -104 六 +114y -56y3 +11y4) 
7 Co) 下 -2120yo+6y+4y72 一 芒 ) 

广 Co)=~ TD y2+10y-1-30yo+16 思 -2) 

三 (xzo) = 了 人 y-3+4y2 +0y-1-20yo+1llyl) 
row- 





在 MATLAB 中 编程 8 实现 的 五 点 公式 法 求 二 - 阶 导数 的 函 数 为 ， FivePoint2。 
功能 : 五 点 公式 法 求 函 数 的 二 阶 导数 。 

调用 格式 : df FivePoint2 (func,x0,type,bh)。 

其 中 ，func: 函数 名 | 

X0 : 求 导 点 ; | 

type: 采用 的 五 点 公式 法 的 形式 ， 

B: 

: 二 阶 导数 值 。 


五 点 公 趟 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Qf= FivePoint2 (func,Xx0,type, hy) 
gg 采用 五 点 公式 法 求 函 数 func 在 x0 处 的 二 阶 导数 
g 函 数 名 : func 
g 求 导 点 : x0 
gs 五 点 公式 法 的 形式 ， type 
g% 步 长 : h 
gs 二 阶 导 数值 af 
if nardin 一 3 
PP=0.1; 
else if (nargin 一 4&&h 一 0.0) 
disp('n 不 能 为 01 '); 
TetuzDn 
enmda 
endq 
for 1i=1:9 
Yy(i) = Subs(sym(tunc)，findsym(sym(func) ) ，Xx0-4x*h+ixh-nh) ，; 
end 
nd = 17/127/h/; 
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Switch 廿 vPe 
CaSe 工 ， 
qdf = (35*y(5)-104x y(6)+114*x yY(7)-56x y(8)+11x*x vv(9))xhad， 
gs 用 第 一 个 公式 求 导 数 


Case 2， 


Gf = (11*Yy(4)-20* Y(5)+6* yY(6)+4x Y(7)- Y(8) )*hda; 8% 用 第 二 个 公式 求 导数 


Case 3， 

af = (~y(3)+16* y(4)-30* yY(5)+16x y(6)- y(7))*hd; % 用 第 三 个 公式 求 导数 
Case 4， 

df = (-y(2)+4xy(3)-6xy(4)+20xy(5)+11xyv(6)) xha， g 用 第 四 个 公式 求 导 数 
CaSsSe 5， 

af = (35x*y(5)-104x* y(4)+114* y(3)-56x* y(2)+L1x* y(1))xhd; 

g 用 第 五 个 公式 求 导 数 

endQ 


忆 芝 罗 1 关 五 点 公式 法 求 二 阶 导数 应 用 实例 。 用 五 点 公式 法 求 函 数 y= Vx 在 x=4 处 


的 二 阶 导 数值 。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 





>> qfl = FivePoint2 ('2^x4,1，0.01) 
>> Qf2 = FivePoint2 (2^xi4，2,0.01) 
>> Qf3 = FivePoint2 ('2^x'y4, 3，0.01) 
>> Qf4 = FivePoint2 ('2^x'y4,4,0.01) 
>> Qqf5 = FivePoint2 ('2^x1iv 4 5,，0.01) 
输出 的 计算 结果 为 

Qf1l1 = -0.03124999476375 

Qqf2 = -0.03125000053172 

qt3 = -0.03124999999919 

aft4 = -0.03124999946221 

Qf5 = -0.03125000543669 


而 函数 y= Vx 在 x=4 处 的 二 阶 导 数值 为 -0.03125。 
7.7.2 ”三 次 样 条 法 
三 次 样 条 也 可 用 来 求 函数 的 二 阶 导 数值 ， 而 且 精 度 也 很 高 。 
用 三 次 样 条 求 已 知 函 数 Foo 在 点 各 处 的 二 阶 和 导数 的 算法 介绍 如 下 。 
从 以 各 为 中 心 向 两 边 等 分 出 产 份 ， 等 分 间距 为 册 ， 即 形成 下 面 的 分 割 ， 
一 HP< < 基 -天 < 加 <zi 十 下 < < 和 十 7 大 
秆 以 这 些 点 形成 三 次 样 条 函数 8$， 求 出 8 的 系数 ， 


SCoD= 全 c93C 一 二 


7=-1 





-万 
其 中 X 三 为 一 1。 
什 按 下 面 的 公式 求 出 点 加 处 的 二 阶 导数 : 
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三 (xzo) = 三 [Go) -cn] 
“在 MATLAB 中 编程 实现 的 三 次 样 条 法 求 二 阶 导数 的 函数 为 ，Diff2Bsample。 
功能 : 三 次 样 条 法 求 函 数 的 二 阶 导数 。 
调用 格式 ，df= Diff2BSample (func,x0,n,b)。 
其 中 ，func: 函数 名 ， 





X0 : 求 导 点 ; 
了 : 等 分 份 数 ; 
h: 步 长 ; 


df: 二 阶 导 数值 。 


三 次 样 条 法 求 二 阶 导 数 的 MATLAB 程序 代码 如 下 所 示 : 


function aqQft0 = Difft2BSamble(ftunc,x0,n,h) 
g 三 次 样 条 法 已 知 函 数 func 在 点 x0 处 的 二 阶 导 数 
g 函 数 名 : func 


g 求 导 点 : X0 
g 等 分 份 数 ， 
g 步 长 : h 


g 二 阶 导数 值 : af 
format 1ong' 
node_num = 2xn 十 1 
for 1=1:nodqe_num 
Yy(Ii) = subs(sym(func)，finadasym(sym(func) ) ，x0-nxh+ixh-nh) ，; 
enmnd 
Y_ 工 (-3xy(1L)+4xy(2)-y(3))7/ (2xn)， 
yy N= (3*y(2xn+1)-4xy(2xmn)+3xy(2xn-1))/(2xh)， 
c = SubBSample(th,2xniy,y 1,y_N) ; 
Qft0 = (yY(n+l)-ct(n+2))*x6/nh/h; 
format Short ; 
function c = SubBSamplelth,n,y,y_ 1,y_N) 
f0 = 0.0; 
C = Zeros (n+3 ,1) ; 


PP = Zeros (n+1 ,1) ; 
有 = Qiag(4*ones (n+1,1)); 
I = eye(n+1,n+1L) ; 


AL= [I(2:n+l,:) ;zeros(1,n+ti)]y， 
AU = [zeros(1,n+1l);I(L:n，:)]: 
和 A = A+ALHAU; g 形 成 系数 矩阵 
for =2 :DT 
PbP(i,l) = 6xy(i); 
enaQ 
P(L1) = 6xy(1)+2xhxy 1， 
P(n+1) = 6xy (n+L)-2xhxy_N; 
ad = followup(A,b); gs 用 追赶 法 求 出 系数 
C(2:n+2) = q; 
C(1) = 一 Cl2) 一 2xhxy 1:; 多 C (一 1 ) 
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ct(n+3) = C(3)+2xnhxy_ Ni; 委 C (D+1) 


三 次 样 条 法 求 二 阶 导 数 应 用 实例 。 用 三 次 样 条 法 求 函数 》= \ 在 *= 4 处 的 
二 阶 导 数值 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> qf0 = Difft2BSample ('SsSqrt(x)' 4,20,0.01) 
Qqf0 = -0.0312 


而 函数 y= Vxz 在 zx=4 处 的 二 阶 导数 值 为 -0.03125。 





本 章 介 绍 了 几 种 求 一 阶 导 数 和 二 阶 导 数 的 方法 ， 一 般 来 说 ， 求 一 阶 导数 的 方法 都 可 稍 
微 修改 一 下 用 来 求 二 阶 导 数 。 对 于 高 阶 导数 的 求法 ， 可 以 先 用 牛顿 前 插 公 式 和 后 插 公 式 对 
原 函 数 进 行 插值 ， 然 后 再 求 其 导数 ， 关 于 此 种 方法 ， 已 有 现成 的 公式 可 用 。 
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数值 积分 可 用 于 计算 解析 定义 的 函数 的 积分 ， 也 可 以 计算 以 列表 形式 给 出 的 函数 的 积 
分 ， 其 基本 原理 是 采用 多 项 式 近似 原 函 数 ， 然 后 用 该 多 项 式 的 积分 近似 原 函 数 的 积分 。 


通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 数值 积分 算法 ， 而 且 还 能 熟练 使 用 MAILAB 编程 
来 实现 这 些 算 法 。 


复合 梯形 公式 法 
梯形 公式 法 数值 积分 采用 的 梯形 公式 是 最 简单 的 数值 积分 公式 ， 函 数 FCo 在 区 间 
tw. 避 上 的 梯形 公式 法 数值 积分 表达 式 为 
六 radar= 扎 20O+yal 


由 于 用 梯形 公式 来 求 积 分 十 分 粗糙 ， 误 差 也 比较 大 ， 复 合 梯形 公式 法 积分 是 将 积分 区 
间 [ac, 忆 划分 成 对 个 子 区 间 ， 在 每 个 子 区 间 上 应 用 梯形 公式 ， 再 求 和 得 到 积分 结果 ， 复 合 梯 
形 公 式 如 下 : 








天 一 ] 
六 reodz=2U(O+2 之 AcoD+al 
天 =1 


其 中 心 =a+ 且 ,hp=222 。 
阳 
采用 复合 梯形 公式 法 求 已 知 函 数 Fx) 的 积分 的 算法 步骤 如 下 
给 定 积 分 区 间 [e,.b 和 积分 精度 eps ; 
例 对 "=1,2… ， 用 复合 梯形 公式 计算 


用 一] 
60D= 人 7Codr=207O+22JCoO+O 
天 =!1 


洲 | 到 CCP- PCP|>eps， 则 令 z= n+1， 继 续 和 迭代 ， 
否则 结束 欠 代 ， 退 出 。 


在 MAITLAB 中 编程 实现 的 复合 梯形 公式 法 求 积 分 的 函数 为 ， CombineTraprl | 

功能 ， 复 合 梯形 公式 法 求 积分 
| 调用 格式 : [q,step]= CombineTraprl(f,a,b,eps) 
| 其 中 ,全 被 积 函数 ， 
a;， 积分 区 间 左 端点 ; 
b:， 积 分 区 间 右 端点 ; 


第 呆 章 数值 积分 

一 和 一 一 一 一 一 
q， 积 分 值 ， 

Step: 区 得 积分 所 用 的 了 区 站 数 。 


复合 梯形 公式 法 求 积 分 的 MATLAB 代码 如 下 所 示 : 


function [G,step] = CombineTraprl(ft,avb,eps) 
g% 被 积 函 数 : 上 

% 积 分 区 间 左 端点 : a 

g 积 分 区 间 右 端点 ; b 

seps 精度 

gs 积 分 结果 : 如 

g%Sscep 积分 的 子 区 间 数 


if (nargin= 一 3) 





eps=1.0e-4; g% 默 认 精 度 为 0.0001 
endQ 
一 
h= (Pb-a)7/ 2; 
G1=0; 


92=(Subs(sym(t) ,finasym(sym(f)),a)+subs(sym(E) ,findsym(tsymff)),b))vhi 
while abs(d2-Gq1)>eps 


Dm=m 二 1 

DR=(b-a) /ny: 

GTL=G2 ; 

G2=0 

for ji=0:Dn=-1 g 第 n 次 的 复合 梯形 公式 积 
X=a+hxii si=0 和 mn-1 时 ， 分 别 代 表 积 分 区 间 的 左右 端点 
XT=X+h ; 


G2=q2+(h/2)*(sSubs(sym(f),finadasym(sym( 上 ) ) 区) 十 … 
Subs (Sym(f) ,findsym(sym(f)) ,xl1))，; 





end 
enma 
G=G2 ; 
StePp=Tmy， 
| 例 8-1 | 复合 榜 形 公 趟 法 求 数值 积分 应 用 实例 。 计 算 定 积分 上 -了 dr。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 





>> [aq,s]=CormpbineTraprl('17/7(X^2-1) 2，4) 

d = 0.2945 

.SS 三 15 

>> [G,Ssj=CombineTraprl('1/(x^2-1) 2，4,1.0e-6) 
对 三 0.2939 

S 二 66 


dxr = 0.2939 。 





所 以 从 复合 梯形 公式 法 可 得 出 | 


xz 一 1 


从 第 二 步 结果 可 以 看 出 ,为 了 达到 1.0e*4 的 积分 精度 ， 复 合 梯形 公式 法 采用 了 66 个 积 
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分 区 间 。 





辛普森 法 数值 积分 采用 辛普森 公式 来 计算 ， 其 数值 积分 公式 为 ， 
六 reoar= 所 2UO+47(C + 


C 十 忆 C 十 忆 


它 的 几何 意义 为 用 通过 三 点 (a,j(ao)、( 5 , 太 ( 7 )) 、 忆 , FD)) 的 抛物 线 围 成 的 曲 

边 形 面积 来 代替 给 定 函数 的 积分 。 精 度 高 一 些 的 还 有 辛普森 3/8 公式 
站 reodr= 近 27O+37C2 +37CC 人 +] 

与 梯形 公式 一 样 ， 也 有 复合 辛普森 公式 : 


有 一 1 
六 rcodr=2 订 [FOOD+47G 
大 =0O 








大 十 二 


0 
Joo) = an)= DO) 


3 十 XIA 忆 一 C 
其 中 x 1 = 一 -一 ，A= o 
人 + 严 


用 复合 辛普森 公式 求 已 知 函 数 /xz) 的 积分 的 算法 步骤 如 下 
给 定 积 分 区 间 和 积分 精度 
合 对 "=1,2… ， 用 复合 辛普森 公式 计算 
天 十 二 


瑟 玉 7 一 1 
DPCPD= 上 7CDdr= 志 LOT+41C 
K=0 2 


PPD=-PiCl>eps， 则 令 =z+li， 继 续 迭 代 ; 
否则 结束 迭 代 ， 退 出 。 


在 MATLAB 中 编程 实现 的 辛普森 系列 公式 求 积分 的 函数 为 ，IntSimpson 
功能 : 用 辛普森 系列 公式 求 积 分 
调用 格式 : [q,step]= IntSimpson (fa,b,type,eps) 
其 中 ，f:， 被 积 函数 ; 
a:， 积分 区 间 左 端点 ， 

b:， 积 分 区 间 右 端点 

type: 所 采用 的 辛普森 公式 的 类 型 ; 
| eps: 积分 精度 ; 
q: 积分 值 ; 
step:; 求 得 积分 所 用 的 子 区 间 数 。 


辛普森 系列 公式 的 MATLAB 代码 如 下 所 示 : 


function [G,step]l = InLSimpson(ft,avb,typeyeps) 


1) 二 (x+l]] 
2 





1) 二 大 (xzksl)] 
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g% 被 积 函 数 ，f 

g% 积 分 区 问 左 端点 : a 

g 积 分 区 间 右 端点 : b 

g 胖 普 森 公式 的 类 型 ， 本 ypPe 

seps 精度 

gs 积分 结果 : Gq 

g 积 分 的 子 区 间 数 : step 

If (type 一 3 && nargin<- 一 4) 
qisp( ' 缺 少 参 数 | ，) ; 





endq 
GO01; 
Switch type 
case 1， g% 圣 普 森 公式 
c=((P-a)/6)*(Subs(sym(f),findqsym(sym( 上 ) ) ，a) 十 … 
4*Subs (Sym(E) ,findasym(sym())，(aHb) /2)+… 
subs (Sym(ft),finasym(sym(E)) ,pbp) )，; 
StLep=1: 
Case 2， g 玫 普 森 37/8 公式 
q=( (bp-aj/8)*x(sSubs(sym(f) ,findsym(sym( 革 ) ) ，a) 十 … 
3x*sSubs (Sym(f) ,findasym(sym(E)) ，(2xa+b) /3) 二 … 
3*Subs(sym(f) ,findsym(sym(E) )，(a+2xb)/3)+subs(sym(Ef) ,findsvym 
(SYym(E) ) ,PP) )， 
Step=1: 
case 3， % 复 合 辛普森 公式 
mn=2 7; 
h= (DP-a) 7/2: 
G1L=0 1; 


92=(Subs (sym(E),finaqsym(sym(f)),a)+subs(sym(f),findqsym(sym(E)),b))7h; 
while abs (92-G1)>eps 
D=m+1 : 
hn= (P-a) /ny; 
GJ=G2 
G2=0 
for 1I=0:nm 一 1 
X 一 3 二 hx 工 ， 
入 1 一 X+h 
G2=G2+(h/V6)*(sSubs(sym(f) findqasym(sym(E) ) ，X) 十 … 
4*Subs (sym(E) ,Etindqsym(sym( 下 ) ) ，(XxHx1)72) 十 … 
Subs (Sym(f) ,findasym(syrm( 夺 ) ) ,xl1) ); 
end 
endQ 
G=G2 ; 
StLebp=ny， 
enmda 


辛普森 法 数值 积分 应 用 实例 。 计 算 积 分 | sin xdx 。 


解 ， 在 MATLAB 命令 窗口 中 输入 下 列 命令 ， 


>> [q,s]=InESimpson('sin(x)' 0,10,1) 
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Gd= -7.2995 

S 三 工 

>> [q,s]=IntSimpson(' sin(X) 7 0, 10,2) 
G = 0.0084 

S 三 工 

>> [Gd,sS]=IntSimpsonl' sin(xX)' 0, 10,3) 
d = 1 工 .8393 

S 二 13 


上 面 的 例子 是 分 别 用 辛普森 公式 、 辛 普 森 3/8 公式 和 复合 辛普森 公式 算出 来 的 结果 
当然 用 复合 辛普森 公式 算出 来 的 才 是 正确 的 结果 ， 即 | sin xdc=~1.8393。 

函数 sin(x) 在 区 间 [0,10] 上 积分 的 准确 值 为 -cos(10)+1， 大 约 为 1.8391， 由 此 可 见 ， 如 
果 积 分 区 间 不 是 被 积 函 数 的 单调 区 间 , 则 辛普森 公式 和 辛普森 3/8 公式 的 误差 将 是 很 大 的 ， 
而 复合 辛普森 公式 显然 不 存在 这 种 问题 。 


上 到 牛顿 - 科 藉 法 数值 积 


牛顿 - 科 茨 积分 公式 是 通过 在 个 等 距 节 点 上 用 生 1 阶 多 项 式 对 被 积 函 数 进 行 插值 来 
远近 被 积 函 数 ， 并 对 逼近 函数 求 积 分 来 获得 。 其 积分 公式 的 表达 式 如 下 所 示 ， 


Joxo)= ja) 
J (xn)= 太 O) 
梯形 公式 对 应 于 上 式 中 的 由 =1 的 情况 ， 辛 普 森 公式 对 应 于 上 式 中 的 =2 的 情况 。 一 
些 比较 常用 的 积分 公式 如 下 所 示 : 
。 科 茨 公式 ， 
六 roou= 气 
e 上 让 


@-gyY CuyGa) 
k=0 


+ +127C 2)+ +327(2 +T7O] 





42+ 记 + +507C23 + 501(C2 + 751( 人 +197(O 





e。 牛顿 - FENG 


2 +277(C2 交 +2727(2 





+277(2 人 之 + 2167(C 汪 2 +41F(D)] 


当 )” 乏 6 时 ， 关 越 大 ， 积分 精度 越 训 ， 但 是 6 积分 的 稳定 性 得 不 到 保证 ， 因 
此 一 般 情 况 下 ， 最 大 取 6 就 够 了 。 


在 M MAILLAB 二 编程 和 科 蒋 系列 公式 求 积 分 的 函数 为 : NewtonCotes 
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调用 格式 : q= Newt 





数值 积分 





onCotes (fa,b,type) 


其 中 ，f， 被 积 函 数 ; 


a:， 积分 区 间 
b:， 积 分 区 间 
type; 

:积分 值 。 


左 端 点 
右 端 点 


所 采用 的 牛顿 - 科 茨 系列 公式 的 类 型 


牛顿 - _ 科 英 系 避 [公式 的 MATLAB 代码 如 下 所 示 ， 


function dG = Newtoncotes (f ,av ptype) 


gs 被 积 函 数 : 革 
g% 积 分 区 间 左 端点 : a 
g% 积 分 区 间 右 端点 ; b 


% 和 牛顿 - 科 茨 公式 的 类 型 


g% 积 分 结果 : 可 


tyYPe 


E (type 一 3 && nargin= 一 4) 


epPS=1 .0e 一 4: 
end 
GO0; 
Switch type 
case 工 ， 
cq= ( (kb 一 
32*xSubs 
12xSubs 


忆 ) /90 


( 

( 
32*xSsubs (sym(f) ， 

( 


sg 默认 精度 为 0.0001 


g 科 茨 公 式 
人 
SYm(f) findqsym(sym(f))，(3xa+b) 7 4) 十 
SyYm ( 工 ) finaqasym(sym(E) ) ，(a+b) /2)+… 


tindasym(sym(E))，(a+3x*b) 7/ 4) 二 





7xSubs(symtE) ， finaqsym(sym(E)) ,bpb) )， 
case 2， gg 牛顿- 科 茨 六 点 公式 
c=((b-a)i/288)*(19*sSubs(sym(E) ,findsym(sym(E)) ,ay 二 
752xSubs(sSym(E) ,findsym(sym(E ) ，(4xa+b)y7/5) 十 
50*xSubps (sym( 王 ) ， findqsym(sym(E) ) ，(3xa+2xDPp)7/5) 十 
50xsubs (sym(f),Eindqsym(sym(Ef ) ，(2*a+3xb) /5S) 十 
75xSubs (sym(E) ,findQsym(sym(E))，(a+4xDb) /5)+ 
19xsups(Sym(f),ftinaqasym(sym(f))， D) ) : 
case 3， gs 牛顿 - 科 茨 七 点 公式 
G=((b-a)/840)*(41*xsubs(svym(Ef) ， finaQsymf(sym( 工 ) ) ,Ba) 士 … 
216*Sups(Sym(f) ， findasym(sym( 工 ) ) ， (5x*xa+b)7V/6) 十 
27x*Subs(sym(E) ,findqsym(sym(E))，( (2*a+b)yV/3) 二 
272*Subs(sym( 王 ) ， finqasym(sym(E))，(a+b) /2)+ 
27*Subs(Sym(f) ,findqsym( Sym ( 革 ) ) ，(a+2xbp)yV3)+ 
216x*sSubs (Sym(Et) ,findsym(sym(E))，(a+5xb)y7/6) 十 
41*xSubs (sym(f) ,findqsym(sym( 工 ) )，,b ) ) ; 
emnqQ 


牛顿 - 科 欧 系 列 公式 数值 积分 应 用 实例 。 计 算 积 分 | sin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


>> Gq=NewtonCotes ( 


“Sin(X)， 


,0 10,，1) 
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对 = 3.7613 
>> GENewtonCotes(' sin(x) 010,2) 
dG = 三 2.7865 
>> cFNewtonCcotes(' sin(x) 0, 10,3) 
G 一 .5296 


上 面 的 例子 是 分 别 用 科 茨 公式 、 牛 顿 - 科 茨 六 点 公式 和 和 牛顿- 科 欧 公 式 七 点 公式 算出 来 
的 结果 ， 当 然 第 三 个 结果 才 是 准确 的 ， 即 | sin xdx = 1.5296 。 这 个 例子 说 明 低 阶 的 牛顿 - 
科 茨 公式 也 存在 同 辛普森 公式 一 样 的 缺点 。 


高 斯 系列 公式 数值 积分 





8.4.1 高 斯 公式 


高 斯 积分 公式 的 思想 是 用 半 个 不 等 距 的 节点 为 , 如 2 对 被 积 函 数 进 行 插值 ， 然后 对 
播 值 后 的 函数 进行 积分 ， 其 积分 公式 为 


三 aa- 之 47co 
如 果 积 分 区 间 不 是 [-LI] ， 则 需 转换 到 此 区 问 ， 








必 D-af .pp-a， 0+D 
| ADdr= 5 | 7 了 + df 


其 中 系数 4 、 节 点 您 与 于 的 关系 如 表 8-1 所 示 : 
表 8-1 高 斯 公式 节点 和 系数 表 


0.0000000 
二 0.3773503 


+0.7745967 0.555$5$56 





0.0000000 0.88888889 


二 0.8611363 0.3478548 
4 
+0.3398810 0.65S21452 
二 0.9061793 0.2369269 


] +0.5384693 0.4786287 
在 MATLAB 中 编程 实现 的 高 斯 公式 求 积 分 的 函数 为 ，IntGauss 
功能 : 用 高 斯 公式 求 积 
调用 格式 : q= IntGauss(fa,b,n;,AK,XK) 
其 中 ，f:， 被 积 函 数 ; 

a: 积分 区 间 左 端点 ; 
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n， 所 采用 的 高 斯 积分 点 个 数 ， 


AK: 提 定 文系 
XK:， 自 定义 积分 点 ; 
9 积分 信 。 


高 斯 公式 的 MATLAB 代码 如 下 所 示 : 


function G9 三 Tntcauss(f,a, Din,AK,XK) 
g 被 积 划 数 : ; 

gs 积分 区 间 左 端点 : ai 

g 积 分 区 间 右 端点 ; b; 

g% 所 采用 的 高 斯 积分 点 个 数 ， nm 

g% 自 定义 系数 ，AK 

g 自 定义 积分 点 : XK; 

g 积 分 值 : di 
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if(n<5 && nargin 一 4) 
AK = 0); 
XK = 0 
ELse gs 如 果 n>4， 则 节点 和 系数 由 调用 者 给 





XK1=( (PbP-a) /2)*XK+((a+b)7/2) 
c=((b-a)/2)*xsum(RAK.xsubs(sym(E) ,findqsym(E)，XK1) ) ， 
end 
ta = (Pb-a)7/2 
tb = (af+b)y7/2 
Switch 
case 1，sn=1 时 ， 采 用 表 8-1 中 对 应 的 系数 区 和 4 进行 计算 
G=2xtaxsubs (sym(f) ,ftinasym(symt(f)) tb) ， 
case 2，s%sn=2 时 ， 采 用 表 8-1 中 对 应 的 系数 区 和 4 进行 计算 


q=tax (Subs (sym(E) ,finasym(sym( 开 ) ) ,ax0.5773503+tLb) 十 


Subs (sym(f),findqsym(Sym(E)) -ax0.5773503+Lb) ) ; 
case 3，s%sn=3 时 ， 采 用 表 8-1 中 对 应 的 系数 xx 和 4x 进行 计算 


GE=Etax(0.55555556*Subps(sym(f) ,findqsym(syrm(t)) tax0.7745967+LD) 十 
0.55555556xsSubs(sym(f),finasyrm(sym( 工 ) ) -Lax0.7745967+tDb) 十 


0.88888889*subs (sym(f)，ftinasym(sym(f)) tp) ) 
case 4，s%n=4 时 ， 采 用 表 8-1 中 对 应 的 系数 xx 和 4 进行 计算 


c=tax(0.3478548xsubs(sym(f),， tindsvym(sym(f))，car0.8611363+tD) 十 
0.3478548*subs(sym(t),findsym(sym(f)) -La*0.8611363+tLD) 十 
0.6521452xsubs(sym(f),ftindsym(sym(f)) ,ax0.3398810+tb)… 
+0.6521452*xsubs(sym(f),，findasym(sym(f)) -ax*r0.3398810+tDb) ) ， 


case 5， 8n=5 时 ， 采 用 表 8-1 中 对 应 的 系数 砍 和 4 进行 计算 


c=tax(0.2369269x*xsubs(sym(f),findasym(sym(E)) ,cax0.9061793+tDb) 十 


0.2369269xsubsi(sym(ft),finaqasym(syrm( 工 ) 


+0.4786287xsubs (sym(f), tinasym(Synm (于 


,一 ax0.9061793+LD) 十 


人 5384693+tLb) 十 


) 
0.4786287xsubs(sym(f) ,findGsym(sym(E)) ,ax0.95384693+LDb)… 

) ) 

) 


0.5688889x*xsubs(sym(ft),ftindqasym(sym( 工 ) ) ,tpD) ) 


endQ 
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BE 玫 ”高 斯 公式 数值 积分 应 用 实例 1。 计 算 积分 | xsdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 ， 


>> cFTInLGauSsSs(IX^ 9 0,，1，4) 
= 0.0999 


所 以 由 高 斯 公式 可 得 到 | xdx = 0.0999 。 
可 以 证 明 高 斯 公式 对 多 项 式 积分 是 十 分 精确 的 。 
高 斯 公式 数值 积分 应 用 实例 2。 计 算 积分 | sin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> G=InLGauSss(' Sin(X) 7 0, 10,5) 
G= 1.8167 


所 以 由 高 斯 公式 可 得 到 | sin xdx = 1.8167 。 
从 例 8-5 可 以 看 出 ， 高 斯 公式 对 于 被 积 函 数 在 积分 区 间 上 不 单调 的 情况 下 不 存在 同 六 
普 森 公式 的 缺点 。 
8.4.2 高 斯 - 拉 道 公式 
高 斯- 拉 道 求 积 公式 如 下 . 
[六 = 几 Andx -二 1CD+ 之 4yca 
前 几 个 高 斯 - 拉 道 节点 和 系数 的 取 值 与 的 关系 如 表 8-2 所 示 ， 


表 8-2 高 斯 - 拉 道 公 式 节 点 和 系数 表 






4 












0.5 
















0.333333 
-! 0.222222 
-0.289898 0.752806 
0.689898 Co 
0.125000 
0.657689 
0.776387 
0.440925 
0.080000 


[Cos 
Ce 
[Co 
[CC or 


1.5 









































-] 












-0.375319 
0.181066 
0.822824 































一 1 













-0.720480 
] -0.167181 























0.446314 
0.885792 
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功能 : 用 高 斯 - 拉 道 公式 求 积 分 
调用 格式 : q= IntGaussLada(f,ab,n,AK,XK) 
其 中 ，f， 被 积 函数 ; 

a:， 积分 区 间 左 端点 ; 

b， 积 分 区 间 右 端点 ; 

n: 所 采用 的 积分 点 个 数 ; 

AK: 自 定 义 系数 ; 

XK:， 自 定义 积分 点 ; 

9 积分 值 。 


高 斯 - 拉 道 公式 的 MATLAB 代码 如 下 所 示 ， 


function G = IntGaussLada(f,ab,n,AK,XK) 

gg 被 积 函数 :， f; 

g% 积 分 区 间 左 端点 : ai 

s 积 分 区 间 右 端点 

gs 所 采用 的 积分 点 个 数 : ni 

g 自 定义 系数 : AK 

g 自 定义 积分 点 : XK; 

g% 积 分 值 : GTi 

ift(n<6 && nargin 一 4) 
AK = 0 
民 0O7 





“在 MATLAB 中 编程 实现 的 高 斯 - 拉 道 公式 求 积分 的 函数 为 ，IntGaussLada 


第 中 章 数值 积分 





else gs 如 果 n>5， 则 节点 和 系数 由 调用 者 给 出 


XK1=( (br-a) /2)xXK+((a+pD)/2) ， 


q=((b-a)/2)x((2/nn)x*xsubs(sym(f) ,finadasyvm(sym( 上 ) ) al) 十 … 
Sum(AK.*xsubs(sym(f) ,findsym(sym(E) )，XK1) ) ) 


七 = (Pa) /2 
tb = (a+b)/2: 


Switch 了 g% 以 下 是 对 不 同 的 n 采取 不 同 的 结 点 和 系数 
case 2， sn=2 时 ， 采 用 表 8-2 中 对 应 的 系数 进行 计算 


G=tLax0.5xSubs(Sym(f) ,findqsym(sym( 上 ) ) ,tax (一 1 


) +EDb) + 


1.5xtaxsubs(sym(E) ,findsym(sym(f)) ,tax*x(17/3)+LD) ， 
case 3， sn=3 时 ， 采 用 表 8-2 中 对 应 的 系数 进行 计算 
G=ta*((2/9)*sSubs (sym(f) ,findqsym(sym(E)) ,tax( 一 1)+tb)+ 


0.752806*Subs (sym(E) ,finasym(syrm(E) ) ,上 ax (一 


0.289898)+LD)+… 


1.024972*Subps(sym(f),findsym(sym(f)) ,ta*r0.689898+tb) ) ， 
case 4， sn=4 时， 采用 表 8-2 中 对 应 的 系数 进行 计算 
GqF=tax (0.125*xSsubs(sym(f) ,findqsym(sym(f) ) ,tax( 一 1)+tb) 十 
0.657689*Subs (Sym(f) ,findqsym(sym(E)) -ax0.575319+thb) 十 
0.776387*subs (Sym(E) ,finasym(sym(f)) ,tax0.181066+Eb) 上 +… 
0.440925*sSubs (sym(E) ,findsym(sym(E)) ,ax0.822824+tb) ) ， 





case 5， sn=5 时 ， 采 用 表 8-2 中 对 应 的 系数 进行 计算 
G=taxr (0.08*SsSubs (Sym(E) ,findsym(syrm( 王 ) ) ,上 ax (一 


工 ) 十 tb ) 十 
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.446207xsubs(Ssym(t) 
.623653xsubs(sSym(f) 

.562712xsubs (Sym(f) ,findqsym(sym( 
.287427xSubs (Sym(f) ,findqsym(sym( 


, 瑟 ax0.720480+tDp) 二 … 


tinasym(sym(E) ) 
) ,一 上 ax0.167181+tDP) 十 … 
) 
) 


) 


,七 ax0.446314+tLD) 十 … 


， 开 
, 夺 indqsym(sym (于 
， 于 

f) ) ,tax0.885792+tbp) ) ; 


) 
) 
) 
enGQ 


高 斯 - 拉 道 公式 数值 积分 应 用 实例 。 计 算 积分 | esin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> G=InLGauSSLada('exp (-X)x*xsin(x) 0, 10,，3) 


G = -0.0421 
>> G=InLtGauSsSLada(' exp(-xX)*xsSin(x)' 0,10,4) 
G= 0.3310 
>> G=InLtGausSsDLaaQa('exp(-X)x*sin(x)' ,0,10,5) 
G= 0.5035 


所 以 由 高 斯 - 拉 道 公式 可 得 到 | esin xdxz= 0.5035 。 
此 积分 的 准确 值 为 0.5000， 因 此 随 着 "的 增 大 ， 高 斯 系列 公式 的 精度 是 越 来 越 高 的 。 
8.4.3， 高 斯 - 洛 巴 托 公式 
高 斯 - 洛 巴 托 求 积 公式 如 下 ， 
7 一 ] 
[(P= 六 read 一生 TCD+AOI+ 全 人 FGoa) 

1 7( 有 一 1) 之 

高 斯 - 洛 巴 托 公式 的 前 几 个 节点 和 系数 取 值 见 表 8.3。 





表 8-3 高 斯 - 洛 巴 托 公式 节点 和 系数 表 
4 
1.333333 

















0.333333 








0.833333 


0.166666 
0.711111 








0.544444 
， 0.100000 


二 0.285232 0.354858 








+0.765055 0.378475 


土 1 0.066667 


| 在 MATLAB 中 编程 实现 的 高 斯 - 洛 巴 托 公式 求 积 分 的 函数 为 ，ImtGaussLobato 
| 功能， 用 高 斯 - 洛 巴 托 公式 求 积 











调用 格式 : q= IntGaussLobato (fabnAK.XK) 
其 中 ，f， 被 积 函数 ， 
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a， 积 分 区 间 左 端点 ; 

b， 积 分 区 间 右 端点 ; 

n: 所 采用 的 积分 点 个 数 ; 
AK:， 自 定义 系数 ; 

XK:， 自 定义 积分 点 ; 

q: 积分 值 。 


高 斯 - 洛 巴 托 公 式 的 MATLAB 代码 如 下 所 示 ， 


ftunction SG = IntGaussLobato(t,a,b,n,AK,XK) 
g 被 积 函 数 : 工 ; 
积分 区 间 左 端点 : a; 
gs 积分 区 间 右 端点 : Db; 
% 所 采用 的 积分 点 个 数 : n; 
g 自 定义 系数 : AK 
g 自 定义 积分 点 : XK; 
g% 积 分 值 : Gi; 
If (n<7 && nargin 一 4) 
AK = 0 


第 女 章 数值 积分 


elSse s 如 果 n>6， 则 节点 和 系数 由 调用 者 给 


XK1=( (PbD-a) /2)x*xXK+((a+b) /2) ， 


Gq=((p-a)/2)x((2/nV(n-1L))*(subps(sym(E) findasym(sym( 上 ) ) ,Ba) 十 … 


Subs (Sym(E) ,finasym(sym(f)),D) )+… 
Sum(AK.xsubs(sym(E) ,findqsym(symf(E)),，XK1) )) ， 


二 a = (b-a)y/2: 
tb = (a+b)/2: 


Switch 了 g 以 下 是 对 不 同 的 n 采取 不 同 的 结 点 和 系数 


case 3， sn=3 时， 采用 表 8-3 中 对 应 的 系数 进行 计算 
GF=tLax((1/3)*x(Subs(sym(E),ftindsym(sym(E) )，a)+… 
Subs(Sym(f),findsym(sym(E) ) ,Pb) ) 二 … 
1.333333*subs (Sym(f) ,findsym(sym(E)) tb) )，; 
case 4， sn= 4 时， 采用 表 8-3 中 对 应 的 系数 进行 计算 
G=ta*((1T/6)x*x(subs(Ssym(E),ftindasym(sym(E) )，a) 十 … 
subs (Sym(f),findqsym(sym(ft)),b))+0.833333x.… 
(Subs (Sym(f) ,finasym(sym(f)) ,tax0.447214+tD) 十 … 
Subs{(sSym(f),findasym(sym(f)) -ax0.447214+tb) ) ) ， 
case 5， sn= 5， 采 用 表 8-3 中 对 应 的 系数 进行 计算 
gq=ta*((1/10)*(Subs(sym(f),findsym(sym( 上 ) ) ,aa) 二 … 
Subs (Sym(f) ,findsym(sym(ft))，b))+0.544444x… 
(Subs (Sym(f) ,findqsym(sym( 开 ) ) ,tax0.654654+tDb) 上 +… 





subs (Sym(f),findqsym(Ssyrm(E)) ,一 Lax0. 654654+tb) ) 十 … 


0.711111*xsubs (Sym(Ef),Eindqsym(sym(E)) tb) ) ， 
case 6， %n= 6， 采 用 表 8-3 中 对 应 的 系数 进行 计算 
G=tax((1/15)*x(sSubs(sym(f),，findsyrm(sym( 人 下) ) ,aa) 十 … 
Subs (Sym{(f),findqsym(sym()) ,Pb))+0.554858x…， 
(Subs (Sym(f),Eindsym(sym(E)) ,tax0.285232+tLtb) 上 +… 
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Subs (Sym(f) ,findasym(sym(E)) -ax0.285232 上 tb) ) 十 … 
0.378475* (SuUbs(sym(Et),Efinasym(sym(f)) ,ax0.765055 上 tb) 二 … 


subs (sym(f),ftindsym(sym(E)) -ax*r0.765055+tb)) ) ; 
endQ - 


人 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 





>> Ge=IntGausSsLobato('exp (-X)x*xsin(x) 010,4) 
G= 0.0993 
>> G=InLGauSSsLopbato( 'exp (-xX)xsin(x)'，0,10,5) 
G= 0.4560 
>> cG=IntGauSssLopbato (exp (-X)xsin(x)' ,0,10,6) 
G= 0.5075 


所 以 由 高 斯 - 洛 巴 托 公式 可 和 拔 时 到 | er-xsin xdx= 0.5075 。 


上 面 求 出 的 值 可 以 和 积分 的 准确 值 0.5000 对 照 比 较 。 如 果 积 分 节点 个 数 为 半 的 话 ， 高 
斯 公式 的 积分 精度 为 22 -1; 高 斯 - 拉 道 公式 的 积分 精度 为 22-2 ; 高 斯 - 洛 巴 托 公式 的 积 
分 精度 为 272 -3 。 但 是 如 果 知 道 被 积 函数 在 区 间 的 端点 上 取 值 为 0 的 话 ， 宣 采用 高 斯 - 拉 道 
公式 或 高 斯 - 洛 巴 托 公式 。 





区 间 逐 次 分 半 法 数值 积分 


区 间 逐 次 分 半 法 本 质 上 是 一 种 复合 积分 法 ， 它 通过 把 积分 区 间 逐 次 分 半 ， 以 达到 想 要 
的 积分 精度 。 下 面 讲述 常见 的 三 种 区 间 逐 次 分 半 法 积分 ， 分 别 是 区 间 逐 次 分 半 梯 形 公 式 数 
值 积 分 、 区 间 逐 次 分 半 辛 普 森 数值 积分 和 区 间 逐 次 分 半 布 尔 数值 积分 


8.3.1 ”区间 逐 次 分 半 梯 形 公 式 数 值 积分 
区 间 逐 次 分 半 梯 形 公式 为 ， 





， 
六 7Coaz=2[ACoD+ yo 
天 =1 


jxzo)= Ga), 7Cx)= 大 (D) 
六 一 4 





| 在 MATLAB 中 编程 实现 的 区 间 逐 次 分 半 梯 形 公式 求 积分 的 函数 为 ，DDTrapt |] 

功能 ， 用 区 间 逐 次 分 半 梯 形 公式 求 积 
调用 格式 ，[q,step] = DDTraprl(fa,b,eps) 
其 中 ，f， 被 积 函 数 ; 


a:， 积分 区 间 左 端点 ; 
[| b 积分 区 间 右 端 点 ; 
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eps， 精 度 要 求 ， 
dq: 积分 结果 ; | 
step， 积分 的 子 区 间 数 。 


区 间 逐 次 分 半 梯 形 公 式 的 MATLAB 代码 如 下 所 示 ， 
function [qd,step] = DDTFrapr1l (ta b,eps) 

g 被 积 函数 : 于 

gs 积分 区 间 左 端点 : a 

gs 积分 积分 区 间 右 端点 : b 

s 精 度 :eps 

g 积 分 结果 : g 

gs 积分 的 子 区 间 数 :step 


if (nargin 一 3) 





epSs=1 .0e 一 4: 
end:; 
n=1， sm 为 划分 子 区 间 的 次 数 ， 也 就 是 公式 中 的 mn 
h= (b-a) ; 
92=(Subs (sym(f) findsym(sym(E) )，a)+subs(sym(f),findsym(sym(E)),b))/hy/2， 
To1lL=1: 
whlile tol>eps 
D=m 二 1 ， 
h=hy7/2; g% 区 间 逐 次 分 半 
GJ=G2 ; 
G2=0 
for 1i=0:(2^n-1) 
X=3+hx; 
X1=X+h 
G2=G2+(h/2)*(Subs(sym(E) ,findsym(sym( 丰 ) ) ，X) 十 … 
SuUps(sSym(f) ,findqsym(symf(f)) ,xl1))， 务 
emdQ 
tol=abs (Gdq2-G91) ; 
enaQ 
G=G2 ; 
Step=ny; 


区 间 和 逐次 分 半 梯 形 公式 数值 积分 应 用 实例 1。 用 区 间 逐 次 分 半 梯 形 公式 计 


0 
算 积分 | esin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> [G,S]=DDTraprl('exp (-x) xsin(x) 0, 10,4) 
0.5000 
10 


中 上 


所 以 由 区 间 逐 次 分 半 梯 形 公式 可 得 到 | "exsin xdr~ 0.5000 。 


区 间 逐 次 分 半 梯 形 公 式 数值 积分 应 用 实例 2。 用 区 间 逐 次 分 半 梯 形 公式 计 


算 积 分 人 iogoe +Ddx 。 
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解 ， 在 MATILAB 命令 窗口 中 输入 下 列 命令 ， 


>> [Gq,s]=DDTrapr1l('1og(x^2+1) 0，10) 
qd = 29.0935 
S = 9 


可 见 ， 由 区 间 逐 次 分 半 梯 形 公式 可 得 到 太 iogz +Ddr= 29.0935 。 


8.5.2 ”区 间 逐 次 分 半 邓 普 森 公式 数值 积分 
区 间 和 逐次 分 半 辛 普 森 公式 ， 
玉 天 221 
外 7CDdx = 之 [Got-a)+47CocD+7Goa 
大 =1 
Joo)= FoO, CoD)=7O) 





在 MATLAB 中 编程 实现 的 区 间 逐 次 分 半 辛 普 森 公式 求 积分 的 函数 为 ， DDSimpson 
| 功能 ， 用 区 间 逐 次 分 半 辛 普 森 公式 求 积 
调用 格式 : [q,step] = DDSimpson (fa,b,eps) 
a:， 积分 区 间 左 端点 ， 
b:， 积 分 区 间 右 端点 ; 
eps， 精度 要 求 ; 
9 积分 结果 ; 
step: 积分 的 子 区 间 数 。 
区 间 逐 次 分 半 辛 普 森 公式 的 MATLAB 代码 如 下 所 示 ; 
function fdq,stepj = DDSimpsonmn(ft ,ab,eps) 
g 被 积 函数 : 芋 
g 积 分 区 间 左 端点 : a 
g 积 分 区 间 右 端点 ，b 
g% 精 度 ， epPps 
gs 积分 结果 : G 
g% 积 分 的 子 区 间 数 : step 


Ift(nargin 一 3) 
epSs=1 .0e 一 4: 


enQ:; 

D=I1; sm 为 划分 子 区 间 的 次 数 ， 也 就 是 公式 中 的 mn 
了 一 D 一 己 ; 

G1=0 1; 


G2=(SsSubs (sym(f) ,finaqsyrm(Sym( 工 ) ) ,aa) 十 
subs (sym(f),finaqsym(sSym(f)) bp))/Vnh/72， 

toO1L=1; 

while tol>eps 
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D=mT+1， 

h=h/2; gs 区 间 逐 次 分 半 
GTL=G2: 

G2=0; 


for i=0:(2^(n-1)=-1) 
X 一 +hx2xI; 
入 一 X+D 
X2=X1+Hn : 
G2=G2+(nV3)*(subs(sym(f) ,findqsym(sym( 下 ) ) ，X) 十 … 
4xSubs (Sym(fE) ,findsym(sym( 工 ) ) ,X1) 上 +… 


subs (sym(ft),findqsym(sym(f)),x2) ) ， g% 辛 普 森 公式 
enmdQ 
tol=abs(G2-G1) ; 
endq 
G=G2 ; 
SteDp=Tmy; 


有 ETIT 区 间 逐 次 分 半 辛 普 森 公式 数值 积分 应 用 实例 。 计 算 积分 e*sin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 
>> [G,s]=DDSimpson('exp(-x)xsin(x)' 0,10) 
G= 0.5000 
S= 8 
所 以 由 区 间 逐 次 分 半 辛 普 森 公式 可 得 到 | esinxdz~ 0.5000 。 
对 于 同样 的 积分 精度 ， 区 间 逐 次 分 半 辛 普 森 公式 比 区 间 逐 次 分 半 梯 形 公式 划分 的 子 区 
间 次 数 要 少 。 
8.2.3 ”区 间 逐 次 分 半 布 尔 公 式 数值 积分 
区 间 逐 次 分 半 布 尔 公 式 为 : 
45-1 
三 reodr 和 全 并 Dyoor) +32 帮 (zx4k-3)+12.F(0x4k 2)+327(0x4k)+7FCxr)] 
KE=l 
Jo) = Fa Ac )= 大 D) 








在 MATLAB 中 编程 实现 的 区 间 逐 次 分 半 布 尔 公式 求 积分 的 函数 为 ， DDBuer 
功能 ， 用 区 间 逐 次 分 半 布 尔 公式 求 积 
调用 格式 : [q,step]=DDBuer (fa,b,eps) 
其 中 ，f:， 被 积 函 数 
a， 积 分 区 间 左 端点 
b， 积 分 区 间 右 端点 ; 
eps， 精度 要 求 ; 
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| 
1 
1 
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gd : 积分 结果 


Step : 积分 的 子 区 间 数 。 


- 坟 训 


function fGq,step] 
g 被 积 函 数 : 荆 

g 积 分 区 间 左 端点 

s 积 分 区 间 右 端点 : b 
g% 精 度 ，eps 

s 积 分 结果 : 

gs 积分 的 子 区 间 数 ， step 


If (nargin 一 3) 


系 次 分 半 布 尔 公 式 的 MATLAB 代码 如 下 所 示 、 


DDBuer (ff,a,b,eps) 


epSs=1 .0e 一 4: 
erQ: 
D=T1 1 sm 为 划分 子 区 间 的 次 数 ， 也 就 是 公式 中 的 mn 
Ph=D--a; 
GT=0 7 
G2=(sSubs (sym(f) ,findasym(sym(E))，a)+subs(sym(f),findqasym(sym(E))，b))/nh72， 
tol1=]1; 
while tol>eps 
mm=nmn+1: 
h=h7/4; g 注 意 是 除 以 4! 
GJL=G27 
G2=0 
for 1=0:(4^(n-1)=--1) 
X=a+mhx4x; 
入 =X 二 了 
X2=X1+Hh， 
X3=X2+Hh; 
X4=X3 二 了 hn; 
人 
32*Subs (Sym(f) ,findsym(sym( 下 ) ) ,X1) 十 
12*xSubs(Ssym(f) findasym(Ssym( 工 ) ) ，X2) 十 … 
32xSubs(Sym(f) ,finasym(sym( 人 E) ) ,，X3) 二 … 
7xsubsteymtE) findasyntevatey) 人 ) ) ; g% 布 尔 公 式 
enqQ 
tol=abs (G2-G1) ; 
endaQ 
G=G2 ; 
Step=nmy; 
区 间 逐 次 分 半 布 尔 公式 数值 积分 应 用 实例 。 计 算 积 分 六 e- <*sinxdxr 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


>> [G,s]=DDBuer! 
G 三 0.5000 
S 三 5 
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exp (一 X) 


xsSin(x) 0,10) 
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所 以 由 区 间 逐 次 分 半 布 尔 公式 可 得 到 | esinxdz~ 0.5000。 
对 于 同样 的 积分 精度 ， 区 间 逐 次 分 半 布 尔 公 式 的 速度 是 最 快 的 。 


龙 贝 格 积分 法 是 用 里 查 森 外 推算 法 来 加 快 复合 梯形 求 积 公式 的 收敛 速度 ， 它 的 算法 如 
下 ， 其 中 7 亿 是 一 系列 逼近 原 定 积分 的 龙 贝 格 积分 值 。 
登 计算 
7 -2O+yO 
壬 对 上 =12,3,….m ， 计 算 下 列 各 步 ， 


1 -4 管 I 27 一 DC 一 a 
To 
Jj=l 


对 严 =12…, 大 和 ii= 大 大 -1 一 2…,1， 计 算 
1 rrT 一 ] 
7 -4Z2-m 和 一 和 
4 -1 
舍 精度 控制 
把 上 面 的 计算 过 程 用 表 8-4 表示 如 下 。 


表 8-4 龙 贝 格 积分 计算 表格 





























随 着 计算 的 步骤 的 增加 ，79@ 越 来 越 逼 近 积分 「 7Codx 。 下 面 的 代码 是 用 To 来 逼近 


「 Foodx 的 MATLAB 代码 。 


在 MATLAB 中 编程 实现 的 龙 贝 格 公式 求 积分 的 函数 为 ，Roberg 
功能 : 用 龙 贝 格 公式 求 积 
调用 格式 : [q,step] = Roberg (fa,b,eps) 
其 中 ，f， 被 积 函 数 ， 


a， 积 分 区 问 左 端点 ， 
b:， 积分 区 间 右 端点 ; | 
eps， 精 度 要 求 
q: 积分 结果 ; 
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| step， 积 分 的 子 区 间 数 。 
龙 贝 格 积 分 的 MATLAB 代码 如 下 所 示 : 


function [dstep]=Roberg(t,avb,eps) < 
g 被 积 函 数 : 革 
积 区 间 左 端点 : 己 人 
gs 积分 区 间 右 端点 : b 4 





g 精 度 : eps 
g 积 分 结果 : G 
g% 积 分 的 子 区 间 数 : step 
If (nargin 一 3) 

epSs=1 .0e 一 4; 
enQ: 
M=1; 
ol1=10: 
kk=0 
T=zeros (1,1) 
h=b 一 a; 
T(1,1)=(n/2)x(Subs(sym(f),，ftindsym(sym(f)),a)+SsSubs(sym(f),ftindsym(sym(f) 
) ,PbP) ) 





gs 初始 值 
while tol>eps 
KK==K+1 ， 
Ph=h/2:; 
Q=0 1， 
for 1I=1:M 


X=a+hx (2*1 开 ) ; 
Q=Q+subs (sym(f) ,finasym(sym(E) ) ，xX) ; 


emQ 

T(k+r1l,1)=T(k,1)72+hxoQy; g 龙 贝 格 积 分 表 中 的 第 k 行 第 一 列 的 积分 值 
M=2xM; 

for ]Jj=1:K 


(kk+1，j+1)=T(k+1, JJ)+(T(K+1 ,JJ)-T(k, 林 ))/ (423j-1) ; 
g 龙 贝 格 积分 表 中 的 第 k 行 其 余 积分 值 
end 
tol=abs (T(k+1l,j+l)-T(k,3)); 5% 精 度 控制 
emd 
GE=T (K+1，K+1) ; 
Step=K; 


龙 贝 格 公式 数值 积分 应 用 实例 1。 计 算 积 分 | xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 
>> [dsS]=Ropberg( 'Xx^ 2 一 1 1) 

G = 三 0.6667 

S 三 2 


所 以 由 龙 贝 格 公式 可 得 到 | xzdx~ 0.6667 。 
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ERIESEI。 龙 贝 格 公式 数值 积分 应 用 实例 2。 计 算 积分 | St 


0SinX 十 COS 天 
解 : 在 MAILAB 命令 窗口 中 输入 下 列 命令 : 


>> [GaG,sj=Roperg('sin(xX)/ (sin(X)+cos(X)) 0 1) 


GE= 0.3383 
S= 3 
、 日 1 Sin X 
所 以 由 龙 贝 格 公式 可 得 到 | 一 一 一 dr~0.3383 。 


0SinX 十 COSX 





四 到 自 适应 法 求 积分 

自 适 应 积分 法 是 一 种 比较 经 济 而 且 快 速 的 求 积 分 的 方法 。 它 能 自动 地 在 被 积 函数 变化 
剧烈 的 地 方 增多 节点 ， 而 在 被 积 函数 变化 平缓 的 地 方 减少 节点 。 因 此 它 是 一 种 不 均匀 区 间 
的 积分 方法 。 按 照 子 区 间 上 的 积分 方式 它 可 以 分 为 自 适 应 辛普森 积分 法 和 自 适 应 梯形 积分 
法 。 通 常 采用 前 者 作为 子 区 间 的 积分 方式 。 

自 适 应 积分 法 的 基本 步骤 如 下 : 


登 将 积分 区 间 [w 疏 分 成 两 个 相等 的 1 级 子 区 间 [oa+ 和 [e+2,a+ 癌 且 

















户 =D 一 CQ ; 
舍 在 这 上 述 两 个 1 级 子 区 间 上 用 辛普森 积分 得 到 积分 7 ， 和 7 了 70 
0.417 


415 有 
全 将 子 区 间 [oa+ 习 分 成 两 个 相等 的 2 级 子 区 间 [aa+ 总 ] 和 [e+ 二 ,at 习 ; 
@ 例 采用 辛普森 积分 计算 得 到 : 


CO _ 70 (0 
/7 严 =! 卢 +7 严 瑚 





好 ,G 十 如,GQ 十 如 十 -一 ;Q 十 
2 22 22 ”2 
ne 尼 习 习 
全 比较 /2 ， 和 10 ，， 如 果 |/ ， 一 1@ 中 <10x5 ， 其 中 为 整体 积分 所 需 精度 ， 
Gy,G 十 一 恕 ,G 十 一 人 好,@ 十 一 QQ 十 一 
2 2 2 2 








则 认为 子 区 间 [aa+ 习 上 的 积分 1 ,已 达到 所 需 精度 ， 不 需要 再 细 分 ， 否 则 就 需要 再 细 
444 


分 ， 对 每 个 2 级 子 区 间 做 同样 的 判断 。 
1 级 子 区 间 [a+ 2,a+ 月 的 操作 过 程 与 上 面 完全 相同 。 
| 在 MATLAB 中 编程 实现 的 自 适应 辛普森 求 积分 的 函数 为 ，SmartSimpsm 
| 功能: 用 自 适应 辛普森 公式 求 积 
调用 格式 : q = SmartSimpson (fa,b,eps) 
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| 
上 
| 
和 
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分区 问 在 
.各 分 针 果 。 


自 二 训 主 可 宁可 放风 MATLAB 代码 如 下 所 示 : 


function c=SmartSimpson(f,av beps) 


g 被 积 函 数 ， 上 

g 积 分 区 间 左 端点 ; a 

g 积 分 区 间 右 端点 : b 

g 精 度 ，eps 

gs 积分 结果 ， | 

If (nargin==-3) 
epPS=1 .0e 一 4 

end: 





e=DxepSs: 


c=SubSmartSimpson(t,a,be): 


function c=-SupSmartSimpson(f,a,b,eps) 


QA=IntSimpson ( 工 


,avrb,1l,eps); #s 对 整个 区 间 用 辛普森 积 





QLeft=IntSimpson(ft,a,(a+b)/2,1,eps):; gs 对 左 子 区 间 用 辛普森 积 
QRight=IntSimpson(E, (af+b)/2,b,l,eps);  % 对 右 子 区 间 用 辛普森 积 
if(abs(QLetft+QRight-QA)<=eps) 


GF=QA; sg 精度 足够 则 返回 积分 值 
elSe 
gq=SubSmrtSimpson(f,a，(a+b)/2,eps)+SubSmartSimpson(f,，(a+b)/2,b,eps):; 
gs 递归 公式 
enaQ 


ET 和 白 运 


应 辛普森 积分 公式 数值 积分 应 用 实例 1。 计 算 积分 | xsin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


>> Gq=SmartSimpsonl('xrsint(x) 0 1) 


GE= 0.3011 


所 以 由 自 适应 辛普森 积分 公式 可 得 到 | xsin xdx = 0.3011。 


适应 辛普森 积分 公式 数值 积分 应 用 实例 2。 计 算 积 


分 人 Rd 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


>> Gq=SmartSimpsonl('1/(SsSGL(X)+Sin(X)) 1 2) 


q = 0.4622 


所 以 由 自 适应 辛普森 积分 公式 可 得 到 | 


一 一 天 dr=0.4622 。 


ET 


自 适 应 辛普森 积分 应 用 十 分 广泛 ， 不 管 被 积 函数 多 复杂 ， 它 都 能 快速 地 得 到 高 精度 的 


结果 ，MATLAB 中 的 积 
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函数 quad 就 采用 自 适应 辛普森 积分 方法 。 
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上 国 济 三 次 样 条 函数 求 积 





用 三 次 样 条 求 积分 MP)= | /CoDdr 的 算法 介绍 如 下 。 
僵 将 区 间 [c, 中 等 分 成 靖 等 份 ， 节 点 为 ， 
难 一 C 十 人 (KE= 0.12,……,1) 
其 中 p=a+7P; 
并 在 两 端点 各 延 拓 一 点 ; 
X_1 二 CQ 一 天 
2Xn+lL 三 Q 十 (十 中 忆 
什 以 这 些 节 点 形成 三 次 样 条 函数 S， 求 出 $ 的 系数 : 
Sn- 全 oos( 二 


= 一 | 





其 中 paC 一 过 ) 为 妃 样 条 函数 ， 
舍 按 下 面 的 公式 求 出 积 


/CD= | saDdr 和 +coD+2Co+oo+ 
分 ha 十 Cn- NS 
k2 
在 MATLAB 中 编程 实现 的 三 次 样 条 求 积 分 的 函 函数 为 ， IntSample 
功能 : 用 三 次 样 条 插值 求 积 
调用 格式 : q= IntSample(func,a,b,m) 
其 中 ，fonc， 被 积 函 数 ; 
a:， 积分 区 间 左 端点 ， 
b:， 积分 区 间 右 端点 ; 
积分 区 间 等 份 数 ; 
积分 值 。 


二 次 样 条 求 各 分 的 MATLAB 代码 如 下 所 示 ， 


tunction Q = IntSamplel(func,ayb,DTn) 

g 被 积 函 数 : func 

gs 积分 区 间 左 端点 a 

积分 区 间 右 端点 : b 

gs 积分 区 间 等 份 数 : n 

g 积 分 结果 : G 

format 1ong:， 

nodqe_num = mr+3; 和 加 上 延 拓 的 2 个 节点 共 n+3 个 节点 
了 = (Pb-a) ny; 
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for 1I=1:nodqe_num 
Yy(I) = subs(sym(func)，ftindqsym(sym(func))，a+ixh-2xh) ; 


语言 常用 算法 程序 集 


Y_ 1T = (-3xy(1)+4xy(2)-y(3))/(2x*Pn)， 
Yy_N = (3xy (node_num)-4x*y (nodqe_num-1)+3xv(nodqe_num-2))7/(2xh)， 
c = SubBSample(th,node_num-1l,y,y_1,y_N); gs 用 样 条 逼近 法 求 出 样 条 系数 





ie] 
册 


ctnode_num) ) /247; 


for ]j=4:noae_num 一 1 
GL = GHhhxcl(]); 
enG 
format Short : 
function C = SubBSample(th,ny,y_ 1,y NI) 
f0 = 0.0:; 
C = Zeros (n+3 1) 
pb = zeros (n+1,，1)， 
和 =dQiag(4xones(n+1l,1))， 
工 = eye 人 (n+1lL,n+1); 
AL = [I(2:n+l,，:)7zeros(1,n+l)]， 
AU = [zeros (1,n+l);I(1:ny，:)]:，; 
& = AHAL+AU; g 形 成 系数 矩阵 
for =2 :mn 
b(i,1) = 6xy(I); 
enQ 
D(1) = 6xy(1)+2xhxry_ 1， 
D(n+l1) = 6xy(n+l) 一 2xhxy N; 
aq = followup(A,b); gs 用 追赶 法 求 出 系数 
cf(2:Dn+2) = Qi; 
cl(l1) =Cl(2) 一 2xhxy 1， 
cC (n+3) = C(3)+T2xhxy_N; 千 


三 次 样 条 函数 求 积分 应 用 实例 。 采 用 样 条 函数 求 积分 | sin xdx 。 


oo 


( 开 ) 


C 
C (n+l) 


解 : 在 MATILAB 命令 窗口 中 输入 下 列 命令 : 


>> 9 = IntSamplel('sin(x)',，0,1, 300) 
对 三 0.4624 


理论 值 为 Tsinxdr=1-cosl = 0.4597 ， 为 了 提高 精度 可 以 增 大 郊 的 值 : 


>> Gd = IntSamplel('sSinf(x)'， 0, 1 600) 
G 三 0.4610 


医生 划 平均 抛物 插值 求 积分 


如 果 被 积 函 数 Fo 是 一 个 在 下 列 离散 点 上 给 出 值 的 函数 : 





AMX0 ,，X，… An 一 1 


六 
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hx(cl(1)+c(nodqe_num+2))/24+nhx(c(2)+cltnode_nurm+1l) )7/2+23xhx(c(3) 十 
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且 有 a= 了 加 < 让 < 区 MX 一 六 则 
十 羽 





用 一 2 
六 7CDd = 全 @ 帮 +3 帮 -RD)+ 写 有 GT3H 一 全 二 
1=1 





4 G 记 +3 廊 一 万 
其 中 上 式 中 的 符号 的 意义 如 下 





0 
无 = 一 一 一 和 万 + HH 二 12，… 
于 下 人 妨 有 大 十 训 Je 
人 入 
1 一 i+] 十 二 (1… 一 2 
=- 记 克 大- 矶 Ji 和 
户 = 一 大 之 = 01 天 一 1 


0， 三 硝 /1= 二 2 天 
所 一 0l ar1 


在 MATLAB 中 编程 8 实现 的 抛物 插值 求 积 分 的 函数 为 IntPWC 

功能 : 用 抛物 插值 求 积 分 

调用 格式 : q= IntPWCCXYn) 

其 中 ，X: 横 坐 标 向 量 ; 
Y: 纵 坐 标 向 量 ; 
:积分 点 的 个 数 ; 
9 积分 值 。 


抛物 插值 求 积 分 的 MATLAB B 代码 如 下 所 示 ， 


function 对 InLPWC (X,Y,，Dn) 
g 横 坐标 向 量 
g 纵 坐标 向 量 : 
gs 积分 点 的 个 数 : nm 

g 积 分 结果 : 巡 

format 1Longy; 

Ph = zeros (nn-1 ,1); 
Lamdqa = Zeros(ny, 1); 
工 三 Zeros (nn-2 1) ， 

有 = Zeros (n-2，1) ; 
DIta = Zeros (nn-2 ,1) 


Fr 共有 











hl(1) = 和 X(2)-X(1L)， 
for j=1:n-2 g% 计 算 每 个 子 区 间 的 积分 参数 
hn (j+L1) = 双 (j+2)-X(J+1) ， 
Tamqa(j) = Phlj)vnl(j+L); 
Djtal() = Ph(J+l)/n(): 
D(J) = (Dita(J)*Dlta(j))xY(j)/(L1+DLta(]j ) )-D1ta(Jj)xY(Jj+L) 二 … 
+Dlta(J)*Y(J+2)/(LI+DLIta(Jj) ); 
RD) = (Lamda(j)*1lamda(j))xY( (j+2)7/(L+lamaa(j))-1amdga(j)xYy(j+l)+… 


+lamaqa(j)*Y(j)/(1+lamdga( 林 ))， 
endq 
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区 =hTL)x*(3xY(d)+3x*Y(2)-R(L))76+nh(n-L)*(3xY(n-1L)+3xY(n) 一 LOn-2))7/6; 


for K=2 :nm 一 2 


G= 允 十 h(k)*x(3*Y(K)+3x*xY(K+l) 一 0.5*R(K)-0.5xD(K-1L))7/6; 


end 
format Short 


平均 抛物 插值 求 积分 应 用 实例 。 采 用 平均 抛物 插值 求 积分 | sin xdx 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> X=0:0.1:1; 
>> Y=Sin(X) ， 


>> Gq=IDnLPWC(X,Y，11) 


G= 0.4597 


从 结果 可 以 看 出 平均 抛物 插值 的 精度 是 很 高 的 。 


计算 只 分 | dx ， 





刀 


此 积分 是 很 经 典 的 积分 ， 用 MATLAB 的 Int 函数 求 得 的 结果 为 


0.94608307036718， 用 平均 抛物 插值 求 此 积分 的 过 程 如 下 : 


>> X=0:0.1:1 
>> Y(T)=1; 
>> for Jj=2:11 


Y(]j)=sin(x(j))/Vx()， 


enQ 


>> c=InLPNC(X,y,11) 


G= 0.9461 


可 见 结果 是 很 精确 的 。 


奇异 积分 
对 于 一 般 的 奇异 积 


， 没 有 通用 的 数值 方法 来 求 出 结果 ， 只 能 针对 具体 的 情况 采取 不 


同 的 方法 。 对 奇异 积分 的 处 理 方法 有 : 积分 变量 替换 法 、 奇 异性 的 解析 处 理 、 分 解法 、 康 


托 洛 维 奇 法 、 菲 隆 法 等 。 


8.10.1 高 斯 - 拉 盖 尔 公式 
高 斯 - 拉 盖 尔 公式 有 两 种 形式 : 


0 


三 sodx = 》4kF(xx) 
kl 


由 7Codr= 之 4e 7) 


系数 和 节点 的 值 如 表 8-5 所 示 。 


212 逢 色色 入 


第 忠 章 数值 积分 








表 8-5 高 斯 - 拉 盖 尔 公式 节点 和 系数 表 


人 AK 





-0.583786 0.853553 


3.414214 0.146447 


0.415575 0.711093 


























2.294280 0.278518 








6.289945 0.0103893 


0.322548 0.603154 











1.745761 0.357419 











4.536620 0.0388879 











9.395071 0.000539295 











0.263560 0.5217506 








1.413403 0.398667 











3.596426 0.0759424 





7.085810 0.00361176 











12.640801 0.0000233700 
下 面 编制 的 程序 是 针对 第 一 种 形式 的 高 斯 - 拉 盖 尔 公式 ， 妈 
人 eyeodr= 六 hyom 
大 =1 


因此 程序 的 第 一 个 输入 参数 一 一 被 积 函数 ,是 上 式 中 的 fo) ,请 注意 例题 的 输入 方式 。 








在 MATLAB 中 编程 实现 的 高 斯 - 拉 盖 尔 公式 求 积分 的 函数 为 ，IntGaussLager 
功能 ， 用 高 斯 - 拉 盖 尔 公式 求 积 
调用 格式 ，q= IntGaussLager(fin,AK,XK) 
| 其 中 ，f:， 被 积 函数 ; 
n， 所 采用 的 积分 点 个 数 ， 
AK:， 自 定义 系数 ; 
XK:， 自 定义 积分 点 ; 








function Gd9 = IntGaussLager ( 丰 ,ny,AK,XK) 
g% 被 积 函 数 : f; 
gs 所 采用 的 积分 点 个 数 : ni; 
g% 自 定义 系数 : AK 
g 自 定义 积分 点 : XK; 
gs 积 分 值 : qi 
if(n<6 && nargin 一 2) 
AK = 0; 
XK = 0); 
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elSse 
G=Sum(AK.x*xsSubs(sym(f) ,finasym( 和 ) ，XK) ) 
end 
Switch DTn 
case 2， sn= 2 时， 采用 表 8-5 中 对 应 的 系数 进行 计算 
c=0.853553xgsSubs(syml(ft)， ftinadasyrm(sym(ft)) -0.585786)++ 
0.146447xSsubs(sym(ft), findasym(sym(f))，3.414214) ， 
casSe 3， s= 3 时 ， 采 用 表 8-5 中 对 应 的 系数 进行 计算 
G=0.711093xsubs (sym(ft),，Eindqsym(sym(E))，0.4195575) 十 … 
0.278518*xSubs (Sym(f) ,finasym(Sym( 工 ) ) ，2.294280 ) 十 … 
0.0103893*xsSubs(sym(E) ,tindqsym(sym(f))，6.289945) 
case 4， sn=4 时 ， 采 用 表 8-5 中 对 应 的 系数 进行 计算 
Gd=0.603154xSubs(syml(t) findsym(sym(E))，0.322548) 二 … 
0.357419*xgsups (Sym(f) ,finadasym(sym(E))，1.745761) 十 … 
0.0388879*SsSubs(sym(f) ,findqsym(sSym(ft))，4.536620) 十 …， 





0.000539295*xSubs(sym(ft) tinasym(syrm(ft))，9.395071) ; 
case 5， s=5 时， 采用 表 8-5 中 对 应 的 系数 进行 计算 
Gc=0.521756x*subs(sym(f), findsym(sym(Et))，0.263560) 十 … 
.398667x*SsSubs(syml(f) ,finasym(sym(E))，1.413403 ) 十 … 
.0759424xSsSubs (Sym(ft), findsym(sSym(f))，3.596426) 二 … 
.00361176*xSubs (sym(f), findqsym(sym(E))，7.085810) 十 … 
.0000233700xsSubs (Symf(f) ,findqsym(sym(f))，12.640801) ; 





口 口 司 呈 


end 
高 斯 - 拉 盖 尔 公式 数值 积分 应 用 实例 。 计 算 积分 | esin xdxr 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 





>> Gq=IntGaussLager(' sin(x)'，4) 
G= 0.5049 
>> Gq=IntGauSsSSsLager (Sin(x)'，5) 
G= 0.4989 


所 以 由 高 斯 - 拉 盖 尔 公式 可 得 出 上 esinxdx=0.4989 。 
| esin xdx 的 准确 结果 为 0.5000， 可 见 当 )” 等 于 5 时 ， 高 斯 - 拉 盖 尔 公式 的 精度 已 经 
很 高 了 。 
8.10.2 ”高 斯 - 埃 尔 米 特 公式 
高 斯 - 埃 尔 米 特 公式 有 以 下 两 种 形式 : 
三 s 7ACodz= 六 人 7Go) 
K=1 
三 preodz= > he co 
K=] 
系数 和 节点 的 取 值 如 表 8-6 所 示 。 
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表 8-6 高 斯 - 埃 尔 米 特 公式 节点 和 系数 表 
姑 Ac 


二 0.707107 0.886227 








0.000000 1.181636 





土 1.224745 0.295409 





二 0.524648 0.544444 





士 1.6S0680 0.100000 





0.000000 0.945309 








二 0.958572 0.393619 





土 2.020183 0.199532 


下 面 编制 的 程序 是 针对 第 一 种 形式 的 高 斯 - 埃 尔 米 特 公式 ， 即 





| es 7Codz= 之 wy7co 
因此 程序 的 第 一 个 输入 参数 被 积 函 数 ,是 上 式 中 的 0D ， 请 注意 例题 的 输入 方式 。 


在 MATLAB 中 编程 实现 的 高 斯- 埃 尔 米 特 公 式 求 积 分 的 函数 为 ， IntGaussHermite 
功能 : 用 高 斯 - 埃 尔 米 特 公式 求 积 
调用 格式 : q= IntGaussHermite (fn,AK,XK) 
其 中 ，f， 被 积 函 数 ; 
n: 所 采用 的 积分 点 个 数 ; 


AK: 自 定 义 系数 ; 
XK， 自 定义 积分 点 ; 
- 可 积分 值 。 本 


高 斯 - 埃 尔 米 特 公式 的 MATILAB 代码 如 下 所 示 ， 


function G = InEGaussHermite(Eft,n,AK,XK) 
g 被 积 函 数 : ff; 

g% 所 采用 的 积分 点 个 数 : ni; 

g% 自 定义 系数 ，RAK 


g 自 定义 积分 点 ，XK; 

g% 积 分 值 ， 民 ; 

ift(n<6 && nargin 一 2) 
AK = 0; 
XK 二 0 

elSse 


G=Sum(AK.*subs(Sym(f),， finasym(sym(E)) ，XK) )， 
enmaQ 
Switch DT 
case 2， sn=2 时 ， 采 用 表 8-6 中 对 应 的 系数 进行 计算 
SG=0.886227*(Subs (sym(f) ,finasym(sym(E)) -0.707107)+… 
Supbs (sym(fi), findsym(f),0.707107) ) ; 
case 3， sn= 3 时 ， 采 用 表 8-6 中 对 应 的 系数 进行 计算 
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cr=1.181636*xSubs (sym(E) ,findsym(sym(E))，0) 二 … 
0.295409* (Subs (Sym(f) ,findsym(sym(f)) ,1.224745)+… 
Subs (Sym(f) ,findsym(sym(f))，,-1.224745) ) 
case 4， sn=4 时 ， 采 用 表 8-6 中 对 应 的 系数 进行 计算 
q=0.544444* (Subs (Sym(f) ,finasym(sym(E)) ,0.524648) 十 
subs (Sym(f),findsym(sym(f))，,-0.524648) ) 十 
0.100000* (Subs (sym(f) ,finasym(sym(Ef)),1.650680) 二 … 
Subs (Sym(f),findsym(sym(E)),-1.650680) ) ; 
case 5， sn=5 时， 采用 表 8-6 中 对 应 的 系数 进行 计算 
G=0.945309*xSsSubs (Sym(E),finGsvm(svm(f)) ，0) 二 
0.393619* (Subs (sym(f) ,findqsym(sym(f)),，0.958572) 十 … 
Subs (sym(f) ,findsym(sym(fE)),-0.958572) ) 上 +… 
0.199532* (Subs (sym(f) ,findqsym(sym(f)) ,2.020183) 十 … 
subs (Sym(f),findsym(sym(ft)),-2.020183) ) ， 
end 


二 必 高 斯 - 埃 尔 米 特 公式 数值 积分 应 用 实例 。 计 算 积 分 六 edx。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


>> G=InLtGauSsSHetmite( 1L' 4) 


G= 1.2889 
>> G=IntGauSSsHermite(' 1: 5) 
G= 2.1316 


， 由 高 斯 - 埃 尔 米 特 公式 可 得 号 出 | edx=~2.1316 。 而 积分 | -dr 的 准确 结 


约 为 1.7725， 可 见 当 ” 等 于 5 时 ， 高 斯 - 埃 尔 米 特 公式 的 精度 还 比较 差 ， 要 想 提高 精度 ， 
还 得 取 更 大 的 mo 


8.10.3 ”第 一 类 切 比 雪夫 积分 
第 一 类 切 比 雪夫 积分 的 形式 为 
三 二 /Cd A7cm 





在 MATLAB 中 编程 实现 的 求 第 一 类 切 比 雪夫 积 分 的 函数 为 ， IntQBXF1l 
求 第 一 类 切 比 雪夫 积分 
届 用 | d= IntQBXF1(Cfuncn) 
其 中 ，func:， 被 积 函数 ; 
1 了 所 了 天 
:积分 值 。 


第 _ 类 切 比 雪夫 积分 的 MATLAB p 代码 如 下 所 示 ， 


function G = IDtQBXF1(ftunc,n) 
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g 被 积 函 数 : func 

gs 积分 所 取 项 数 : mn 

g% 积 分 值 : G 

format Tomng ; 

Pi = 3.1415926535; 
G 0 

入 Zeros (mn ,1) ; 

X 二 Zeros (ny,TL) ; 


| 出 


for 工 = 工 :n 


Ai) = Pi/n; 
xf(i) = cos(Pix(2*xi-1) 7V27Dn) 
y(i) = subs(sym(tunc)， findqsymt(sym(ftunc))，X(I) ) 
G 一 对 十 有 GD)*Y(IT)， 
enqQ 
亲本 2 第 一 类 切 比 雪 夫 积分 应 用 实例 。 采 用 第 一 类 切 比 雪夫 积分 ， 计 算 积 分 
1 1 
上 - 产 -dx。 
TVI- 关 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> cF=InEQOBXF1('17，10) 
ad= 3.14159265350000 


而 人 一 一 必 =r， 可 与 计算 结果 相 比 较 。 
MIL-X 


三 


计算 积分 | -一 dx ， 其 理论 值 为 工 ， 用 第 一 类 切 比 雪夫 积分 求 得 : 
YL-X 


三 


>> qd=InLQOBXF1L('X^2 50) 
G= 1.957079632670507 


结果 正好 是 二。 


8.10.4 ”第 二 类 切 比 雪 去 积分 
第 二 类 切 比 雪夫 积分 的 形式 为 : 
六 weJAcodrc= 4 
天 一 ] 


. 天 
其 中 44 -_ 开 sin2(CkE ) nn =cos-< 工 
于 十 1 7 十 1 九 十 1 


在 MATLAB 中 编程 实现 的 求 第 二 类 切 比 雪夫 积分 的 函数 为 ，IntQBXF2 
功能 : 求 第 二 类 切 比 雪夫 积 

调用 格式 : q= IntQBXF2(func,n) 

其 中 ，func， 被 积 函数 ; 

n:， 积 分 所 取 项 数 ， 
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第 二 类 切 比 雪夫 积分 的 MATLAB 代码 如 下 所 示 : 





function G = InLtOBXF2 (func,n) 
g 被 积 函数 :func 

g 积分 所 取 项 数 : n 

g 积 分 值 : G 

format 1ongy; 

Dll =3.1415926535， 























Al(i) = Sin((ixpi)y/y (n+l))*sin((ixpi)y(n+Ll))x*xpi(n+L)， 
X(I) = cos(Pixi/7 (n+L)): 
Y(i) = Subs(sym(tfunc)，ftindsym(sym(func))，x(I))， 


G=gS+TRAG)sy(i) 1 
end 


有 区 业 第 二 关切 比 雪夫 积分 应 用 实例 。 采 用 第 二 类 切 比 雪夫 积分 ， 计 算 积 分 
朴 全 二 o 
解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 : 


>> co-IntOBXEF2('1 10) 
G = 1.57079632679367 


而 | xdx= 了 3， 可 与 计算 结果 相 比 较 。 
计算 积分 | ,xzVI- 刀 dx ， 其 理论 值 为 工 ， 用 第 二 类 切 比 雪夫 积分 求 得 


>> Gq=IntQBXF21('X^ 2 50) 
G= 0.39269908169748 


结果 的 精度 达到 11 位 数字 。 





对 积分 区 域 为 矩形 的 重 积 分 的 数值 计算 与 定 积 分 相似 ， 相 应 的 有 梯形 公式 和 辛普森 公 
式 等 。 以 下 的 重 积分 的 数值 计算 都 基于 和 矩 形 的 积分 区 域 a 乏 x 乏 4 所》 过。 


8.11.1 梯形 公式 





对 二 重 积分 上 | /Co yydxdy 有 如 下 的 梯形 公式 来 求解 
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数值 积分 


一 一 
7Gpad = 人 四 [raD+ CDD+FaB)+ 7 


梯形 公式 的 精度 显然 不 高 ， 要 想 提高 精度 ， 可 采用 下 面 的 复合 梯形 公式 ， 
8 4 _ (8-D4- 四 妆 间 
外 7 pa > Cryooy 


i=0 j=0 


其 中 心 =a+Ll-q -5+HIB- 六 
的 地 辣 ?7 扩 


122.… 22 1 
244.:…442 


24141: 4 4 2 
[C]=|: :， : 人 

2441:… 4 4 2 

24 4 .… 4 2 
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功能 : 用 梯形 公式 求 重 积 
调用 格式 ，q=DblTraprl(f,a,A,b,B,mnm) 
其 中 ，func:， 被 积 函数 ， 
a: X 积 分 区 间 左 端点 ; 
: 疏 积 分 区 间 右 端点 ; 
:了 积分 区 间 左 端点 ; 
: 工 积分 区 间 右 端点 ; 
: 于 方向 子 区 间 数 目 ， 
: 上 方向 子 区 间 数 目 ; 
dq: 积分 值 。 


5 号 四 口 > 


重 积 分 梯形 公式 的 MATLAB 代码 如 下 所 示 : 


tunction cr=DpPl1Traprl(t,a,Ab,B,m,Dn) 

g% 被 积 函 数 : 上 

g 和 积分 区 间 左 端点 : a 

和 积分 区 间 右 端点 : & 

Y 积 分 区 间 左 端点 : b 

Y 积 分 区 间 右 端点 ，B 

X 方 向 子 区 间 数 目 : m 

Y 方 向 子 区 间 数 目 ，n 

g% 积 分 值 : q 

if (m 一 1 && Dn 一 1) g% 梯 形 公式 

cq=((B-b)*(A-a)/4)*(sSubs(sym(f),ftindqsym(syrm( 于 ) ) ，{ay bj)+… 

Subs (Sym(f),findsym(sym(E))，(a,B})TT… 
Subs (sym(f) ,finadsym(sym(E))，{AD)y) 二 … 


op oo 


oO oo ce 
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subs (sym(f),ftindsym(sym(ft))，{Ra, B}))， 
else % 复 合 梯形 公式 
C=4x*xones (n+1 ,ImHL) 





=I1， sC 算 阵 
end 
FE=Zeros (n+ m+TL) 
G=0 1; 
for 1=0 :mn 
for JJ=03:m 
X=a 十 x (及 一 ) /mn 
Y=b+jx (B-DP) /mn; 
FE(i+l,J+l)=subs(sym(f),findsym(sym(E))，(xvy); 
Gq=GHE (II+1，]j+1L)xC(i+1，J+L) ， 
enQ 
emndq 
GE=((B-b)*(A-a)/4/m/n) xdG 


BE 语 玫 区 玫 复合 梯形 公式 计算 重 积分 应 用 实例 。 用 复合 梯形 公式 计算 重 积分 
人 Jsinco)dxdy 。 
解 : 在 MAILAB 命令 窗口 中 输入 下 列 命令 


>> CDblTraprl('sin(xxy)' 0 1,0,1,15,，10) 
GE= 0.2397 


所 以 | | sinCo)dxdy = 0.2397 。 
8.11.2 ”辛普森 公式 
对 二 重 积分 | 上/(x yytxdy 有 如 下 的 辛普森 公式 来 求解 
(B 一 轧 (4 一 g 


1 六 7e yxdy = 9 Hb +J(a,B)+ 4.0) 


+7(C4BD+41C 人 2 D+41(o 二 < 有) 








+41(4 二 +161( 生 4 
同样 有 精度 更 高 的 复合 辛普森 公式 ， 


瑟 一 DA-- 27 211 
上 repady = 全 所 一 >》 CyjGo,y 


i=0 =0 
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其 中 必 关 分别 代表 x* 方向 子 区 间 数 目的 一 半 和 ”方向 子 区 间 数 目的 一 
4-) ，_， JE- 
一 一 ,y 三 0 十 


27 271 

142 4 2 4 4 1 
4 168 168.… 16 8 16 14 
2 8 4 8 8 4 8 2 

[C]=| : : : 
28 4 8 8 4 8 
4 168 168.…… 168 16 8 
1]4242: 4 2 14 


1 {2P+1)(2m+ 人 


na 二 大 DOSE 在 


用 六 普 森 公 式 求 重 积 


本 用 格式 ，q=DblSimpson(fa,A,b,B,mn) 
其 中 ，func， 被 积 函数 ; 


a: 时 积分 区 间 左 端点 
A: 三 积 分 区 间 右 端点 
b: 了 积分 区 间 左 端点 
B: 了 积分 区 间 右 端点 ; 
m: 怀 方 向 子 区 间 数 目的 一 半 ; 
n: 了 方向 子 区 间 数 目的 一 半 : 





重 积 分 辛普森 公式 的 MATLAB 代码 如 下 所 示 : 


function cq=DblSimpson(f,a, Ab,B,m,DTn) 
g 被 积 函 数 :， func 


Ge 


Oo op oo 


go9 


X 积 分 区 间 左 端点 : a 
X 积 分 区 间 右 端点 ， 和 
Y 积 分 区 间 左 端点 : b 
X 方 向 子 区 间 数 目的 一 半 : m 
Y 方 向 子 区 间 数 目的 一 半 : mn 


g 积 分 值 : Le 
if (mn 一 1 && n 一 1) g 胖 普 森 公式 


c=((B-b)*(A-a)/9)*(sSubs(syrm(E) ， dsym tsym 人 (f))，{fa,bh) 


subs (sym(E) ,findsym(sym(f))， fa,B)})+… 
AAS 


findqsym(sym{(E))，{A， ) 


) 
Subs(SsSyrm( 工 ) 
Subs(sym(fl) 
4x*xSubs(synm( 
( 
《 
{ 


f),findqsym(sym(E))，{( ) /2 ,by) 二 
4*Subs (sym(f),findsym(sym(f) ) ， Ca 
4xSsSubs(Sym(f) ,findsym(sym(E))，{fa，(B-pP)72])+… 
4*subs (Sym(E),finasym(sym(f))，{A，(B-b)7/21])+ 


第 多 章 


数值 积分 


半 且 有 
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16xsubs (sSym(fE) ,findsym(Ssym( 革 ) ) ，{(A 一 a 


elSe g% 复 合 壮 普 森 公 式 
GE=0 1; 
for 工 =0 :mn 一 
for JJ=0:m-1 
X 一 己 十 2 * 并 x (入 一 已 ) /72 7; 
Y=b+2*Jjx*x(B-b)7/2Am; 
X1=a+(2xji+1)x(A-a)72Xn; 
Y1=b+(2*]j+1L)x(B-D)72/m; 
X2=a+2x* (II+1)x*(A-a)72An; 
Y2=b+2x (j+1)x(B-b)7/2m; 
G=at+subs (sym(f) ,tindqsym(SsSym( 工 
Subs(sym(f),findqsym(synm (于 
Subs (sym(f), finasym(syrm ( 工 
Subs (Sym(f) ,finaqsym(Sym( 工 
4xSubs (sym(f) ,tinasym(sym 
4xSsubs(sym( 
{ 


4xSubs (Sym Endasyml(sym 


4xSsubs(sym(f) ,findqsym(sym 





16*Ssubs(sym(f), findasynm(sy 
enmaQ 
enaQ 
emnd 
c=((B-b)x(A-a)/36/mV/Dn)*G 


复合 辛普森 公式 计算 重 积分 应 用 实例 。 用 复合 辛 普 


f f esin(Xxy)dxdy 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 


，) 
) ) 
) ) 
王 ( 芋 
工 ) ,Einasym(Sym( 工 
王 (于 
( 工 
mm 


2，(B-b) /21)) 


fx， 7 


2 

) ，{X， YL) ) 十 
，{xX2，Y1]) 十 
,TY 十 
，{X1，Y2) ) 十 
，{XT， YI) 


>> c=DblSimpson(' exp(X) xsSIn(Xxy) 0, 1,0,1,，15，15) 


区 = 0.4771 


所 以 | 站 ersinCo)dudy = 0.4771。 
8.11.3 ”高 斯 公式 


三 广 Fesparday= 六 六 AAA7oo 


i=1 /=1 


森 公式 计算 重 积 分 


FOOD) xD) 


=[4 4 ] 7 7) 7 1 


on) Cos) 
在 MATLAB 中 编程 实现 的 高 斯 公式 求 重 积 分 的 函数 为 : 


(xm ， 》| ) 和 
1 ， 72) 4 
IntDBGanss 


功能 月 E : 用 高 斯 公式 求 重 积分 
调用 格式 : _q= IntDBGauss(func， a， b， ec， di mm bnD) 
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其中， fanc: 被 积 函数 ; 
3 筷 积 分 区 间 左 冰 点 ; 


b， “ 分 区 间 右 端点 ; 

C R 分 区 间 左 端点 ; 

d: ;和 分 区 间 右 端点 ; 

m: X 方 向 所 采用 的 高 斯 积分 点 个 数 ; 
na: 了 方向 所 采用 的 高 斯 积 点 个 数 ， 
_q: 积分 值 。 


重 积分 高 斯 公式 的 MATLAB 代码 如 下 所 示 ， 


function G = IntDBGauss (func,avb,cyd,m,Dn) 
g% 被 积 函 数 : func 
gs X 积 分 区 间 左 端 


已 
g 和 积分 区 间 右 端点 : b 
多 了 和 全 c 
多 积分 区 间 右 端点 已: 


Ge 


《方向 所 采用 的 高 基 积 分 点 个 数 : ma 
Y 方 向 所 采用 的 高 斯 积分 点 个 数 : mn 
g% 积 分 值 : G 

format 1ong:; 

ta = (Pb-a)y7/2; 

tb = (a+b)7/2:; 


98 


tc = (qdq-c)7/2; 
ta = (c+Q) 7/ 27 
f = zeros (mm) ， 


nodqe x= [00000;-0.5773503 0.5773503 0 0 0;:-0.7745967 0 0.7745967 0 0; 
-0.8611363 -0.3398810 0.3398810 0.8611363 0) 
-0.9061793 -0.5384693 0 0.5384693 0.9061793]; sg% 点 坐标 矩阵 
nodae A= [20000;1 1000;0.5555556 0.8888889 0.5555556 0 0; 
0.3478548 0.6521453 0.6521453 0.3478548 0; 
0.2369269 0.4786287 0.5688889 0.4786287 0.2369269];g% 系 数 德 阵 
for II=1:m 





for JJ=1 :nn 
f(j,I) = subs(sym(func), finasym(sym(func))，[taxnode_xl(my,I)+tb 


tcxnoade_xt(ny, II)+ta]) ， 


end 
endQ 
Am transposel(node_Atm,1:m)) 
RD nodqe_ An, :nmn) 
GL =LaxtCcx AnrxfxRAmy 
format Short 


直 


高 斯 公式 求 重 积分 应 用 实例 。 用 高 斯 公式 计算 重 积分 er sin(xoy)dxdy 。 


解 : 在 MATLAB 命令 窗口 中 输入 下 列 命令 
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， rr 二 A 了 二 | 上 人 人 一 
所 以 用 两 个 积分 点 算得 站 e Sin(xy)dxdy = 0.1505 。 





小 结 





数值 积分 相对 数值 微分 要 容易 些 ， 因 此 求 数值 积分 的 方法 比 数值 微分 革 多 ， 而 只 有 很 
多 精度 十 分 高 的 数值 积分 方法 还 正在 不 断 发 展 中 ， 
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第 @@ 章 方程 求 根 


方程 求 根 作 为 数学 一 个 古老 的 研究 领域 已 有 几 百 年 了 ， 不 少数 学 家 都 涉猎 过 这 个 领 
域 ， 包 括 牛顿 、 贝 努 利 等 ， 因 此 关于 方程 求 根 的 方法 非常 多 ， 特 别 是 多 项 式 的 求 根 研 究 得 
非常 透彻 。 在 求 方程 的 根 之 前 ， 首 先 要 判断 方程 根 的 存在 性 和 根 的 个 数 ， 但 是 在 实际 应 用 
中 我 们 更 关心 的 是 在 某 个 感 兴趣 的 区 间 上 是 否 存在 根 的 问题 ， 因 此 ， 本 章 的 算法 大 都 是 在 
已 知 区 间 上 求 根 。 

通过 本 章 的 学 习 , 读者 不 仅 能 掌握 常见 的 方程 求 根 算法 ,而 且 还 能 熟练 使 用 MATLAB 
编程 来 实现 这 些 算法 。 


方程 的 基本 理论 


数学 问题 中 经 常 遇见 的 方程 为 代数 多 项 式 方程 和 超越 方程 。 代 数 方程 的 基本 形式 为 ， 
Jo0= 妇 +axL+…+a IIX+a =0 
上 式 中 的 aaz,，……ar 为 实 常 数 ， 而 超越 方程 的 形式 则 多 种 多 样 。 
求 方程 的 根 的 基本 思想 是 把 方程 的 根 分 割 在 某 些 区 间 内 ， 然 后 在 这 些 区 间 内 求 出 方程 
的 一 个 根 。 其 理论 依据 为 : 如 果 Fo)FO)<0 ， 则 在 区 间 [c, 刀 上 方程 fF(xz) = 0 至 少 存在 一 
个 实 根 。 





方程 求 根 的 数值 方法 


在 根 存在 的 前 提 下 ， 要 求 方程 的 根 ， 先 要 确定 根 的 界限 ， 即 根 的 上 下 界 。 然 后 把 根 隔 
离 成 一 个 一 个 的 区 间 ， 在 每 个 区 间 上 再 迭代 逼近 根 ， 也 就 是 缩小 根 存在 的 区 间 范 围 。 因 此 
先 介绍 确定 代数 多 项 式 方程 根 的 上 下 界 的 贝 努 利 法 ， 然 后 介绍 求 方程 根 的 其 他 数值 方法 。 


9.2.1” 贝 努 利 法 
贝 努 利 法 是 用 来 求 如 下 方程 


Jo)= 矿 十 MX 十 … 十 QIX+a =0(a, 关 0) 
按 模 最 大 最 小 实 根 。 
9.2.1.1 按 模 最 大 实 根 
采用 贝 努 利 法 求 按 模 最 大 实 根 的 算法 步骤 如 下 ; 
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鲜 用 方程 的 系数 取 反 号 按 升 辕 次 序 排列 ， 做 一 个 计算 Fi 的 模板 ， 


一 Cry pr- 22 1 





为 计算 
Je Do 
取 
FFOD=07CO0=0 pa-D=07OO=1 
对 天 =12,… 
令 

Ja+D=-anojD-ao2) 一 GD) 
然后 再 令 

JOD = 2 72)= 3) OO=7+DTD 

所 =- 了 
J 2 -D 


如 此 当 | 台 - z 直 <e ， 则 六 为 按 模 最 大 的 实 根 。 





功能 ， 贝 努 利 法 求 按 模 最 大 实 根 | 


调用 格式 :xm = BenvliMAX(aeps) 
其 中 ，a:， 方程 系数 ; 
eps:， 根 的 精度 ; 
求 得 的 按 模 最 大 实 根 。 


贝 努 利 法 求 按 模 最 大 实 根 的 MATLAB 程序 代码 如 下 所 示 : 


function xnm = BenvliMAX(a,eps) 
g 方 程 系数 : a 

g% 根 的 精度 : eps 

g% 求 得 的 按 模 最 大 实 根 : xm 


format ong; 








if (nargin= 一 1) 
epDSs=1 .0e 一 4; 


nm = Length(a); 

Yy = zeros (mnf1,1)， 

Y(n) =11; 

tol = 1; 

xm = infy， 

while 革 olL>epSs 
Xml = 三 Xrm; 
Y (n+1l) =aQot (-a,y(1:n) ):， 
Y(1:n) =Y(2:n+l): 
xm = Y(n)VYy(n-L) : 
廿 ol = abs (xm 一 xm1l) ; 

endq 

format Short ; 
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贝 努 利 法 求 按 模 最 大 实 根 应 用 实例 。 求 方程 妇 +3.5x? -5x- 12 = 0 的 按 模 最 


大 实 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> a=[-12 -5 3.5]， gs 注意 系数 的 顺序 一 一 升序 排列 


>> xm = BenvliIMAX(a) 
xm = 一 4.0000 


可 见 ， 方 程 妈 +3.5z-Sx-12 = 0 的 按 模 最 大 实 根 为 x=-4。 


实际 上 ， 妇 +3.$Sxz2-Sx-12=(x-2)(x+4(x+3.3)=0， 所 以 可 以 直接 看 出 结果 。 


9.2.1.2 ” 按 模 最 小 实 根 
采用 贝 努 利 法 求 按 模 最 小 实 根 的 算法 步骤 如 下 : 


合用 方程 的 系数 取 反 号 按 升 昧 次 序 排列 ， 做 一 个 计算 FK) 的 模板 


.92 9 


? 3 3? 9 
mn Cr Cr Cn 


为 计算 
JJ DC2) Da 

取 

JD=07C)=07-D=0 GoD=1 
对 大 =12 

今 

JFO+D=-anfgd 一 ar) 一 … 一 ao) 

然后 再 令 


JD= 272)=JG3) 80D=a+D 


，_ya-D 
ja) 
如 此 当 | 大 一 了-| <2E， 则 不 为 按 模 最 小 的 实 根 。 





功能 : 贝 努 利 法 求 按 模 最 小 实 根 
调用 格式 : xm = BenvliMIN(a,eps) 
其 中 ，a: 方程 系数 ; 

eps: 根 的 精度 ; 

xm: 求 得 的 按 模 最 小 实 根 。 


贝 努 利 法 求 按 模 最 小 实 根 的 MATLAB 程序 代码 如 下 所 示 : 


function xm = BenvliMIN(a,eps) 
g 方 程 系数 : 已 
g 根 的 精度 ，eps 


“在 MATLAEB 中 编程 实现 的 贝 努 利 法 求 按 模 最 小 实 根 的 函数 为 ，BenviMIN 
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g% 求 得 的 按 模 最 大 实 根 : xm 
format 1ong 
IE (nargin==1) 

epPS=1 .0e 一 4: 


= ength ( 己 ) 
Y = Zeros (n+1 ,1 工 ) ; 


Y () = 工 ; 

am(1:n) = atmn:-1L:1) 

C = am(n) 

am(2:n) = am(1:n-1): 

am(1) = 工 : 

am(1:n) = -am(1:n)y/vc; 
tol = 工 : 

Xm 一 1LnE 


while tol>eps 
Xml = Xmy; 
Yy (n+l) =dqot (am,y(1:D)): 
Y(1:n) =Y(2:n+l): 
xm =y (n-1)Vy(n)， 
tol = abs (xm 一 xm]1) 
endQ 
format Short : 


贝 努 利 法 求 按 模 最 小 实 根 应 用 实例 。 求 方程 刀 +3.5x: -5x-12=0 的 按 模 
最 小 实 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> a=[-12 -5 3.5]; gs 注意 系数 的 顺序 一 一 升序 排列 
>> xm = BenvliMIN(a) 
xm = -1.5000 


可 见 ， 方 程 妇 +3.$x2 -Sx-12=0 的 按 模 最 小 实 根 为 x= -1.5。 
实际 上 ， 妇 +3.5x -5Sx-12=(x-2)(x+4(x+153)=0， 所 以 也 可 以 直接 看 出 结果 。 


9.2.2 ”二 分 法 


二 分 法 的 具体 求解 步骤 介绍 如 下 。 
代 计算 函数 fxz) 在 区 间 [c， 缮 中 点 的 函数 值 /5 


CQG 二 已 


) ， 并 作 下 面 的 判断 ; 





QG+P 


如 果 JoO7C )<0 ， 转 到 例 ; 





如 果 /Fa We 令 o= 生 2， 转 到 兮 ， 


人 0， 则 xx 8 








如 果 六 7 太 为 一 个 根 。 








伟 如 果 e ( 预先 给 定 的 精度 )， 则 xz=“ 2 为 一 一 个 根 ， 否 则 令 p 





0 
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直 


在 MAILAB 中 编程 实现 的 二 分 法 的 函数 为 : HalfInterval 
功能 : 用 二 分 法 求 方程 的 一 个 根 
调用 格式 :root=HalfInterval(f,a,b,eps) 


其 中 ，f:， 方程 名 ， 
a: 区 间 左 端点 ; 
b: 区 间 右 端点 ; 
根 的 精度 ; 


root; 求 得 的 根 。 





二 分 法 的 MAITLAB 程序 代码 如 下 所 示 : 


function root=HalftInterval(f,a,b,eps) 
和 
g% 区 问 左 端点 
g 区 间 右 端点 : 
要 的 往 度 epSs 
gs 求 得 的 根 ，root 

It (nargin==3) 

epPSs=1 .0e 一 4: 
enqQ 
fl1=subs (sym(f) ,findqsym(sym(E) )，a) ; g% 两 端点 的 函数 值 
f2=Subs (Sym(f) ,findasym(sym(E))，b)， 
IE (一 0) 

Oct=a 
endG 
fE (E2 一 0) 

oot=Pb; 
endq 
IE(f1x*f2>0) 

disp(' 两 端点 函数 值 乘 积 大 于 0!，) ; 

etutDn 
elSe 

root=PFindRoots (ft,a,b,eps); g 调 用 求解 子 程序 
endQ 
function xr=PinaRoocots(t,a,b,eps) 
ft_1=subs (Sym(E) findqsym(sym(E) )，a); 
f_2=subs (sym(f) ,findqsym(sym(E)) Pb) ; 
mt=sups (sym(E) ,findasym(sym(E))，(a+b)/2) ; g 中 点 函数 值 
于 E(Et 1xmf>0y) 

t=(a+b)7/2; 

tr=FindqRoots (f, 上 ,beps): g 右 递归 
elSse 

(于 _1*mt 一 0) 

t= (a+b)y7/2; 
所 Se 
if (abs (PP-a)<=eps ) 
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L= (b+3xa) 7/ 4; g% 输 出 根 
已 Se 
S=(a+b) 7/ 2: 
r=FindqRoots(t,av seps): g% 左 递归 
enmd 
end 
enaQ 
亲 耳 于 一 一 分 法 求 根 应 用 实例 。 采 用 二 分 法 求 方程 六 -3x+1=0 在 区 间 [0.1] 上 的 一 


个 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> LT=HaltInterval('X^ 人 3-3x*X+1L1 0 1) 


输出 计算 结果 为 ; 
rr = 0.3473 


可 见 ， 方程 如 _3x+1=0 在 区 间 [0.1] 上 的 一 个 根 为 x=0.3473 。 
9.2.3 ”黄金 分 割 法 


二 分 法 是 把 求解 区 间 的 长 度 逐 次 减 半 ， 而 黄金 分 割 法 是 把 求解 区 间 逐 次 缩短 为 前 次 的 
0.618 倍 。 它 的 求解 步骤 介绍 如 下 。 

侠 设 1=a+ld-0618)x-m， 避 =a+0618x-d， 且 万 =Jo)， 户 =Foo)。 

侠 如 果 -z|<e ( 给 定 的 最 小 区 间 长 度 )， 则 输出 方程 的 根 代 -2 否则 转 到 合 。 

征 如 果 廊 x 户 <0， 则 令 a=，pb = 六 ， 转 轩 ， 否 则 如 果 户 x Ja >0， 令 ae= 斌 ， 反 
之 令 六 = 广 ， 转 到 侈 。 





在 MAILAB 中 编程 实现 的 黄金 分 割 法 的 函数 为 : 二 
功能 : 用 黄金 分 割 法 求 方程 的 一 个 根 
调用 格式 : roof hj (fa,b.eps) 
其 中 ，f， 方 程 名 ， 
a:， 区 间 左 端点 ; 
b:， 区 间 右 端点 ; 
eps， 根 的 精度 ; 
root: 求 得 的 根 。 


黄金 分 割 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function root=hj(t,a,b,eps) 
g 方 程 表 达 式 : 工 

g 区 问 左 端点 : a 

g% 区 间 右 端点 : b 

g 根 的 精度 : eps 

g% 求 得 的 根 : root 
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IE (nargIin 一 3) 
eps=1 .0e 一 4: 
endQ 
f1=subs (sym(f) ,findsym(sym(E) )，a) ， 
f2=subs (sym(fE) ,findsym(sym(f)),b); 
If (f1= 一 0) 
Oot= 忆 ; 
endq 
if (ft2 一 0) 
上 oot=b: 
enaQ 
if(f1xft2>0) 
aqisp(' 两 端点 函数 值 乘 积 大 于 0! ' ) ; 
eturDn 
else 
二 1=a+(b-a)*0.382; 
七 2=a+ (bD-a)x*x0.618; 
f_1=subs(sym(f),ftindsym(sym(E) ) ,1) ; 
f_2=subs (sym(f) ,findqsym(synm(f)) ,2)， 
tol=abs (七 1-2) ; 


while(tol>eps) g 精 度 控制 
It(f_1Lx*f 2<0) 
a=t1; g# 区 间 两 端点 都 调整 
D=t2; 
el1Sse 


fa=subs (sym(f) ,finasym(sSym() )，a) ; 
工 E(E_1L*fa>0) 


a=f 上 21; g 同 号 左 端点 调整 
el1Se 

b=t1; gs 异 号 右 端点 调整 
enaQ 


enQ 
七 1=a+ (PbP-a)*x0.382; 
七 2=a+ (b-a)*0.618; 
f_1=subs (sym(f) ,findsym(sym() ) ,tl1) ; 
f_2=subs (sym(E) ,findsym(sym(E) ) ,七 2) ; 
tolI=abs ( 巧 2 一 上 1) ， 

end 

Oct= (1L+2)72; g 输 出 根 

end 


癌 下 如 而 ”黄金 分 割 法 求 根 应 用 实例 。 采 用 黄金 分 割 法 求 方程 盖 -3x+1=0 在 区 间 [0.1] 
上 的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Lr=hj ('X^ 3 一 3x*X+1 0，1) 


输出 计算 结果 为 : 
r = 0.3473 
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可 见 , 方程 z -3x+1=0 在 区 间 [0,.1]] 上 的 一 个 根 为 x= 0.3473 ,和 二 分 法 求 出 来 的 结果 相同 。 


9.2.4 “不 动 点 迭代 法 


要 求 方程 fx) =0 的 根 ， 可 以 先 把 方程 改写 成 如 下 的 形式 : 
X 二 了 (xz) 十 郑 
于 是 得 到 不 动 点 迭代 法 的 其 中 一 种 迭代 公式 : 
和 三 了 (CD 十 2- 


此 种 不 动 点 迭代 法 很 有 可 能 不 收 仿 ， 因 为 它 的 本 质 是 求 函 数 y= (+x 与 直线 


y= 关 的 交点 ， 而 它们 不 一 定 存在 交点 。 即 使 收敛 ， 其 速度 也 十 分 慢 ， 因 此 有 了 艾 肯 特 加 
速 迁 代 与 史蒂芬 森 加 速 迁 代 。 


在 MAITLAB 中 编程 实现 的 不 动 点 锡 代 法 的 函数 为 .StaplePoint 

功能 : 用 不 动 点 迭代 法 求 方程 的 一 个 根 

调用 格式 : [roobn]=StablePoint(f,x0,eps) 

其 中 ，f:， 方程 名 ; 
x0:， 初始 迭代 值 ; 
eps: 根 的 精度 ; 
root: 求 得 的 根 ; 
n: 迭代 步 数 。 


不 动 点 迭代 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [root,mn]l=StablePoint(f,x0,eps) 
g 方 程 表达 式 : 于 
g 初 始 和 迭代 值 ， x0 
g% 根 的 精度 :eps 
g% 求 得 的 根 : rcot 
gs 迭代 步 数 : 也 
If (nargin 一 2) 

epSs=1 .0e--4: 
enaQ 
二 oO1L=] 
TOOL=XO0 ; 
mm=0 
while(ltol>eps) 

D=m+1 

1=Toot : 

zroot=Subs (Sym(fE) ,finaqasym(SsSyrm() ) YL)A+r1， g 人 迭代 的 核心 公式 

tol=abs (root 一 1) ; 
enQ 


不 动 点 迭代 法 求 根 应 用 实例 。 用 不 动 点 夫 代 法 求 方程 -天 +x-2=0 的 一 个 
大 


根 ， 和 迭代 初始 值 为 0.5。 
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解 : 在 MATLAB 命令 窗口 中 输入 : 


>> [rn]l=StablePoint('1/sGrt (X)+x-2 0.5) 
三 0.3820 
D 三 4 


从 计算 结果 可 以 看 出 ， 经 过 4 步 答 代 ， 得 出 方程 -六 +x-2-0 的 一 个 根 为 x=03820。 
关 


9.2.4.1 艾 肯 特 加 速 
艾 肯 特 加 速 是 在 计算 出 X、 HE、 xj2 后 ， 对 za 作 以 下 修正 : 
人 Con 一 匣 ) 
Ma42 一 2Xp+l 十 Xin 
然后 用 各 1 来 通 近 方程 的 根 。 
艾 肯特 加 速 是 先 用 不 动 点 迭代 法 算出 一 系列 {z}， 再 对 此 系列 作 修 正 得 到 系列 从 | ， 
用 后 者 来 台 近 方程 的 根 。 . 
| 在 MATLAB 中 编程 实现 的 艾 肯特 加 速 的 函数 为 ，AtkenStablepoint 
功能 : 用 区 肯特 加 速 的 不 动 点 迭代 法 求 方程 的 一 个 根 
调用 格式 ，[rootn]= AtkenStablePoint (f,x0,eps) 
其 中 ，f， 方程 名 ; 
x0， 初 始 迭 代 值 ; 
eps: 根 的 精度 ; 
| root， 求 得 的 根 ; 
[人 代 上 数 。 
区 肯特 加 速 不 动 点 迭代 法 的 MATLAB 程序 代码 如 下 所 示 : 
function [root, 了 0]=ALKenStabplePoint ( 丰 ,x0o,eps) 
g% 方 程 表 达 式 : 革 
g% 初 始 迭 代 值 : x0 
g% 根 的 精度 :eps 
g 求 得 的 根 : roeot 
# 迭 代步 数 : mn 
IE (nargin 一 2) 
eDSs=1 .0e-4: 
endaQ 
toO1L=1: 
rrOoct=Xx0 : 
X(1:2)=0:; 
D=07 
mm=O 
aa2=X0 
while(tol>eps) 
=D 十 1 
己 1 一 忆 2 ; 
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1=zoot ， 
root=supbps (sym(f) ,ftindsym(symt(E))，r1L)+zL; g% 求 出 根 
x(n)=root; g 把 所 有 的 根 都 保存 下 来 
革 E(n>2) 
Im=m+l1， 
a2=x(m) 一 (X(mrl)-x(m))^2/7(X(mrh2) 一 2xx(mrT)+x(m) ) g% 对 保存 的 根 进 行 艾 肯 特 
g% 修 正 
二 oO1=abs (a2 一 alL) ; 
end 
endQ 
Oot=a2; 


艾 肯特 加 速 不 动 点 迭代 法 求 根 应 用 实例 。 用 艾 肯 特 加速 迭 代 法 求 方程 


天 +z-2=0 的 一 个 根 ， 和 迭代 初始 值 为 0.5。 
夺 


解 : 在 MATLAB 命令 窗口 中 输入 : 
>> [rr,Dn]= AtkenStablePoint('1/SGFTL (X)+X-2' 0.5) 


工 0.3820 
联 4 


村 十 


从 计算 结果 可 以 看 出 , 经 过 4 步 迭 代 , 得 出 程 记 +z-2=0 的 一 个 根 为 x= 0.3820 。 


这 个 方程 比较 简单 ， 所 以 通过 简单 的 几 步 迭代 就 可 得 出 根 ， 下 面 的 结果 可 以 看 出 艾 肯 特 加 
速 迭 代 法 的 优点 。 


>> [rn]=AtkenStablePoint('1/sdqrt (x)+x-25,0.999) g%， 迭 代 初 始 值 为 0.999 


xx= 1.0000 

了 一 4 

>> [r,n]j=StablepPoint('1/sqrt(x)+x-2:,0.999) g%， 和 迭代 初始 值 为 0.999 

xz = 0.3820 

也 一 2 

上 面 的 例子 说 明 采 用 初始 值 0.999 时 ， 经 过 4 步 迁 代 艾 肯 特 加 速 迭 代 法 ， 可 以 得 到 方 


从 - 记 +xz-2=0 的 另 一 个 根 x = 1， 而 普通 的 不 动 点 迭代 法 却 得 不 到 。 


9.2.4.2 ”史蒂芬 森 加 速 


史蒂芬 森 加 速 与 艾 肯 特 加 速 不 同 的 地 方 在 于 前 者 是 在 迭代 的 同时 就 进行 修正 ， 它 的 和 迭 
代 公 式 为 ， 


了 mm = Jo )+ 若 
忆 于 = (On) 十 yn 

(yyr 一 zo) 
Zr 一 2 十 和 


Xpn+l 二 An 一 
其 中 迭代 初始 值 为 各。 


在 MATLAB 中 编程 实现 的 





tevenStablePoint 
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调用 格式 ，[roobn]= StevenStablePoint (fx0,eps) 
其 中 ，f:， 方程 名 ; 

x0:， 初始 迭代 值 ; 

eps: 根 的 精度 ; 

root: 求 得 的 根 ; 

n: 迭代 步 数 。 
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_ 功 能， 用 史蒂芬 森 加 速 的 不 动 点 迭代 法 求 方程 的 一 个 根 


史蒂芬 森 加 速 不 动 点 迭代 法 的 MAILAB 程序 代码 如 下 所 示 : 


function [root,Dn]=StevenStablePoint(f,x0,eps) 


g 方 程 表达 式 : ff 

gs 初 始 迭 代 值 : x0 

g% 根 的 精度 :eps 

g 求 得 的 根 : root 

% 人 迭代 步 数 : nm 

It (nargin=-2) 
ePS=1 .0e-4; 

endQ 

七 DJ=1; 

TOot=x0 

D=0O 

while(tol>eps) 
TDm=mn 二 1 
1=Yzoot : 
Yy=Supbs (sym(f) ,findqsym(sym(f)) ,rr1L)+r1， 
2z=Subs (Sym(E) ,findsym(sym( 上 ))，y)+Y， 
Oot=T1 一 (y-z1)^ 人 27(z 一 2xy+rl) ， 
Ol1=abs (Oot 一 r1) ; 

enmd 


% 对 每 次 算出 的 根 立即 进行 修正 


史蒂芬 森 加 速 不 动 点 迭代 法 求 根 应 用 实例 。 用 史蒂芬 森 加 速 和 迭代 法 求 方程 


了 工 +xr -2=0 的 一 个 根 。 


vVz 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> [r,nj=StevenStablePoint('1/sqrt (x)+x-25,0.999) gsg， 和 迭代 初始 值 为 0.999 


工 三 1.0000 

了 三 2 

>> [rnl=StevenStablePoint('1/SsGrt(x)+x-2' ,0.5) gsg， 迭 代 初 始 值 为 0.5 
工 三 0.3820 

了 三 4 


从 例子 可 以 看 出 ， 史 蒂 芬 森 加 速 适 代 法 不 仅 能 求 出 方程 二 +xr -2=0 的 一 个 根 
半 


广 


X= 0.3820 ， 而 且 它 比 区 肯特 加 速 迭 代 法 更 快 地 求 出 另 一 个 根 x=1。 
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9.2.5 “” 弦 截 法 


弦 截 法 是 一 种 不 必 进 行 导数 运算 的 求 根 方法 。 了 弦 截 法 在 欠 代 过 程 中 不 仅 用 到 前 一 步 
妈 - 处 的 函数 值 ， 而 县 还 使 用 次 处 的 函数 值 来 构造 迭代 函数 ， 这 样 做 能 提高 迭代 的 收敛 速 
度 。 


下 面 讲述 5 种 常见 的 弦 截 法 ， 它 们 分 别 是 ， 一 般 弦 截 法 、 单 点 弦 截 法 、 双 点 弦 截 法 、 
平行 尽 截 法 和 改进 弦 截 法 。 
9.2.5.1 一般 弦 截 法 

一 般 弦 截 法 的 算法 过 程 如 下 : 

从 过 两 点 (c, f(a)) 与 (2, FU)) 作 一 直线 ， 它 与 乏 轴 有 一 个 交点 ， 记 为 忆 

舍 如 果 jw7Gn)<0， 过 两 点 (c, Fa) 与 (Fo)) 作 一 直线 ， 它 与 X 轴 的 交点 记 为 
丸 ， 否 则 过 两 点 (DO)) ，(,7G6)) 作 一 直线 ， 它 与 X 轴 的 交点 记 为 如 

秆 如 此 下 去 ， 直 到 | 六 - 思 <s ， 就 可 以 认为 各 为 Foo=0 在 区 间 [a, 忆 的 一 个 根 ; 





JK-L 一 
区 三 QG 一 一 EL Fa Jo-D<0 
兮 的 递 推 公式 为 ， (MK- 1) 一 三 (a) 
你 = 已 一 下 7 GD)>0 
丰 -1 
且 一 一 O 〇 
交 7 三 77 


在 MATLAB 中 编程 实现 的 一 - 般 弦 截 法 的 函数 为 : Secant 
| 功能， 用 一 般 弦 截 法 求 方程 的 一 个 根 

调用 格式 :roof Secant (fa,b,eps) 

其 中 ，f:， 方程 名 ， 

a: 区 间 左 端点 ; 
b: 区 间 右 端点 ， 
: 根 的 精度 
| Toot， 求 得 的 根 。 





L 


_ 般 弦 蕉 法 的 MATLAB 程序 代码 如 下 所 示 : 


function root=Secant (ff,av beps) 
g 方 程 表达 式 : 革 
g% 区 间 左 端点 : 忆 
gs 区 间 右 端点 ， b 
gs 根 的 精度 ，eps 
g 求 得 的 根 : rooet 
If (nargin 一 3) 
epPS=1 .0e 一 4: 
enaQ 
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ft1=SsSubs (sym(E),finaqsym(sym(f))，a); 
ft2=subs(sym(f),ftindasym(symt(E)),b)， 
If (1 一 0 ) 
TOot=a; 
enmna 
革 E(E2= 一 0) 
上 Oot=D:; 
emnd 
If(f1xf2>0) 
qisp(' 两 端点 函数 值 乘积 大 于 0! ，) 
return: 
elSe 
LO1=1: 
fa=SsSubs (sym(f) ,findqsym(sym(E))，a)， 
tb=subs (sym(Et),findasym(sym(E))，b)， 
root=a-(b-a)xfa/(fb-fa) ; g 迭 代 初 始 值 
while(tol>eps) 
1=root ; 
fx=subs (sym(f) ,findsym(sym(f)) ,zl1)， 


S 一 上 Xr* 荆 aa 
If (s 一 0) 
TOOtL=T1; 
esSse 
IE(Ss>0) 
rooct=b-(z1-b)*xfb/(fx-fb) ; gs 用 递 推 公 式 2 
e Se 
TOot=a 一 (1-a) xfa/ (Ex-fa) ; 多 用 讶 推 公式 1 
endQ 
end 


tol=aps (root-z1) ， 
end 
end 


SA。 弦 截 法 求 根 应 用 实例 。 弦 截 法 求 方程 gx+wWx = 2 在 区 间 [1.4] 上 的 一 个 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 
>> LI=Secant ('SGrt(X)+Log(X)-2 1 4) 
输出 计算 结 
并 二 1 .8773 
由 计算 结果 可 知 ，lgxz+wVxz =2 在 区 间 [1,4] 上 的 一 个 根 为 x=1.8773 。 
9.2.5.2 ” 单 点 弦 截 法 
单 点 驴 截 法 的 迭 代 公 式 如 下 : 
其 


XK+L 一 JK 一 一 蔡 - 和 < oo 


J (xi 一 Fa) 


在 MATLAB 中 编程 实现 的 单 点 点 弦 截 法 的 函 函数 为 ， SinleSecant 
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功能 : 用 单 点 驴 截 法 求 方程 的 一 个 根 
调用 格式 : rootF= SinleSecant (fa,b,eps) 
其 中 ，f， 方程 名 |; 

a: 区 间 左 端点 ; 

b: 区 间 右 端点 ; 

eps: 根 的 精度 ; 

root: 求 得 的 根 。 


单 点 弦 截 法 的 MATLAB 程序 代码 如 下 所 示 ; 


function rooct=SinleSecant (上 ,ab,eps) 
g 方 程 表达 式 ， 上 
s 区 间 左 端点 : a 
# 区 间 右 端点 ; b 
g 根 的 精度 : epPS 
g 求 得 的 根 ; roet 
it (nargin 王 3) 
eps=1 .0e 一 4; 
emnd 
f1=subs (sym(f) ,finadqsym(sym(E))，al) ; 
f2=subs (Sym(E) ,tindasym(sym(ft)),b)， 
If (f1 一 0) 
Oot=a; 
end 
if (f2 一 0) 
OOt=b: 
end 
ift(t1Lxf2>0) 
disp( ' 两 端点 函数 值 乘 积 大 于 05! ' ) 
Teturn: 
elSse 
廿 O1L=1; 
fa=subs(sym(ft),findasym(sym(E) )，a) 
fb=subs (sym(f) ,findasym(sym(E)) Pb) ， 
root=b; g% 人 迭代 初始 值 
while(tol>eps) 
x1=zcot ; 
fx=subs (Sym(E) ,findqsym(syrm(E))，z1L) 
S=fX*xfay; 
ifE(s 一 0) 
TOOL=T1， 
人 Se 
TYOOtL= 工 1 一 ( 工 一 ) < 下 X/( 工 X 一 在 aa ) 
endQ 
tol=abs (TOOt 一 LT) ; 
endQ 
endQ 
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四 区 单 点 纺 规 法 求 根 应 用 实例 。 单 点 纺 截 法 求 方程 gx+ KE = 2 在 区 间 [1.4] 上 的 
一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 
>> tr=SinleSecanc (sqtrt(Xx)+Log(x)-27，1，4) 
输出 计算 结果 为 


二 1 .8773 
由 计算 结果 可 知 ，lgx+wVx =2 在 区 间 [1.4] 上 的 一 个 根 为 x=1.8773 。 


9.2.5.3 双 点 弦 截 法 
双 点 驴 截 法 的 欠 代 公式 如 下 : 
JE 一 区-1 


OCT 


在 MATLAB 中 编程 实现 的 双 点 弦 截 法 的 函数 为 ，DblSecant 
| 功能 : 用 双 点 弦 截 法 求 方程 的 一 个 根 
| 调用 格式 : root= DblSecant (faib,eps) 
其 中 ，f:， 方程 名 ， 
a: 区 间 左 端点 ; 
b: 区 间 右 端点 ; 
ps:， 根 的 精度 ， 
root: 求 得 的 根 。 





双 点 驴 堆 法 的 MATLAB 程序 代码 如 下 所 示 : 


function root=DblSecant (f,a,p,eps) 
g% 方 程 表达 式 : ff 
gs 区 间 左 端点 ，a 
s 区 间 右 端点 : b 
g% 根 的 精度 :， eps 
g% 求 得 的 根 : roet 
It (nargin= 一 3) 
epDS=1 .0e-4; 
enQ 
f1=subs (sym(fE) ,findqsym(Sym 7 
f2=subs (sym(f) ,tinasym(sym(f))，D) 
E (f1 一 0) 
OOtL=a; 
enqQ 
IE (E2 一 0) 
TOot=P 
end 
E(f1xf2>0) 
qisp ( ' 两 端点 函数 值 乘积 大 于 0!…) 
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TetUYDn 
@Se 
LO1L=1: 
TOot=D 
X2=a; 迭代 初始 值 
while(tol>eps) 
rr1 二 了 2 
rr2 = TOoot:; 
f1=subs(sym(t) ,ftinasym(sym(E) ) ZL) 
f2=subs (sym(f) ,tinasym(sym(f))，r2) 
If (f1 一 0) 
FrOot=T1:; 
else 
If ( 工 2==0) 
roct = T2; 
全 Se 
TOot=T2 一 (2 一 1)*f2/ (2 一 1) ; 
emQ 
endQ 
二 olL=abs (Toot 一 xz2) ; 


emnqQ 
enaQ 


双 点 弦 截 法 求 根 应 用 实例 。 双 点 弦 截 法 求 方程 gx+ VX = 2 在 区 间 [1.4] 上 
一 个 根 。 


解 : .在 MATLAB 命令 窗口 中 输入 : 


>> LT=DblSecant ('SGLEL (X)+1og(xX)-2 1 4) 


输出 计算 结果 为 
r = 1.8773 


由 计算 结果 可 知 ，lgx+wVxz =2 在 区 间 [1,4] 上 的 一 个 根 为 x=1.8773 。 


9.2.5.4 “平行 弦 截 法 
平行 弦 截 法 的 迭代 公式 如 下 ， 
D 一 4 
Xk+l 二 其 了 7 辐 二 FOOD7 
其 中 迁 代 匀 始 值 xoo。 在 下 面 编制 的 程序 中 ， 迄 从 初始 值 取 为 求解 区 间 的 郝 诡 点 。 oo 


在 MATLAB 中 编程 实现 的 平行 弦 截 法 的 函 数 为 : PallSecant 
功能 : 用 平行 纺 截 法 求 方程 的 一 个 根 
调用 格式 : root= PallSecant (fa,b,eps) 


其 中 ，f， 方程 名 ; 
8 区 间 人 全 
b: 区 间 右 端 
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-一 
root' 求 得 的 根 。 
平行 驴 截 法 的 MATLAB 程序 代码 如 下 所 示 : 


function root= PallSecant (favb,eps) 
g 方 程 表 达 式 : ff 
g% 区 间 左 端点 : a 
s 区 间 右 端点 : b 
g 根 的 精度 : epS 
g% 求 得 的 根 : root 
format 1ong:; 
If (nargin 一 3) 
epSs=1 .0e 一 4; 
enqQ 


多 


f1=subs(sym(f),findqasym(Ssyrm( 工 
f2=subs (sym(f),ftindQsym(sym( 工 
if (f1 一 0) 

Oct=a 7 


世 


end 
if (f2 一 0 ) 
oot=b， 
emGQG 
If (下 1* 下 2>0) 
aisp(' 两 端点 函数 值 乘 积 大 于 01! ') ; 


returny， 
elSse 
巧 Ol1=1; 
rOOt=ay g 迭 代 初 始 值 


C = (PD-a)/(E2 一 tf1) 
while(tol>eps) 
xz1 = Yoot 
fx=subs (Sym(ft) ,finasym(sym( 夺 ) ) ,zl1) 7; 
if (f1 一 0) 
zOGtL= 荆 1 
elSse 
OOL= 基 TI 一 Cx 工 X7 
endQ 
二 oO1L=abs (TOotL 一 1) ; 
enaQ 
enqQ 
format Short 


平行 弦 埠 法 求 根 应 用 实例 。 平 行 玫 截 法 求 方程 gx+\X = 2 在 区 间 [14] 上 
的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 





>> =PallSecant (' SGrt (X) 二 1og(Xx)-2 1，4) 
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输出 计算 结果 为 : 


二 1 .8773 
由 计算 结果 可 知 ，lgx+wWx =2 在 区 间 [1,4] 上 的 一 个 根 为 x=1.8773 。 


9.2.5.5 ”改进 弦 截 法 
改进 弦 截 法 的 友 代 公式 如 下 : 
国 XK 一 AK-1 
Ja) 一 we-D 

在 下 一 步 迭 代 之 前 ， 分 以 下 两 种 情况 : 

。 如 果 Joe)jFGxD<0， 则 用 (xf(xt) 代替 (oo D))， 用 (man7Gxe) 代替 
Oak)) 

e。 如 果 JJ7FxtD>0， 则 用 (xx 代替 (Fo ， 用 (uc da 代 
替 (xx xD)， 

其 中 


J(Cxx) 


MK+L 一 KK 


05 伊利 诺 斯 法 
人 三 fo) ， 
7GxJ+yOo) ， 佩 加 苏 法 


来 


已 安德森 法 
0.5 当 LACOxsD) 一 Jr )](Cxc 一 了 -TD) 去 
， (xl 一 你 )[ AGOox)- Foo] 


一 La 一 Jo)lGu -区 D 当 [LAGosD -GoD]Gox 一 杂 、 
(Ge 一 了 LACo)- Go D] (xz 一 不 )[ACo)- Coco] 


一 相 人 囊 广 而 抽 区 让 让 上 二 到 TO 
功能 : 用 改进 弦 截 法 求 方程 的 一 个 根 
调用 格式 : root= ModifSecant (fa,b,eps) 


其 中 ，f:， 方程 名 ; 
机 区 间 左 端点 ; 
b:， 区 间 右 端点 ; 


eps: 根 的 精度 
root: 求 得 的 根 。 


改进 弦 截 法 的 MATLAB 程序 代码 如 下 所 示 : 
function root=ModifSecant (上 ,ab,eps) 
g 方 程 表达 式 : 上 

gs 区 间 左 端点 : 忌 

sg 区 间 右 端点 ; b 

g 根 的 精度 : eps 
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g 求 得 的 根 : root 
format 1ong; 
if (narGin 一 3) 
epPpS=1 .0e-4: 
enaQ 
1L=sSubs (sym(E) ,findqsym(Ssynm (于 
f2=SsSubs (sym(t),findqasym(symfft))，b):; 
IE ( 夺 1= 一 0 ) 
FrOOt=a; 


多 


enaQ 
if (ff2 一 0) 
xOot=b; 
enaQ 
if(fLxft2>0) 
qisp( ' 两 端点 函数 值 乘积 大 于 01' ) ; 
retutny 
el1Se 
O1L 三 1 
r1 = al gs 迭代 初始 值 
上 2 = D; 
fVv = Subs(sym(f),findqsym(sym(f) ) ，a) ; 
while(tol>eps) 
f2=SsSubs (syml(E),findqasym(sym(f)) ,2); 
TOOL=T2 一 (2-T1)*ft2/(E2 一 Ev) ， 
fr=subs (Sym(ft) ,tindqasym(sym(f)) ,root)， 
E(E2xfr<0O) 
二 ol=abs (root 一 2) 


rr1 = 2; 

Y2 = Yoot; 

tv = Sups(sym(f),ftindqsyrm(sym(E))，r1) ， 
elSse 

tol=abs (Yoot-r2) ; 

xz2 = Toot 


ftv = 0.5xsubs(sym(f),findqsym(sym(f)) ,rrl1)， 


emnqQ 
endQ 
endQ 
format Short 
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g% 伊 利 诸 斯 法 


改进 弦 截 法 求 根 应 用 实例 。 改 进 弦 截 法 求 方程 lgx+ \E = 2 在 区 间 [L4] 上 


的 一 个 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> =ModifSecant ('SGTFL (X)+1og(X)-2，1，4) 


输出 计算 结果 为 : 
r = 1.8773 


由 计算 结果 可 知 ，lgx+Vxr=2 在 区 间 [1.4] 上 的 一 个 根 为 x=1.8773 。 从 效率 方面 讲 ， 


改进 弦 截 法 比 前 几 种 弦 截 法 的 速度 都 要 快 。 
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9.2.6” 史 蒂 苍 森 ; 


史蒂芬 森 法 是 弦 截 法 的 一 种 变形 ， 它 的 递 推 公式 为 ， 

Fo) Fa) 
一 | 一 一 一 _ ， 且 一 六 一 二 ~ ~- 
TCFOUDCAOOT1 CD ， 且 有 na TOT7OC7O 


中 可 苍 森 法 的 收 贷 速 度 世 很 快 。 


J(a) 。 


在 MATLAB 中 编程 实现 的 史蒂芬 森 法 的 函 数 为 ， StevenSecant 
功能 : 用 史蒂芬 森 法 求 方程 的 一 个 根 
调用 格式 ， root= StevenSecant (fa.b,epSs) 
其 中 ，f:， 方程 名 ; 

a: 区 间 左 端点 

b:， 区 间 右 端点 

ps:， 根 的 精度 
root: 求 得 的 根 。 


史 蒂 苏 森 玉 巷 法 的 MATLAB 程序 序 代码 如 下 所 示 ， 


function root=StevenSecant ( 夺 ,ab eps) 
g% 方 程 表达 式 : 工 
s 区 间 左 端点 : 已 
gs 区 间 右 端点 : D 
g 根 的 精度 ，eps 
g 求 得 的 根 : root 
If (nargin= 一 3) 
eDS=1 .0e 一 4， 
emnQ 
fE1=subs(sym(Et),findsym(sym( 王 ) ) ，a) ， 
f2=Ssubs (sym(f), findasym(sym(f))，b) ; 
IE ( 节 1 一 0 ) 
TOOL=a， 
enmnd 
1IfE(E2= 一 0) 
Foot=b， 
end 
IE(1xf2>0) 
disp( ' 两 端点 函数 值 乘积 大 于 0! ) 
returny; 
elSse 
七 DJ=1 ; 
fa=subs (Sym(f),finasym(sym(E) 
fpb=subs (sym(ft) ,finqsym(sym(E) 
faa=subs (sym(f), findasym(synm( 工 
root=a-faxfa/(faa-fa) ; sg 迭代 初始 值 
while(tol>eps) 
Y1=Troot ， 


) ，a) ; 
) ,Pb) ; 
) ) 
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fx=subs (sym(f) ,findqasym(syrm( 工 ) ) ,Fr1) 


V=EXA+T1 
fxXXx=Ssubs (Sym(t),ftindasym(Ssyrm(f) )，V) 
zOot=L1 一 ExxfX/A(EXX-EXx) ; g% 递 推 的 核心 公式 
上 oOlL=abs (xzoot-T1L) ， 
enaQ 


emd 


攻 了 治国 运营 苍 森 截 法 求 根 应 用 实例 。 史 蒂 苏 森 弦 截 法 求 方程 lgx+ VE =2 在 区 
间 [1,4] 上 的 一 个 根 。 


解 : 在 MAILAB 命令 窗口 中 输入 : 


>> TY=SEevVvenSecant (SGLFL (X)+1og(xX)-2，1，4) 
Warning: Log of zero-. 
> In sym.Subs at 127 

In StevenSecant at 22 





Warning: Log of zero . 
> In Sym.sSupbps at 127 

IDn StevenSecant at 28 
三 荆 


结果 出 现 错误 ， 改 正方 法 之 一 是 把 求解 区 间 缩 短 为 [1.5,2]: 


>> IT=StevenSecant (' SGTL (X)+1og(X) -2 1.5，2) 
工 一 1.8773 


这 样 就 得 出 了 正确 的 根 1.8773。 从 上 面 的 例子 可 以 看 出 求解 区 间 的 选择 也 是 很 重要 的 ， 
一 般 来 说 ， 求 解 区 间 越 短 越 好 。 


9.2.7” 劈 因 子 法 
劈 因 子 法 通过 找到 实 系数 代数 方程 


F( 和 = 友 上 aaa 一 0 
的 一 个 二 次 因子 w( 妇 = 好 +Pxr+g， 从 而 找到 方程 的 两 个 实 根 或 一 对 共 斩 复 根 。 
求 w(z) 的 算法 如 下 : 
全 任意 选取 w(z) 的 一 个 近似 值 ， 令 wa= 妆 +Pxr+g 
e 令 FOOD0=wWODOOCDI+R(OO=( 太 +PXTOIIO 十 攻 X23 十 十 DO 3X 十 P 2) 十 (MX 十 户 ) 
其 中 
区 三 必 一 PP 一 GBP =12 1 
b=0p =1 
让 二 0r-1 一 Ppo 2 一 gp -3 
户 =Gn 一 gb 2 


es 邻 xzO(00 = mwODM (+ 局 (0 


一 (xz 十 PX 十 OO 3 上 ce 4 十 十 Cn _4X 二 Cn 3 
+(CRNX+RI2) 
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如 此 直到 满足 一 定 的 精度 为 止 
在 MATLAB 中 编程 实现 的 劈 因 子 法 的 函数 为 ，PYZ 


人 .和 镶 语言 常用 算法 程序 集 


其 中 
c 二 大 一 Pet 一 4gck-2( 大 = 2 有 一 3) 
c_1=0co=1] 
RU = 已 -2 一 Pcnr-3 一 gcn-4 
Ra2 = 一 9cn-3 
镭 解 二 元 一 次 方程 组 : 
RiT+Raoy = 六 
| 十 Rizv 三 力 
其 中 
Ra2l 三 Di-3 一 Pcn-4 一 gcr-5 
民 22 三 Br-2 一 gcn-4 
命 修正 w(x) : 
W( 人 (ID 一 克 7 二 (P+I)X+(I 二 TD) 





功能 : 用 劈 因子 法 求 方程 的 一 个 二 次 因子 
调用 格式 ，[p,qd]=PYZ(a,M.p0.q0) 
其 中 ，a: 方程 系数 ; 
M: 迭代 步 数 ; 
p0: 初始 一 次 项 系数 ; 
q0: 初始 常数 项 ; 
p: 求 得 的 二 次 因子 的 一 次 项 系数 ; 
9q: 求 得 的 二 次 因子 的 常数 项 。 





辟 因 子 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [p,G]=PY2(a,M,Dp0,d0O) 
g 方 程 系数 : 已 
g% 迭 代步 数 ， M 
g 初 始 一 次 项 系数 : b 
g 初 始 常数 项 ，eps 
g 求 得 的 二 次 因子 的 一 次 项 系数 : p 
g% 求 得 的 二 次 因子 的 常数 项 : g 
format 1 ong; 
= engGthpn (al) ; 
= Zeros (mn，1) ; 
三 Zeros (mn-1,1) ， 
D0: 
= G0:; 
OF Kk=1:M 
D(1I) = 0; 


由 四 也 mg5S 
册 
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Di) = al(i-2) 一 Drxb(i-1)-Gx*bp(i-2)， 


enQ 
zl = an-1) 一 Pxb(n)-Gxb(n-1):; 
r2 = an) 一 Gxbtn)， 
ct(1) = 0:; 
Cl(2) = 1 工 ; 
for 1I=3 :mn 一 1 
clti) = bli) 一 pxc(i-1)-Gxc(i-2)， 
endQ 
R11 = btn) -- pxcl(n-1)-Gxct(n-2) 7 
R12 = -SGrxc(n-1) ; 
R21 = bln-1l) - pxc(n-2)-Gxc(n-3)， 


R22 = bn)-Gqxc(n2) ; 

有 = [R11 R217R22 R12]:; 
已 = [zl1272]1， 

u = ANB:; 

DP = B+u(IT): 

G = GHu(2)7 

enqQ 

format Short : 


避 因 子 法 求 根 应 用 实例 。 求 ?= xx+D?(r-DG+3)=5+4x +22 一 
4 六 一 3x 的 一 个 二 次 因子 。 


解 ， 在 MATLAB 命令 窗口 中 输入 : 


>> a=[4 2 -4 -3 0]; 


>> fp,ql = PYz(a,20,3,8) 
pb = 2.0000 
qdq= 1.0000 
>> [p,ql = PYz(a,50,2,5) 
pb = 2.0000 
qq = -3.0000 


上 面 的 结果 中 第 一 次 求 出 的 二 次 因子 为 x+2x+1=(xz+D” ,第 二 次 求 出 的 二 次 因子 
为 2+2x-3=(x-Dxz+3)。 初 始 值 的 选取 很 重要 ， 如 果 选 得 不 好 ， 可 能 就 求 不 出 二 次 
因子 。 


9.2.8 抛物线 法 


弦 截 法 其 实 是 用 不 断 缩短 的 直线 来 近似 函数 Fo) ,而 抛物 线 法 采用 三 个 点 来 近似 函数 
Foo ， 并 且 把 抛物 线 与 横 轴 的 交点 来 和 逼 近 函 数 fx) 的 根 。 它 的 算法 过 程 介绍 如 下 。 
从 选 定 初始 值 z 、 国 、 姑 ， 并 计算 fox) 、7FCo) 、7FCe2) 和 以 下 差分 : 
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_ CN) 一 了) 


三 (2 六 
Ja,a)= 式 0 一 Jo) 
XI 一 X0 
JU am)-IC2)-7onaa) 
X2 一 0 
一 般 取 zx =4， 六 = 六 ，a< 妇 <p。 注 意 不 要 使 三 点 共 线 。 

侠 用 牛顿 插值 法 对 三 点 (mo,jCo) 、(Cn,JCo) 、(e,jGz)) 进 行 插值 得 到 一 条 抛物 
它 有 两 个 根 ， 


线 ， 


-B+VB2 -44C 
3 二 2 十 一 一 
2C 
其 中 ， 4= oo)C= (zzo) 
如 = 了 (2; 姑 )+ 太 (和 0)(zz 一 为 ) 
两 个 根 中 只 取 靠 近 总 的 那个 根 ， 即 士 号 取 与 有 同 号 。 即 
24 

互 +sgn(B)VB2 一 44C 
命 用 、 2 、 妇 人 代替 xo 、 XI、 X2 重复 以 上 步骤 。 并 有 以 下 递 推 公式 : 
24， 


X1z+l 二 X1 一 一 一 


有 ,+sgn(B)VB,2 一 44,Cn 


其 中 ， 如 = Jo),Cs = (mspxzn-a) 


DB = 上 了 (2 》 必 m 一 | ) 十 厂 (2 ， 攻 7 一 1， 7 一 2 )(xv 一 Xi-1) 


X3 一 X2 一 


合 进行 精度 控制 。 


在 MAILAB 中 编程 实现 的 抛物 线 法 的 函数 为 : Parabola 
功能 : 用 抛物 线 法 求 方程 的 一 个 根 

调用 格式 : root= Parabola (fa,b,x,eps) 

其 中 ，f:， 方程 名 


3: 区 间 左 端点 ; 
b: 区 间 右 端点 ; 
X: 迭代 初始 点 ; 


eps:， 根 的 精度 ; 
root' 求 得 的 根 。 


抛物 线 法 的 MATLAB 程序 代码 如 下 所 示 : 


function roct=Parabolal(f,ab,x,eps) 
g 方 程 表达 式 : 上 
gs 区 间 左 端点 : 已 
gs 区 问 右 端点 : b 
g 和 迭代 初始 点 : x 
% 根 的 精度 ，eps 
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g% 求 得 的 根 : root 

It (nargin 一 4) 
epS=1 .0e 一 4 

enmnG 

fl1=subs (sym(ft),finaqasym(sym( 夺 ) ) ，a) ; 

f2=sSubs (sym(f),findqsym(sym(ft))，b): 

If (f1= 一 0 ) 
TOOtL=a 

emQ 

IE (2 一 0 ) 
xzoot=by; 

eDn 

IE(EL*f2>0) 
aisp( ' 两 端点 函数 值 乘积 大 于 0! ') 
return:; 

elSse 
七 D1=1; 
fa=subs(sym(ft),tindasym(sym(E))，a) : 
fpb=subs (symf(ft),findasym(sym(f))，b); 
fx=SsSubs (Sym(E) ,findsyrm(syrm(E) ) ，Xx) 
QJ= (tb-fa)y/(b-a) : 


q2= (fx-fbp)y/(x-b) :; 

Qq3=(Q2-Q1) 7/ (xX-a) :; 

B=Q2+Qq3x (x-b) ; 
FrOot=XxX-2*xfx/(B+Sign(B)xsdqrt(B^ 人 2 一 4*fxxdq3) ) ， 
t=Zeros (3) ; 


七 ( 工 ) =a; 

(2)=b; 

七 (3)=X7 

while(tol>eps) 
(1)=r(2) g 保 存 三 个 点 
上 (2)=E(3); 
(3)=zoot 


finasym(symt(Et)),t(1)) 7 g 计 算 三 点 的 函数 值 
,Eindsym(Sym(E)) ,七 (2)) 7 
finaqasym(syrm(f)),(3)); 


FE1=subs (Sym 





( 丰 ) ， 
fE2=sSubps(sym(Ef) 
f3=Subs (sym(f) 
(七 ( 
汪 
人 


al=(f2-f1)/((2)-E(1)) 1; % 计 算 三 个 差分 
0 3) 一 已 ( 1 
Gd3=(d2-d1) 3)-t(1) ) ; 
B=d2+q3x (七 瑟 )， g 计 算 算 法 中 的 B 
root=t (3) ae )*SGrt (B^2 一 4*f3xGQ3) ) 
toO1=abs (root-t (3)) 
en 
| 
抛物 线 法 求 根 应 用 实例 。 采用 抛物 线 法 求 方程- 记 +x-2=0 的 一 个 根 ， 
半 


求解 区 间 分 别 为 [0.3,1.53] 和 [0.1,1]。 
解 : 在 MAILAEB 命令 窗口 中 输入 : 


>> fY=Parabolal('1/SsGrE(xX)+x-2' 0.5,1.5,0.8) gs 求解 区 间 [0.5,1.5]， 和 揭 代 初 值 为 0.8 


嚼 十 古本 249 


卫 人 TILAB 语言 常用 算法 程序 集 


并 三 工 


>> =Parabolal('l1/sdqrt (x)+x-2'， 0.1,1,0.5) g% 求 解 区 间 [0.1,1]， 和 迭代 初 值 为 0.5 


工 三 0.3820 


由 此 可 以 看 出 抛物 线 法 也 能 求 出 方程 +x-2=0 的 两 个 根来 。 
大 


9.2.9 ” 钱 伯 斯 法 


钱 伯 斯 法 和 抛物 线 法 一 样 ， 也 是 三 点 迭代 公式 ， 不 过 它 有 两 个 迭代 公式 ， 其 一 为 : 
Xina-2yYn-Lyn 1H-1yYnz-2 yn 十 1 Yn-1yYn-2 
(ynm-2 一 yn-1(O7m-2 一 yn) (yxr-1 一 yn-2)(yn-l 一 y) (yn 一 yn-l(yn 一 yn-2) 


nr+l 一 


另 一 个 为 : 


来 来 洲 
An yn-1yn Xp 一 1 yz JX1 yn-1Lyn 


Xp 二 一 全 一 + 一 + 


(和 一-D( 一 加 ) (Or 一 丰 OLD 加 ) (DGOn 一 她 ) 


其 中 
Xz-I 十 Xn 
本 2 
Ar 一 光一 1 


yn 一 yn-l 


在 MATLAB 中 编程 实现 的 钱 伯 斯 法 的 函数 为 ， QBS 
功能 : 用 钱 伯 斯 法 求 方程 的 一 个 根 
调用 格式 ， root= QBS (fab,x,eps) 
其 中 ，f， 方程 名 |; 
a: 区 间 左 端点 ; 
b:， 区 间 右 端点 
Xx， 从 代 初 始点 ; 
eps:， 根 的 精度 
root: 求 得 的 根 。 


.1 一 


钱 伯 斯 法 的 MATLAB 程序 代码 如 下 所 示 : 


function root=QBS(ft,a,b,x,eps) 


g% 方 程 表达 式 : 工 


g 区 间 左 端点 : 已 
g# 区 间 右 端点 ，b 
g 和 迭代 初始 点 : x 


g% 根 的 精度 : eps 
g 求 得 的 根 : rcot 
forrmat 1ong; 
If (nargin=-4) 

epPS=1 .0e 一 6: 
enmndQ 
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fa=subs (symt(f) ,findqsym(Sym( 工 ) ) ，a) 
fb=subs (sym(f),findsym(sym(f)),b): 
fx=subs (sym() ,Elinasym(Sym( 工 ) ) ，X) 7 
If (Ea==0) 
TOot=; 
Yetuzrny， 
end 
E (fb 一 0 ) 
xzoot=Pb; 
retutny; 
end 
if(fx 一 0) 
Tooet 三 区 7 
etUutDn7 
else 
to]l=T; 
t=Zeros (3) ; 
二 (1)=a; 
直 (2 )=X; 
t(3)=P; 
while(tol>ebps) 
ft1=subs(sym(f) ,findsym(sym(E) ) ,ct(T) ) ; gs 计 算 三 点 的 函数 值 
f2=subs (sym(E) ,findQsym(sym(f)) ,二 (2) ); 
f3=subs(sym(ft) ,finadsym(sym(f)) ,tt(3)) 7 
Q1=f2 一 fl1; 
Q2=f3 一 E2; 
Q3=f3 一 f1， 
if (aa 一 0 |11d2 一 0 1l Gd3 一 0) 
qisp(' 除 0 错误 ， 请 重新 选择 三 个 初始 点 ! ') ; 


Oot = NaN; 





returnDy; 
enmnd 
root=t (1)*f2x*f3/dl/d3+t (2)*f1lxft3V/dlVad2+t (3)*xf2x*f17/d27d3 
tol=abs (root- 七 (3) ) ; 
ft = Sups(sym(f) ,tindsym(sym(E) )，zroot) 
if( f2xft < 0) 
if root > 七 (2) 


七 (1)=t(2) 7 
七 (2)=Foot 
else 
t(3) 三 七 (2); 
七 (2) 三 OOt; 
emndQ 
elSe 
if ft2 < 0 
if root > 七 (2) 
七 (1 )=t 上 (2) 7; 
七 (2)=root 
elSe 
七 (1) = Foot:; 
endQ 
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el 


end 


与 所 





if xzoot > 七 (2) 


七 (3) 
人 Se 


format Short ， 


区 昌 。 钱 伯 斯 法 求 根 应 用 实例 。 钱 伯 斯 法 求 方程 z 


个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 


>> SYmS XXX 
>> Y = X^2 一 3 
>> rz=QBS(Y，0 


*X 二 2 7 
, 工 .8,0.6) 


上 三 1.0000 


由 此 求 出 方程 巡 -3x+2=0 的 一 个 根 为 x=1。 


9.2.10 “牛顿 法 


Foot ; 


七 (2) 
Oct 


g 求 解 区 间 [0,1.8] 


， 和 迭代 初 值 为 0.6 


-3x+2=0 在 区 间 [0,1.8] 的 一 


弦 截 法 本 质 上 是 一 种 割 线 法 ， 它 从 两 端 向 中 间 逐 渐 通 近 方 程 的 根 ， 牛顿 法 本 质 上 是 一 


种 切线 法 ， 它 从 


初始 值 可 以 取 广 (ao) 和 广 () 较 大 者 ， 
“和 牛顿 法 有 关 的 还 有 简化 牛顿 法 和 牛顿 下 山 法 。 


在 MATLAB 中 编程 实现 的 牛顿 法 的 函 琴 数 为 ， NewtonRoot ， 
功能 ， 用 牛顿 法 求 方程 的 一 个 根 


Xn+l 一 


一 端 向 一 个 方向 逼近 方程 的 根 ， 其 递 推 公式 为 : 
Co) 
三 (xD) 


这 样 可 以 加 快 收敛 速度 。 


调用 格式 : root= NewtonRoot (fa,b,eps) 
其 中 3 于 : 方程 名 ， 


| 8 区 | 


IOQt: 


“牛顿 法 的 MATITLAB 程序 代码 如 下 所 示 ， 


间 左 端点 ; 
| b 区 间 右 端点 ; 
: 根 的 精度 


_ 求 得 的 根 。 


function root=NewLonRoot (favb,eps) 


g% 方 程 表达 式 ，f 
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区 间 左 端点 : a 
区 间 右 端点 : b 
g% 根 的 精度 epS 
g% 求 得 的 根 : root 
If (nargin= 一 3) 
ebps=1 .0e 一 4; 


cp Go8 





end 
f1=subs(sym(E),finasym(SsSynm ( 工 
f2=subs(sym(f) ,findsym(sSym(E))，Pp) ， 
工 ( 于 1 一 0) 

Foot=a:; 


多 


enaq 

革 (2=0) 
YoOot=b:; 

enaG 

工 (1L* 工 2>0) 

qisp( ' 两 端点 函数 值 乘积 大 于 0! …) 
returny; 

elSe 
O1=]1 ; 
fun=Qqiff(sym(Ef)): gs 求 导数 
fa=subs(sym(ft) ,finasym(synm ( 工 


) ) ,aa 
fb=subs(sym(f),ftindsym(syrm( 工 ) ) ，P 

( 

《 


) : 

,PP) ; 

afa=subs(sym(ftun) ,findqsym(sym(tun)) ,al) 

dftb=supbps (sym(ftun) ,findqasym(sym(ftun) ) ) b) ; 

if(dafa>dfb) g 初 始 值 取 两 端点 导数 较 大 者 
root=a--fa/aQfta: 

el1LSe 
xzoot=b-fpy dftby; 

enaQ 

while(tol>eps) 


上 1=zoot ; 
fx=subs(sym(t),findqsym(sSym(E) )，z1)， 
afx=subs(sym(Efun) ,findsym(sym(fun) ) ,rz1) ; gs 求 该 点 的 导数 值 
root=r1-fx/Gfx; g% 迁 代 的 核心 公式 
tol=abs (root-r1) ; 
emnQ 
enQ 


和 二。 和牛 需 法 求 根 应 用 实例 。 牛 顿 法 求 方程 V - 妇 +2=0 在 区 间 [0,5.2] 的 一 
根 。 


解 : 在 MATLAB 命令 窗口 中 输入 ; 
>> LT=NewtonRoot (' SGTL (X) 一 X 3+2 0.5，2) 


输出 计算 结果 为 


三 工 .4759 


由 计算 结果 可 知 ，\ 人 xx - 妇 +2=0 的 一 个 根 为 x=1.4759 。 
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需要 注意 的 是 ， 初 始 值 的 选择 不 要 使 得 其 导数 为 0。 
9.2.10.1 简化 牛顿 法 

将 牛顿 法 的 递 推 公式 改 为 : 


zz+1 一 和 7 一 4F(zr) 


为 保证 收敛 ， 系数 4 只 需 满足 0< 4 < 即 可 。 如 果 处 取 常数 _1 


和 (xz0 








顿 法 。 


| 在 MATLAB 中 编程 实现 的 简化 牛顿 法 的 函数 为 ，SimpleNewton 
功能 : 用 简化 牛顿 法 求 方程 的 一 个 根 
调用 格式 ， root= SimpleNewton (fa,b,eps) 





其 中 ， 于: 方程 名 ) 
3 区 间 左 端点 ; 
b: 区 间 右 端点 





eps: 根 的 精度 ; 
| root:， 求 得 的 根 。 


简 化 牛顿 法 的 MATLAB 代码 如 下 所 示 : 


function root=SimpleNewton(f, ay beps) 
g% 方 程 表达 式 : 上 
g 区 间 左 端点 : a 
s 区 间 右 端点 ，b 
s 根 的 精度 : eps 
g 求 得 的 根 : root 
If (nargin 一 3) 
epSs=1 .0e-4; 
end 
ft1=subs (sym(ft),findqasym(Ssym(f))，a) ， 
f2=subs (sym(E) ,findsym(sym(ft)) pb) 
if (E1 一 0 ) 
Oo 上 t= 己 ; 
end 
寺 E(E2= 一 0) 
TOot=b; 
emna 
工 E (下 1xf2>0) 
qisp(' 两 端点 函数 值 乘积 大 于 0! ' ) ; 
eturnm 
elSse 
toOlL=1， 
fun=difft(sym(f) ); g 求 导数 
fa=subs (sym(E) ,finadsym(sym(f))，a) ; 
fb=subs (sym(E) ,tinasym(sym(f))，PD) 
Qqfa=subs (sym(ftun) ,finasym(sym(fun) ) ，B) ; 
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dQftb=subs (sym(ftun) ,findasym(sym(fun)),，PD) : 
it(tdqafa>zqfb) 

Qt0=1/dafay; 

TYOot=a 一 Qf0O* 开 ay; 


g 初 始 值 取 两 端点 导数 较 大 者 


elSe 
Qft0=17Vadfb; 
root=b-af0xfb; 

endaQ 

while(tol>eps) 
z1=TOoot ; 
fx=subs (Sym(E) ,tindsym(sym() ) ，z1) ， 
TOOL=I1-QfOx* 工 X 
tol=abs (fooct-r1) ， 


gs 和 迭代 的 核心 公式 ， 其 中 af0 为 常数 


endq 
emndQ 
下 区 简化 牛顿 法 求 根 应 用 实例 。 简 化 牛顿 法 求 方程 Vx - 妇 +2=0 在 区 间 [12.2] 
的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 ; 

>> LT=SimpbJIeNewtonRoot ('Sdqrt (X) 一 X^3+2，1.2，2) 
输出 计算 结果 为 : 

工 三 1.4759 


由 计算 结果 可 知 ，Vx - 妇 +2=0 的 一 个 根 为 x=1.4759 。 


9.2.10.2 ”牛顿 下 山 法 


本 





牛顿 下 山 法 收敛 速度 很 快 ， 很 容易 得 出 方程 的 根 。 牛 顿 下 山 法 的 递 推 公式 为 ， 
zu =_oem0<ausD 
7 


c 称 为 下 山 因子 ， 它 的 确定 方法 如 下 : 
人 @ 先 取 w =1， 求 出 za 

@@ 判断 条 件 |/(Cxosn|<| /oj 是 否 满足 ; 
@ 不 满足 的 话 令 w = 0.5a ; 


合 再 验证 直到 | Ps <|7Cej| o 





功能 : 用 牛顿 下 出 法 求 方程 的 一 个 根 
调用 格式 : root= NewtonDown (fa,b,eps) 
其 中 ，f:， 方程 名 ; 

a: 区 间 左 端点 ; 

b: 区 间 右 端点 ; 


eps: 根 的 精度 
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root: 求 得 的 根 。 | 


voteeoomrnereraeeertrrrreerrrerereerererrreoeeenrorrerroors orennmnmrmmrrooorerrrerreeerers ee emeeoeesveerereraereeeeeeeeeeseeees sse 


牛顿 下 山 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function root=NewtonDown (f,a,b,eps) 
g% 方 程 表 达 式 :ff 
gs 区 间 左 端点 : a 
# 区 间 右 端点 : b 
g% 根 的 精度 ，eps 
g 求 得 的 根 : rcot 
It (nargin=3) 
epS=1 .0e-4: 
emndQ 
f1=Subs (sym(E) ,tinaqasym(sym( 工 ) ) ,al) 
f2=subs(sym(f),finasym(sym(f)),b):; 
了 (于 1 一 0 ) 
OOt=a: 
endq 
if (f2 一 0) 
toot=b， 
enmd 
ift(E1Lxf2>0) 
qisp( ' 两 端点 函数 值 乘 积 大 于 0! ' ) ; 
YetUIrDn 
elSse 
廿 CO1L=1: 
fun=aQiff(sym(E) ); 
fa=subs (sym(f) ,findqsym(sym( 夺 ) ) ，a) ; 
fb=subs (sym(E) ,finasym(sym(fE))，b)， 
Qfa=subs (sym(ftun) ,findqsym(sym(Eun) ) ,al) : 
dfb=subs (Sym(ftun),fincdsym(sym(ftun)),b)， 
if(dafa>qfb) # 迭 代 初 始 值 的 选取 
Oot=a; 
elSe 
roOot=b， 


endQ 

while(tol>eps) 
LZJ1=zoot 
fx=subs (Sym(f) ,finasym(synm(E))，r1L)， 
Qqfx=subs (symlttun) ,finasym(sym(fun) ) ,1): 


toldf=1: 

己 JPha=2 ; 

while tolaf>0 g 此 循环 为 下 山 因 子 的 选取 过 程 
忆 LPha=alphay/v2: 
root=zr1-alphaxfx/adfx; g 迭 代 的 核心 公式 


ftv=subs (sym(fE) ,Etindqsym(sym(ft))，zootc) ; 
tolaf=abs (fv) 一 abs(Ex) ; 
end 
to1=abs (Oot 一 TI1I) ; 
enmd 
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end 

有 后 上 下 山 法 求 根 应 用 实例 。 牛 顿 下 山 法 求 方程 5 _ +2-0 在 区 间 [12] 
的 一 个 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 

>> =NewtonDown (' SGFL (X) 一 X^3+2 .12) 

输出 计算 结果 为 ， 

xz 三 工 .4759 


由 计算 结果 可 知 ，Vxz - 妇 +2=0 的 一 个 根 为 x=1.4759 。 


9.2.11 逐次 压缩 牛顿 法 
逐次 压缩 牛顿 法 可 用 于 求实 多 项 式 


= 和 妇 +aXl 十 十 Gz_IX 十 Qnr 
的 全 部 实 根 。 
合用 贝 努 利 法 求 出 根 的 上 下 界 ， 
个 用 牛顿 法 求 /Co 的 一 个 根 恕 ， 令 FOOD = Cr) 万 (0 
其 中 


Bo 三 1 

术 二 CQK 十 X0Dk_1(K = 2,…,] 一 1 
伟 用 牛顿 法 求 万 Co 的 一 个 根 ， 令 忆 (0 = (一 区 ) 严 ( 
其 中 


| 古 (x) =Box2 二 思 X 2 十 .十 BD 2X 十 PP-1 


丽 ( 妇 =coxz2 十 cl 3 十 .十 Cn_3 券 十 Ch 2 
C0 =1 
ck 三 多 十 Ct-I( 天 = 2 一 2) 


如 此 继续 下 去 ， 可 逐步 求 出 F(z) 的 全 部 实 根 。 


机 和 汪 一 一 





调用 格式 : xz=YSNewton(a) 
其 中 3: 方 程 系 数 1 
x: 求 得 的 所 有 实 根 。 和 | 


让 es 


| 

| 功能 : 逐次 压缩 牛顿 法 求 多 项 式 的 全 部 实 根 
| 

| 








由 努 利 法 求 按 模 最 大 实 根 的 MATLAB 程序 代码 如 下 所 示 : 


functiocon x=YSNewton(al) 
g 方 程 系数 : 已 
g 求 得 的 所 有 实 根 ;: x 


format Iongy; 
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nm = length(a): 
max _X = BenvlLiMAX (al) ， 
bp = zeros (m ,TI) ， 
X = zeros(n,1): 
SYIIS 七 eal: 
f = Power (七 ,Dn) ， 
= 0:Dn 一 1 
S = 三 Power (tm) : 
ff=ft+qaot(s，an:-1L:1))， 
ftor kK=1 :mn 
XI(K) = NewtonRoot (上 ,-max_X,maxX_ X) ; 
bD=0; 
bp(1) = 1 工 ; 
芋 or 工 =2 :了 nn 一 K+1 
bi) = al(i-1) 二 X(Kk)*bl(i-1): 
emdQ 
0 :nn 一 K， 
Power(t ,m) ， 
= Qot (S，P(n-k+1:-1:1)); 
Pb(2:1ength(P)): 


部 hh 态 引 
中 1 4 


enaQ 
format Short :， 


逐次 压缩 牛顿 法 求 根 应 用 实例 。 逐 次 压缩 牛顿 法 求 方程 难 +4xz3 +2x2 - 
4x-3=0 的 全 部 实 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> a=[4 2 -4 -3]; 
>> S = YSNewton (al) 


s= 1.0000 
--0.9999 
一 .0001 
-3.0000 
由 此 求 出 方程 
太 3+4 妇 +222 -4r-3=(CC-D+D20c+3)=0 
的 全 部 实 根 为 : 
为 =1.0000 
mo 二 -0.999 
妈 =-1.0001 
4 二 -3.0000 


9.2.12 ”联合 ; 
合法 是 将 牛顿 法 和 弦 截 法 结合 起 来 的 方法 ， 迭 代 公 式 有 两 种 ， 第 一 种 迭代 公式 为 : 
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和 一 入 了 Co) 
J (xD 
本 林 7 一 一 2 束 
1 一 1 -一 Co 一 mo) For 
了 (Co-D 一 (xD 
其 初始 值 为 ， 
说 二 人 - 工 四 
三 (9) 
水 CQ 一 已 
= 一 一 一 一 一 一 -DO) 
Jo) 一 CD) 
， 一 下 ] 
在 MATLAB 中 编程 实现 的 联合 法 1 的 函数 为 ，Union1 
功能 ， 用 联合 法 1 求 方程 的 一 个 根 
调用 格式 : root= Unionl (fa,b,eps) 
其 中 ，f， 方程 名 ， 
8 区 间 左 端点 ; 
b: 区 间 右 端点 ， 
| eps: 根 的 精度 ; 
| root: 求 得 的 根 。 
联合 法 1 的 MATLAB 代码 如 下 所 示 ， 
function root = Unionl (ft,avbveps) 
g 方 程 表达 式 : 上 
gs 区 间 左 端点 ， 己 
gs 区 间 右 端点 : b 
g 根 的 精度 epSs 
g 求 得 的 根 : roeot 
format ongy; 
if (nargin 一 3) 
ebpSs=1 .0e 一 6:; 
endQ 
fa=subs (sym(f) ,findqasym(sym(E)) ,al)，; 
fb=subs (sym(f) ,findqsym(svym(E))，b)， 
If (Ea 一 0) 
Toot=ay 
emnd 
If (fb 一 0) 
YoOot=b:; 
emnaQ 
toO1L=1; 
aft=qiff(sym(t) ); % 求 导数 


Qqfta=subs (sym(Qf) ,findqsym(sym(dft)) ,aa) ; 
xl =a 一 fa/dqfa'; 

Xl_s = Db - fbx(b-a)/(fb-fa) ，; 

while 革 ol>eps 
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fn=subs (sym(f) ,finGQsym(sym(f)) ,xl1); 
Qftn=subs (Sym(Gf),findqsym(sym(dqft)) ,xl1); 
fn_s=subs(sym(f),ftinasym(sym(f)) ,xl _s)， 

X2 = xl 一 fn/dfn'; 

X2_S = Xl_Ss -~ (xX1L -- X1_s)*ftn_ sy/ (fn -fn s)，; 
tol = abs(x2_Ss 一 xl_s):; 

X1L 三 X2: 


endQ 
root = X2_S; 
format Short 


例 9-21 合法 1 求 根 应 用 实例 。 采 用 联合 法 1 求 方程 妇 -2xz2+3x-1=0 在 区 间 


[0,3] 的 一 个 根 。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> SYymS X; 

>> YY 一 X 3 一 2xX^ 人 2 二 3*xX 一 工 ; 
>> 工 = Unionl(ty,0，3) 

上 三 0.4302 


由 此 求 出 方程 乙 -2x2+3x-1=0 的 一 个 根 为 x=0.4302 。 
合法 的 第 二 种 迭代 公式 为 : 
(Co 一 xD) 
=M- 一 一 JrD) 
[| 1 FOOD7CCDT7 1 
0 Foo-D 


(xs 
其 初始 值 为 : 
CQ 一 D 
FOOD 


到 站 二 相交 区 志 5 TD 本 0 


功能 : 用 联合 法 2 求 方程 的 一 个 根 
调用 格式 ， root= Union2 (f,a,b,eps) 
其 中 ，f:， 方程 名 ， 

a: 区 间 左 端点 ; 
b: 区 间 右 端点 ; 
eps: 根 的 精度 ; 
root: 求 得 的 根 。 


合法 2 的 MATLAB 代码 如 下 所 示 : 


function root = Union2(f,a,b,eps) 
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% 方 程 表达 式 ， ff 
区 间 右 端点 : b 
g% 根 的 精度 : ePS 
g% 求 得 的 根 : rocot 


format Iong; 


Ce 





ce 


if (nargin=3) 
epDS=1 .0e 一 4; 
emndq 
fa=subs(sym(E) ,finaqsym(sym() ) al) ; 
fbp=sups(sym(ft),findasym(sym(ft)) pb) ， 
If (aa 一 0) 
FrOot=a; 
enaQ 
工 ff (fb 一 0) 
root=b:; 
enaQ 
廿 DO]=1 ; 
Qf=Giff(sym() ) ; g 求 导数 
Qtb=subs (syml(aft),finadasym(sym(aGQft))，pD): 
X]1 = Qa 一 (DbD-a)*fa/ (ED 一 王 a) ， 
xl ss==Db 一 fb/qfb; 
while tolL>epSs 
fn = Subs(sym(f) ,findqsym(sym() ) ，x1L) ， 
Qftn_ s = Subs (sym(daft),findqsym(sym(Qft))，x1_s)， 
fn_ s = Supbs(sym(ft), findqsym(symt(Et))，x1 SS) : 
Xx2 = Xl 一 (xl_s 一 xlL)x*xfn/(ftn s 一 fn)，; 
Xx2 SS = XLS 一 ftn s/dftn s :; 
tol = abs(x2_S 一 XLS) ; 
X1 = X2， 
X1_ S = X2_ S); 
endQ 
root = X2_S; 
format Short 


例 9-22 合法 2 求 根 应 用 实例 。 采 用 联合 法 2 求 方程 妇 -2xz+3x-1=0 在 区 间 


[0,3] 的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYyms 入 ; 

>> YY = X^3 一 2xX^ 2+ 3*X 一 1; 
>> 工 = Union2(y,0，3) 

三 0.4302 


由 此 求 出 方程 妇 2 -2xz+3x-1=0 的 一 个 根 为 x= 0.4302 。 
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9.2.13 ”两 步 和 迭代 法 
两 步 迭 代 法 的 一 般 公式 为 : 


因 =8(Coo) 
Xn+l 三 天 yn) 
比较 常用 的 有 以 下 两 种 形式 
Cn) 
二 Mn 一 一 
11 | 三 oo) 
一 jJ (On) 
0 
Jo) 
二 Ma 一 一 人 
(2 | Jo 
Xi 二 如 一 JJ 一 各) 
2 0) 一 Oo) 








功能 : 用 两 步 和 迭代 法 求 方程 的 一 个 根 
调用 格式 ，root=TwoStep(f,a,b,type,eps) 
其 中 ，f:， 方 程 名 ， 
a: 区 间 左 端点 ; 
b: 区 间 右 端点 ; 
2 本 
: 根 的 精度 ; 
| root; 求 得 的 根 。 


和 在 MATLAB 中 编程 $ 实现 的 两 步 迭代 法 法 的 函 数 为 ， TwoStep 





两 步 挝 代 法 的 MATLAB 代码 如 下 所 下 


tunction root=TwoStep (fa,b,type,eps) 
g% 方 程 表达 式 : 革 
gs 区 间 左 端点 : a 
gs 区 间 右 端点 : b 
gs 迭 代 形 式 : type，; 
# 根 的 精度 : epS 
g% 求 得 的 根 : roet 
function root=TwoStep (f,a,b,type,eps) 
stype=1 第 一 种 形式 
gstype=2 第 二 种 形式 
if (nargin 一 4) 

epSs=1 .0e-4; 
emndQ 
fl1=subs (sym(E) ,findsym(sym(f))，a)， 
f2= subs (Sym() ,findqsym(sym(E))，b) ; 

工 ( 工 1 一 0) 
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TOOt= 了 ; 

endQ 

If (E2 一 0) 
OoOt=D; 

enQ 

IEf(Ef1x*f2>0) 
qisp (' 两 端点 函数 值 乘 积 大 于 01' ) ; 
returny， 

人 1Se 
二 DO1L=1; 
fun=diff(sym(f)); 
fa=subs (Sym(ft),ftindsym(sym(E) 
fb=subs (Sym(f) ,findsym(symt( 工 ) 
Qta=subps(sym(tun) ,findsym(sym 
Qfb=subs (sym(fun) ,finasym(Ssyrm 
if(Qfta>dQqfb) 

TOCft= 忆 ; 


GTSe 
TOotL=b; 
endq 
while(tol>eps) 
if (type 一 1) g 第 一 种 形式 的 两 步 和 迭代 法 
1=FOot : 
fx1=SsSubs (sym(E) ,finaQsym(sym(E) ) ，r1)， 
Qftx=subs (Sym(tfun) ,findqsym(sym(Efun) ) ,zl1): 
2=r1-Ex1/VdEfx; g 第 一 步 迭 代 
fx2=Subs (sSym(f) ,tindsym(sym(f))，r2): 
root=Lz2-Efx2/afx; g% 第 二 步 迭 代 
tol=abs (Yoot-r1) ; 
esSse 
T1=root 
fx1=Subs (Sym(f) ,findasym(sym(f)) ,rzrL)， 
Qqfx=subs (Syml(ftun) ,findsym(sym(fun))，,z1L) ; 


z2=r1-fx1/dfxy; g 第 一 步 迭 代 
fx2=Ssubs (Sym(f) ,findqasym(sym(E)) ,rr2): 
OOL=L2 一 EXx2* (Y2-Yr1)/(2xfx2 一 fx1) : gs 第 二 步 和 迭代 
蕊 DJ=abs (TOOtLt-r1) ， 
end 
end 


enaQ 


两 步 欠 代 法 求 根 应 用 实例 。 利 用 两 步 迭 代 法 的 两 种 形式 求 方程 
lgx-sin(z)+1=0 在 区 间 [0.1.3] 的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> FT=TwoStep(' (1]og(xX)-Sin(X)+1) .0.1 3，1) 


工 二 0.7013 
>> LT=TwoStep(' (LIog(x)-sSin(x)+1): 0.1,3，2) 
上 一 0.7013 
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从 例子 可 以 看 出 ， 两 种 形式 的 两 步 迭 代 法 得 出 的 结果 是 一 样 的 。 
9.2.14 ”蒙特 卡 洛 法 
蒙特 卡 洛 法 求 根 的 算法 介绍 如 下 : 
严 (0) = F(x0) 
伟 产生 (-8,8) 区 间 上 均匀 分 布 的 随机 数 * ， 以 x@ +r 作 为 自 变 量 ， 计 算 
天 册 = FGxz 册 + 门 


全 若 F0 >F0 , 则 返回 上 一 步 ,重新 产生 随机 数 , 直到 找到 某 个 r , 使 得 FD < Fl 
例 若 |Fo|se， 则 x+ r 为 方程 的 一 个 根 ， 否 则 转 例 。 











功能 : 用 蒙特 卡 洛 法 求 方程 的 一 个 根 
调用 格式 : root = Montecarlo(f,B,x0,eps) 


其 中 ， 下 : 方程 名 
B: 随机 数 发 生 区 间 ; 
x0:， 初始 值 ; 


eps : 根 的 精度 
Toot : 求 得 的 根 。 


蒙特 卡 洛 法 的 MATLAB 代码 如 下 所 示 ， 


function root = Montecarlo(f,B,x0,eps) 
g% 方 程 表达 式 : 革 
s* 和 随机 数 发 生 区 间 : B 
gs 初 始 值 : x0 
gs 根 的 精度 人 PS 
g% 求 得 的 根 : root 
format 1ongy; 
if (nargin==-3) 
epSs=1 .0e 一 4; 
enda 
FX 三 subs (sym(f) ,findsvym(sym(f)) ,x0) ; 
while abs(Fx)>eps 
Fx = Subsl(sym(f) ,findsym(sym(E))，x0) ， 
FEX1L = aps(EFX) 二 10; 
while (abs(Fx1) >= abs(Fx) ) 
= 2xBxrana() 一 B， 
XL = 一 X0 十 工 ; 
Fx1 = Subs (sym(f) ,findasym(svym( 荆 ) ) ，X1) ，; 
enQ 
X0 = XT; 
eDTn 
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TOoct = X]1); 
format Short ; 


蒙特 卡 洛 法 求 根 应 用 实例 。 用 蒙特 卡 洛 法 求 方程 ntf+10-!= 0 的 一 个 根 。 
解 : 选取 初始 区 间 为 [-3,3] ， 初 始 迭 代 值 为 10， 在 MATLAB 命令 窗口 中 输入 : 


>> SYS 七 ; 

>> Y=]Jog(t) 一 t+101; 

>> T = Montecatrlol(ty， 3,，10) 
二 12.5279 


蒙特 卡 洛 法 比较 特殊 , 有 时 候 很 快 就 能 得 出 方程 的 根 , 有 时 候 却 几 十 分 钟 也 求 不 出 来 ， 
带 有 很 大 的 随机 性 。 


9.2.15 ” 重 根 的 迭代 方法 


如 果 方 程 存在 重 根 ， 那 么 前 面 的 方法 都 可 能 不 收敛 或 者 收敛 速度 很 慢 ， 因 此 针对 二 重 
根 的 情况 有 以 下 的 迭代 公式 : 


_ 矿 (zm) 太 (xn) 
[Fox 一 oo 六 Oo) 


1z+1 二 X 


但 它 要 求 计 算 二 阶 导数 ， 如 果 方 程 复杂 点 的 话 ， 计 算 量 则 比较 大 。 


在 MATLAB 中 编程 实现 的 重 根 迭 代 法 的 函数 为 ， MultiRoot 
功能 ， 求 存在 重 根 的 方程 的 一 个 重 根 
调用 格式 : root=MultiRoot(f.a,b,eps) 


其 中 ，f: 方程 名 ， 
8 区 间 左 端点 ; 


eps: 根 的 精度 ; 
root: 求 得 的 根 。 


function root=MultiRoot (f,avb,eps) 
g% 方 程 表达 式 : 上 
g% 区 间 左 端点 : 已 
gs 区 间 右 端点 ， b 
gs 根 的 精度 :eps 
g 求 得 的 根 : root 
if (nargdin= 一 3) 
eDS=1 .0e 一 4 
emQ 
f1=Subs(sym(f) ,tinasym(sym( 工 ) ) ，a) ; 
f2=subs (sym(f) ,findsym(sym(E)) Pb) ; 
IE (下 1= 一 0 ) 
OOtL= 忆 7 
en 


重 根 迭代 法 的 MATLAB 代码 如 下 所 示 ， 
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1f ( 夺 2 一 0 ) 
TYOOL=Pb， 
enmndQ 
革 ffE (上 1xf2>0) 
disp( ' 两 端点 函数 值 乘积 大 于 01') 
TetLuznmy 
elSe 
tol=1: 
fun=diff(sym(f) ) ; g 一 阶 导 数 
qdf=dqifft(sym(fun) ) ; g 二 阶 导数 
fa=sups (Sym(f),finaqasym(sym( 上 ))，a) ， 
fb=subs (sym(ft),findasym(sym(f)) ,bl) ; 
dQfa=subs (Sym(tun),findqsym(sym(fun)) ,al)， 
Qftb=subs (sym(fun) ,findsvm(sym(tfun)) ,bl) : 
ift(dqafa>dqfb) 
TOCtL=a; 
elSse 
TOOot=pb， 
enaQ 
while(tol>eps) 
T1=Troot : 
fx=Subs (sym(t) ,findqsym(sym(E)) ,1) ; 
Qfx=subs (sym(fun),findqsym(sym(fun) ) ,1); gs 一 阶 导数 值 
ddqfx=subs (sym(ddf) ,findqsym(sym(ddf)),rl); ， g 二 阶 导 数值 
root=r1-Exxdqfx/(aftxxqfx-Exx*ddfx) :; g 人 迭代 公式 
tol=abs (TOot-z1) : 
endaQ 


endQ 


重 根 迭 代 法 应 用 实例 。 用 重 根 迭 代 法 、 两 步 欠 代 法 和 弦 截 法 求 方程 
六 (sinx 一 x+2)=0 在 区 间 [-2.3] 上 的 一 个 根 。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> TY=MU]LLiRoot (' (sin(X) 一 x+2)*xxXxrv-2,，3，1.0e-8) 
= 0 

>> TY=TwoStep(' (sin(X) 一 x+2)xxxx'y 2 3，1.0e-8) 

上 = -1.0147e-005 

>> LT=Secant (' (Sin(X) 一 X+2)x*Xxxx' -2,，3，1.0e-8) 

= 三 2.5542 


方程 六 (sinx- x+2)=0 有 一 个 二 重 根 0， 用 其 他 方法 得 出 的 精度 都 不 好 ， 而 用 特殊 的 
重 根 迭 代 法 可 以 得 到 精确 的 结果 。 


本 章 介 绍 的 方法 有 的 适用 于 代数 多 项 式 方程 ， 有 的 适用 于 所 有 的 方程 ， 不 过 不 管 方程 
的 形式 怎样 ， 在 求解 方程 之 前 ， 预 先 估计 根 的 范围 非常 重要 ， 这 不 仅 有 助 于 选取 正确 的 方 
法 ， 而 且 还 能 节省 求解 时 间 。 
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非 线性 方程 组 的 数值 解法 大 多 来 源 于 非 线 性 方程 的 解法 ， 只 不 过 数 的 计算 换 成 了 矩阵 
的 计算 。 非 线性 方程 组 的 数值 解法 中 涉及 一 个 重要 的 矩阵 一 一 非 线性 方程 组 的 雅 可 比 矩 
阵 ， 它 在 很 大 程度 上 决定 了 数值 求解 算法 的 收敛 性 和 求解 精度 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 非 线性 方程 组 的 求解 算法 ， 而 且 还 能 熟练 使 用 
MAILAB 编程 来 实现 这 些 算 法 。 





非 线性 方程 组 的 不 动 点 迭代 法 与 非 线性 方程 的 不 动 点 迭代 法 基本 一 样 。 
2 三 下 (X， 1) 十 | 
此 处 公式 中 的 变量 皆 为 向 量 。 
本 点 欠 代 法 的 MATLAB 代码 介绍 如 下 。 
| 在 MATLAB 中 编程 实现 的 不 动 点 欠 代 法 的 函数 为 AUISEDISEOI 
| 功能， 用 不 动 点 和 迭代 法 求 非 线性 方程 组 的 一 组 解 








调用 格式 : [rn]=mulStablePoint(F.x0,eps) | 

其 中 ，F: 非 线性 方程 组 ; 

x0: 初始 解 ; 
eps， 解 的 精度 

: 求 得 的 一 组 解 | 

n; 迭代 步 数 。 


Crowneewrrrrormmresrres To 


不 动 点 迁 代 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [xz,mn]=mulStablePoint(F,x0,eps) 

gs 非 线性 方程 组 : 

gs 初始 解 : a 

gs 解 的 精度 ，eps 

g 求 得 的 一 组 解 : 匡 

g% 和 迭代 步 数 : 

IE nargin 一 2 
eDS=1 .0e-6:; 

enaQ 

D= 工 : 

tol=1:; 
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while tol>eps 


xz= Subs (了 ,finasym(E) ，x0) ; gs 人 迭代 公式 
toL=norm(L-x0) : g 注 意 和 矩阵 的 误差 求法 ，norm 为 矩阵 的 欧 几 里 德 范 数 
mn=m+1: 
XU0O=I; 
if(n>100000) sg 迭 代步 数控 制 
disp( "迭代 步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
returDny 
enQ 
enda 


不 动 点 迭代 法 解 非 线性 方程 组 应 用 实例 。 用 不 动 点 迭代 法 求 下 面 方程 组 的 
一 组 解 。 


0.S$sin 为 二 0.1cos(xixz) 一 习 =0 
0.Scos 一 0.1cos 和 2 -2 =0 


初始 迭代 值 取 (0,0)。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> SYyms X Y; 


>>Z= [0.5*Sin(X)+0.1*cos(xXxy)-XI0.5xCoOSs(X)-0.1xcos(y) 一 yy]; 
>> [rn]l=mulStablepPoint(z,， [0 0]) 
上 = 0.1981 
0.3980 
mn = 19 


由 计算 结果 可 知 ,初始 迭代 值 取 ( 0,0 时 ,用 19 步 欠 代 ,得 到 原 方 程 组 的 一 组 解 ( 0.1981， 
0.3980 )。 


设 非 线性 方程 组 为 Fnxz, xz)=0， 其 中 x=[ 和 和 区 加 开 ， 
万 (07X2xp) 


F= 如 ) 


万 (22 
牛顿 法 的 欠 代 公式 为 ， 
MX 一 名 -(Foc) 天 (xz7) 
合 给 出 初始 值 x'? ; 
全 对 "=12.3…， 计 算 F(xz") 和 已 (x) ; 
伟 求 出 xz ， 并 进行 精度 控制 。 
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第 1 章 
一 般 的 牛顿 法 迭代 公式 为 ， 


Xa4L 一 和 -(MCo) FCz”) ，M 为 任意 矩阵 


当 MW )= 正 (xz0) 时 ， 就 得 到 简化 牛顿 法 。 


让 本 


在 MATLAB 中 编程 实现 的 非 线性 方程 组 的 牛顿 法 的 函 数 为 ， mulNewton | 
功能 : 用 牛顿 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [rm= mulNewton (Ex0,eps) 
其 中 ，F:， 非 线 性 方程 组 ; 


x0:， 初始 解 ; 

ps: 解 的 精度 

: 求 得 的 一 组 解 
n: 迭代 步 数 。 





牛 屯 法 的 MATLAB 代码 如 下 所 示 ， 


function [fr, Dj=nulNewton(F,x0,eps) 
g% 非 线性 方程 组 上 

gs 初始 解 : a 

s 解 的 精度 ，eps 

g 求 得 的 一 组 解 : 上 

gs 迭代 步 数 : mn 


IE margin==2 


eps=1.0e 一 4; 


enQ 

X0 = Lranspose (xx0) 

EX = 二 Subs (PP,fEinaQsym(E) ，XO) ; 

dqdF = Jacopbian(EF): 

QqFx = Subs (qF,findqsym(GPF),x0) ， 
I 一 X0O 一 PFXVGFX; 


一; 
七 D1 一 1 工 ; 


while tolL>eps 


XO=T; 
Ex 三 Subs(PF,findsym(EF) ，xO) 
qFX = sups(dqF,findsym(dqF) ,x0) ; 


T=x0 一 Fx/dGFx; g% 核 心 迭 代 公式 
tol=norm (一 xK0) ; 
D 一 n+1: 
if(n>100000) $% 迭 代步 数控 制 
Gisp ( "人 迭代 步 数 太 多 ， 可 能 不 收敛 ! ，) 
ZetuIny; 
enQ 


end 








非 线 性 方程 组 求解 


j 


| 
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调用 格式 ;， [cn]= mulSimNewton (Ex0,eps) 
其 中 ，EF:， 非 线性 方程 组 ; 


x0， 初 始 解 ; 
eps:， 解 的 精度 ; 


r: 求 得 的 一 组 解 ; 


[mm 和 途 代步 数 。 


简化 牛顿 法 的 MATLAB 代码 如 下 所 示 : 


function [r,nl=mnulSimNewton(EF,x0,epbs) 
g 非 线性 方程 组 ,上 
gs 初始 解 : 已 
g 解 的 精度 :， eps 
g 求 得 的 一 组 解 : 
g 迭 代步 数 : n 
IE nargin 一 2 
epSs=1 .0e 一 6 
enmd 
X0 = transpose(x0) : 
FXxX 三 subs (P,finaqasym(E) ,x0) : 
QFPF = Jacobian(EF)y， 
c = Subs (QFPF ,findqsym(GqF) ,XxO) 
I 一 X0 一 inV(C) *FX 7 
D 一 1; 
O]1=; 
while tolL>eps 
X0O= 工 ; 


FEX 三 Subs (PP,finqsyrm(ER) ,xO0) ， 


zxX0 一 invV(c) *Fx:; g% 核 心 和 迭代 公式 

tol=mnorrm (L 一 X0) ; 

mm 十 17 

if(n>100000) # 人 迭代 步 数控 制 
disp( ' 迭 代步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
TetuUtzm' 

endQ 

endq 


牛顿 法 解 非 线性 方程 组 应 用 实例 。 用 牛顿 法 和 简化 牛顿 法 求 下 面 方程 组 的 


一 组 解 。 
0.9sin X 十 0.1cos(Xix2) 一 XI =0 
0.Scosxi 一 0.l1cosxz -yx =0 
初始 迭代 值 取 (0,0)。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> Syms X Y) 
>>Z= [0.5*sSin(X)+0.1*cos(Xxy)-x;0.5*cos(xX)-0.1xcos (y)-y]， 
>> [rmnl=mulNewton(z，[0 0]) 
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上 = 0.1981 
0.3980 
mn= 3 
>> [rn]=mulSsimNewton(z， [0 0]) 
上 = 0.1981 
0.3980 


了 三 5 


由 计算 结果 可 知 ， 初 始 和 迭代 值 取 (0,0) 时 ， 分 别 用 3 步 和 5 步 选 代 ， 和 牛顿 法 和 简化 牛顿 


法 就 得 到 方程 组 的 一 组 解 (0.1981,0.3980)。 
从 上 面 的 例子 可 以 看 出 ， 牛 顿 法 的 收敛 速度 很 快 ， 收 和 敛 步 数 和 初始 值 的 选取 有 很 大 的 


关系 ， 初 始 值 选 得 好 ， 很 少 的 步骤 就 可 以 得 到 根 ， 选 得 不 好 可 能 会 不 收敛 。 


在 使 用 牛顿 法 时 ， 为 了 避免 计算 严 (x") ， 可 用 差 商 代替 偏 导数 ， 这 就 是 离散 牛顿 法 ， 


即 

万 (x+ 有 el) 一 万 (0) 万 (x+ 因 ren) 一 万 () 

户 思 

下 (OO =J(Cxc 问 = : … : 
户 (x+jiel) 一 万) ， 万 (Xen) 一 户 (2 

万 入 

其 中 为 单位 向 量 ， 且 ex (=12,…, 门 的 离散 第 上 个 分 量 为 1， 其 余 分 量 为 0， 牛顿 法 
的 迭代 公式 为 : 
蕊 二] 一 和 一 TOCc2 jn) IF ) 


其 中 户 = (月 ,友和 ) 
当 万 = (hoco, 户 (xz ,及 Cc0) 时 ， 就 是 牛顿 -斯 蒂 芬 森 法 。 
一 交 NATTAE 中 编程 实现 的 非 线性 方程 组 的 离散 牛顿 法 的 函数 为 ，mulDiscNewton 


| 
| 功能， 用 离散 牛顿 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 ，[rm]= mulDiscNewton (Ex0,h,eps) 
其 中 ，F:， 非 线性 方程 组 ， 

x0:， 初始 解 ; 
h， 数值 微分 增 量 步 大 小 ， 
| 人 

: 求 得 的 一 组 解 ; 

了 : 迭代 步 数 。 

“ 计 艇 牛顿 法 的 MATLAB 代码 如 下 所 示 ， 








function [rm]l=mulDiscNewton(F,x0o,hveps) 


g 非 线性 方程 组 : 革 
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gs 初始 解 : x0 
g 数 值 微分 增 量 步 大 小 : h 
s 解 的 精度 ，eps 
g% 求 得 的 一 组 解 : 
g% 迭 代步 数 ; 也 
format 1ong:; 
Ift mnargin 一 3 
epSs=1 .0e-8: 
end 
n = length(x0): 
fx = Subs(P,finaqasym(EF) ,xx0) ， 
可 = Zeros (my,Dn) ; 
二 or 工 =1 :DT 


xl1 = X0; 

X1l(I) = Xl(I)+h(i)y; 

J(:vi) = (subps(F,findasym(E),Xx1L)-fx)/nhtiy，; 
emndq 


一 transpose(x0)--inv(IJ)xEx， 
TI 一 1 ， 
to1=1; 
while tol>eps 
XS= 工 ; 
fx = Subs(PF,finaqasym(PF)，xs) ; 
可 = Zeros(ny,n):; 
EGGr 工 =1 :nm 
XT1 = XS; 
X1l1(I) = xl1(I)+h(I); 


J(:,i) = (subs(F,findasym(E),x1)-fx)/nhl(i)， 


enQ 
L=XS~1nV(J)xfXx; 
tol=norm(-xs) 
m=m+l， 
f(m>z100000) 
disp(' 迭 代步 数 太 多 ， 可 能 不 收 你 ! ) ; 
returny; 
end 
emnd 
format Short ; 


g 核 心 迭 代 公 式 


g% 和 迭代 步 数 控制 











mulNewtonsStev 


在 MATLAB 中 编程 实现 的 非 线性 方程 组 的 牛顿 .斯蒂芬 森 法 的 函数 为 ， 


功能 :用 牛顿 -斯 蒂 芬 森 法 求 非 线性 方程 组 的 一 组 解 


调用 格式 ，[rm]= mulNewtonStev (FEx0,h,eps) 
其 中 ，F， 非 线性 方程 组 ; 
x0:， 初始 解 ; 
h: 数值 微分 增 量 步 大 小 ; 
eps: 解 的 精度 ; 
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r， 求 得 的 一 组 解 ， 
mn: 迁 代步 数 。 


牛顿 -斯 蒂 芬 森 的 MATLAB 代码 如 下 所 示 : 


function [r,m]=mulNewtonStev(E,X0,hveps) 
g 非 线性 方程 组 ，f 
gs 初始 解 ，x0 
sg 数值 微分 增 量 步 大 小 : pn 
sg 解 的 精度 : eps 
g 求 得 的 一 组 解 : 工 
gs 迭代 步 数 : mn 
format 1ong; 
IE nargin 一 3 
eps=1 .0e-8: 
enQ 
一 LIength(x0): 
fx = Subsl(tE,finasym(EF)，xXx0) : 
可 = Zeros (ny,Dn); 
for =1:D 
X1 = X0:; 
xl1(i) = xl(IL)+nh(I) 
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J(:， ii = (subs(EF,findsyrm(ER) ,xl1)-EX) /Ph()， 


emndQ 
Tr=transpose(X0) 一 InV(J)*ftXxy， 
In= 工 ; 
二 O1=1; 
while tol>eps 
XS= 工 ; 
tx = Subs (下 ,findqsym(E) ,xsS) ; 
可 = Zeros (TD) ; 
了 = 工 xy; 


X1L 三 XS 

X1(i) = xL(i)+nh(I) 

J(:，i) = (Subs(EF,ftindsym(E) ,xlL) 一 EX) 7/ 
enaQ 


Y=XS 一 LV( 可 ) 下 X7 
七 DOL=norm (YY 一 XS) ; 
Im=m+1 7 
if(m>z100000 ) 
disp(' 和 迭代 步 数 太 多 ， 可 能 不 收敛 ! ') ; 
return 
enaQ 
enqQ 
forrmat Short 


ET 离散 牛顿 法 解 非 线性 方程 组 应 用 实例 。 
求 下 面 方程 组 的 一 组 解 。 


{( 工 ) 


g 核 心 和 迭代 公式 


g% 返 代步 数控 制 


用 离散 牛顿 法 和 和 牛顿- 斯蒂芬 森 法 
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她 + 如 -2=0 
注 -3x+2=0 
”初始 迭代 值 取 (0,0)。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 
>> SymSs X Y; 
>> 2 = [x^2+Xxy 一 27;Y^2-3xx+2]， 
>> LT=mulDiscNewton(z,([0 0])，[0.1 0.1]) 
xz= 1.0000 


mm 三 17 
>> LT=mulNewtonStev(z,([0 0]),，[0.1 0.11]) 
工 一 工 
工 
三 597 
此 题 中 ， 离 散 牛 顿 法 比 牛顿 -斯 蒂 芬 森 法 快 了 许多 。 在 实际 计算 时 ，/ 不 宜 太 小 ， 取 
0.01 至 0.1 之 间 即 可 。 


牛顿 -松弛 型 迭代 法 


在 牛顿 法 中 ， 每 一 步 先 代 都 要 解 如 下 形式 的 一 个 线性 方程 组 : 
已 (ztJAxt = 一 严 (xx) 
其 中 Ax 太 结 为 解 的 校正 量 ， 如 果 采 用 解 线性 方程 组 的 各 种 数值 方法 求解 上 式 ， 结 合 各 
种 解 线性 方程 组 的 方法 可 得 到 牛顿 -松弛 型 迭代 法 。 


10.4.1 “牛顿 - 雅 可 比 返 代 法 


牛顿 - 雅 可 比 和 迭代 法 的 迭代 步骤 如 下 ; 
4 = 下 (ze) 
4 =D-C 
已 =D-IC 
和 = 一 (再 全 二 五 妆 十 DD-LF(xt 
其 中 F(x“) 为 非 线性 方程 组 的 雅 可 比 矩 阵 ， 用 离散 法 求 得 ，D 为 对 角 和 矩阵 。 


在 MAILAB 中 编程 实现 的 非 线性 方程 组 的 牛顿 - 雅 可比 和 迭代 法 的 函数 为 ，mulMix 
功能 : 用 牛顿 - 雅 可 比 和 迭代 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 ， [cm]= mulMix Ex0,h,leps) 
其 中 ，F:， 非 线性 方程 组 ; | 

x0: 初始 解 ; 





h， 数 值 微分 增 量 步 大 小 ， 
1， 雅 可 比 迁 代 参量 ， 





和 和 - . 本 





274 和 知 和 逢 





eps: 解 的 精度 ; 
工 : 求 得 的 一 组 解 ， 
n， 人 迭代 步 数 。 


牛顿 - 雅 可 比 迭 代 法 的 MATLAB 代码 如 下 所 示 :; 


function [xm]=mnulMix(E,x0,h, ,eps) 
g 非 线性 方程 组 : 于 
g 初 始 解 : x0 
g% 数 值 微分 增 量 步 大 小 : h 
#s1: 雅 可 比 欠 代 参量 
g 解 的 精度 ， eps 
g 求 得 的 一 组 解 : 工 
g% 迭 代步 数 , nm 
If nargin= 一 4 
epSs=1 .0e-4; 
end 
mn = length(x0); 
可 = Zeros (nn) : 
FEX = Subs (FE,ftindsym(E) ，x0O) 
for =1:DTm 





XL1L = X0; 
X1(I) = xl(Iz)+h(I); 
J(:，i) = (sups(EF,findqsym(EF) ，x1) 一 RFX) Ah) ， 
end 
D = Qiag(aiag(J) ) ; 
C=D 一 可 ; 
inD = inv(D) ， 
H = inDxC; 
Hm = eye(nyn) :; 
for =1 :1 一 
Hm = Hm + Power(H,I) 
endQq 


Qr = HmxinDxFX: 
= 上 transpose (Xx0)-Qr; 
In=1 
toO1L=1; 
whnile tolL>epSs 
XO=T; 
Ex = Subs(F, findasym(E)，x0O) ， 
可 = Zeros (了 ) ; 
for =13:m 
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| 


XL = XO0; 

xlL(i) = xl(I)+h(I)， 

J(:,i) = (Subs(EF,findqsym(PE),，xL)-Fx)ynti)， 
end 


D=Qiagl(qiag(J)): 


CC=D 一 J; 
inD = inv(D) ; 
H = inDxC; 
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Hm = eyel(tn,n)， 

for 1=1 :1 一 
Hm = Hm + Power (H,I) ， 

enaQ 

Qr = HmxiInDxrEX:; 

r = X0-dGr; g 核 心 迭 代 公 式 

上 ol=norm (YXx0) ; 

Im=m 二 1 

if (m>100000) g 迭 代步 数控 制 
qisp(' 人 迭代 步 数 太 多 ， 可 能 不 收敛 ! ') ; 
FetuzDny; 

enaQ 

enQ 


牛顿 - 雅 可 比 和 迭代 法 解 非 线性 方程 组 应 用 实例 。 用 牛顿 - 雅 可 比 和 迭代 法 求 下 
面 方程 组 的 一 组 解 。 


x+z-2=0 
因 -3xr+2=0 
初始 迭代 值 取 (2,5)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> SYmS X Y; 
>> 2 三 [X^ 人 2+XxYy-27Y^ 人 2-3*xXx+2]; 
>> [rr,m]=mulMix(z,，([2 5]),，([0.1 0.1])，2) 
工 一 1.0000 


1.0000 
mn 三 12 


迭代 12 步 ， 牛 顿 - 雅 可 比 迭 代 法 得 到 了 一 组 解 (1.D)。 
10.4.2 ”牛顿 -SOR 欠 代 法 


牛顿 -SOR 迭代 法 的 迭代 步骤 如 下 : 
A 妈 = 下 (kt) 
4k = 万 - 工 - 忆 7 
已 =(D-wDTIG-wD+wO] 
2 一 让 一 W( 百 于 十 五 王 二 二 DOD 一 mwDDTIEFOct) 
其 中 忆 (地 ) 为 非 线性 方程 组 的 雅 可 比 矩 阵 ， 用 离散 法 求 得 ; 刀 为 对 角 和 矩阵 , 二 和 忆 分 
别 为 上 三 角 阵 和 下 三 角 阵 ，w 为 迭代 参数 。 


| 在 MATLAB 中 编程 实现 的 牛顿 -SOR 迭代 法 的 函数 为 ， mulNewtonSOR 
功能 : 用 牛顿 -SOR 迭代 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [pm]=mulNewtonSOR(Fx0,wheps) 
| 其 中 ，F， 方程 组 ; 
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x0:， 方程 组 的 初始 解 ; 
w: SOR 迭代 因子 ; 
h:， 数值 微分 参数 ; 
eps:， 根 的 精度 ; 

工 : 求 得 的 一 个 解 ， 

m: 欠 代 步 数 。 


牛顿 -SOR 迭代 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [rm]l=mulNewtonSOR(E,x0,whyeps) 
g% 方 程 组 : 上 
g 方 程 组 的 初始 解 ， x0 
gs SOR 迭代 因子 : w 
g 数 值 微 分 参数 : h 
g% 根 的 精度 : eps 
g 求 得 的 一 组 解 : root 
sg 迭代 步 数 : m 
function LIr,m]l=mulNewLonSOR(F,x0,wnh,1l,eps) 
it nargin= 一 5 
epS=1 .0e 一 4: 








enaQ 
mn = length(x0) ; 
可 = Zeros (mn,n) : 


Fx = Subps (了 ,finqdsym(E)，x0) ， 
for =1 :DTn 


X1 = X0:; 
xl(i) = Xl(i)+h(i); 
J(:，i) = (sups(PF,findsym(EF) ,xlL)-FXx) An(IL) 
endQ 
D=aqiagl(aiag(J) ):; 
LDL = -cril(J-D) ， 
U = -riu(J-D) ; 


inD = Inv(D-wxTDL) ; 
H = inDx(D 一 wxD+wxD) 7 
Hm = eye(nn) ; 
for 1=1 :1 一 1 
Hm = Hm 十 Power(H,I) ，; 
endQ 
Qr = WxHmxImnDxEX7 
Z = 上 ranspbposel(x0) 一 Gy， 
In 一 1 ; 
二 O1=1: 
while tol>eps 
XO=T; 
FEX = Subs(EF,finaqasym(E)，x0O) ; 
可 三 Zeros(ny,Dn) ， 
王 oY = 工 :DTmn 
XTL = X0) 
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X1(i) = xl(i)+n(ir)， 
J(:,i) = (subs(EF,Efinadsym(E) ,xl1)-FEx)Vnh(i); 


D = qiag(aqiag(J) ) ; 

LDL = -tril(J-D) : 

U = -Ezriul(J-D) : 

inD = inv(D-wxD) : 

H= inDxt(D 一 wxrD+WwxLT) 7 7 
Hm = eye(tmnyn); 

for 1=1 :1 一 





Hm = Hm + Power(H,I) ， 

enQ 

Qr = WwWxHmxinDxEFXx: 

z = Xx0-dGr; g 核 心 欠 代 公式 

tolL=morrm ( 丰 一 XO0) 

Im+1， 

if (m>100000) g 和 迭代 步 数 控制 
Qisp(' 和 迭代 步 数 太 多 ， 可 能 不 收敛 ! ') ; 
return; 

emaQ 

emndQ 


牛顿 -SOR 和 迭代 法 解 非 线性 方程 组 应 用 实例 。 用 牛顿 -SOR 迭代 法 求 下 面 
方程 组 的 一 组 解 。 
x+Xy-2=0 
攻 一 3x+2=0 
初始 迭代 值 取 (2,5)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Syms X Y; 


>> Z = [X^ 2+Xxy-27Y^ 人 2 一 3*X+2] : 
>> [rr, 节 ]=mulNewtonSoR(z，[2 5],1.6, [0.1 0.1]，2) 
= 1 .0000 
1.0000 
m 三 49 
>> [rm]=mulINewtonSoR(z，[2 5],1.7，10.1 0.1]，2) 
上 = 0.9998 
1.0003 
mm 三 29 
>> [rm]l]=mulLlNewtonSoOR(z,，f2 5],1.8,[0.1 0.1]，2) 
上 = 0.9997 
1 .0004 
m = 40 


在 本 例 中 ， 如 果 w 太 小 ， 就 会 发 现 收敛 速度 非常 慢 ， 小 于 1.5 就 会 出 现 这 种 现象 。 
此 当 发 现 收敛 速度 很 慢 时 ， 采 取 的 对 策 是 将 疡 取得 非常 接近 2， 或 者 非常 接近 1. 
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牛顿 下 山 法 的 迭代 公式 为 : 
MtL 一 2 -ofPeo) 严 (xz) 
Oo 的 取 值 范围 为 0< 四 过 1 ， 为 了 保证 收敛 ， 还 要 求 ow 的 取 值 使 得 ; 
|eee) < |zee 
可 以 用 逐次 减 半 法 来 确定 w 。 为 了 减少 计算 量 ， 还 可 以 用 差 商 来 代替 偏 导 数 。 


在 MATLAB 中 编程 实现 的 非 线性 方程 组 的 牛顿 下 山 法 的 函数 为 ， mulDNewton 
功能 : 用 牛顿 下 山 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [rm]l= mulDNewton (Ex0,eps) 
其 中 ，F:， 非 线性 方程 组 
x0:， 初始 解 ; 
eps， 解 的 精度 ; 
r: 求 得 的 一 组 解 ; 
nDn: 迭代 步 数 。 


牛顿 下 山 法 的 MATLAB 代码 如 下 所 示 : 


tunction [rm]l=mulDNewton(EF,x0,eps) 
g 非 线性 方程 组 ; F 

gs 初始 解 : x0 

gs 解 的 精度 :eps 

g 求 得 的 一 组 解 : 上 

% 迭 代步 数 ， mn 


Lift nargin= 一 2 














eps=1.0e 一 4; 


X0 三 trarnspose (xX0) ; 

qF = Jacobian(E) : 

mn 一 工 ; 

tol=1; 

while LolL>eps 
ttol=1， 
w 一 1; 
Ex 二 Subs(P,findsym(F),x0) : 
QEX 三 Subs (GF ,findsym(GF) ,x0) ， 
FJ=mnorm(EX) 


while ttol>=0 g% 下 面 的 循环 是 选取 下 山 因子 w 的 过 程 
TY 一 X0 一 wxinv(GdFX) *Fx; g% 核 心 的 迭代 公式 


FL 三 Subps (了 ,findsym(P) ，z) 





tol=nozm(Fr) 一 FT， 
ww72; 
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end 
上 ol1=morm (一 X0) : 


mm+l; 
XO=T; 
if (n>100000) g% 夫 代步 数控 制 
disp ( ' 迭 代步 数 太 多 ， 可 能 不 收敛 ! ') ; 
TeturDDn 7 
end 
enQ 
必 古 ls 光 牛顿 下 山 法 解 非 线性 方程 组 应 用 实例 。 用 牛顿 下 山 法 求 下 面 方程 组 的 一 组 
解 。 
0.9sin yl 二 0.1cos(xx2) 一 2=0 
0.9cos 辐 -0.1sinxz -xx =0 
初始 迭代 值 取 (0,0)。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> Syms X Y; 


>> 2Z= [0.5*Sin(x)+0.1x*cos (Xx*y)-xX70.5*cos(Xx)-0.1x*sin(yv)-y]: 
>> [rm]=mulDNewton(z， [0 0]) 
= 0.1979 
0.4470 
mm= 4 


由 计算 结果 可 知 ， 初 始 迭 代 值 取 (0.0) 时 ， 用 4 步 挝 代 得 到 了 方程 组 的 一 组 解 
(0.1979,0.4470)， 牛 顿 下 山 法 也 是 一 种 快速 且 有 效 的 求解 非 线性 方程 组 的 方法 。 


割 线 法 


设 怒 为 方程 组 的 第 关 次 欠 代 求 出 的 解 ， 取 xz20=z， 令 

妃 ， = (xl 一 XXX 一 天 下 一 2X) 

0 
的 公式 如 下 : 


， 则 方程 组 的 一 般 割 线 ; 


Xml 一 X7 一 媚 wFIEFCX”) 
如 果 取 瓦 np =diag( 人 (2 一 丰 )08 一 更 )0t0 一 克 )， 则 得 到 两 点 割 线 法 公式 为 : 
Xot1 一 X7 一 4-IFOX) 
其 中 
1 


xf 1 一 称 


4=( [FGX 7 + (一 过 )eD 一 F(x)] 





工 加 一 了 
一 [FEOx” +(Cx 一 好 )eo) 一 FIxm)] 
Mr 一 Jr . 


两 点 割 线 法 需要 给 定 两 个 初始 解 的 近似 值 。 
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若 取 
检 凶 有 
六 - 民 / 
0 有 


其 中 丰 =x 一 好 (Cj=12…,m， 则 得 到 两 点 割 线 法 的 另 一 种 形式 ， 
Pa+1 一 X 一 4TLFCxo) 
其 中 
4= CRIEG + 人 peD -Fe 
1 


天 天 一 1 
IFCm + 和 Jpe)-FCm+ 生 pre]) 
于 i=] 


| 


本 去 本 所 站 广 击 亲 本 站 人 


功能 : 用 两 点 割 线 法 的 第 一 种 形式 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [rm]=mulGXF1(Fx0,xl,eps) 
其 中 ，F:， 非 线性 方程 组 ; 


x0， 初始 解 ， 
X1 ， 初始 解 ; 


eps : 解 的 精度 ; 
r: 求 得 的 一 组 解 ; 
也 : 迁 代 纱 数 。 





的 MATLAB 代码 如 下 所 示 ， 


function [rm]=mulGXPF1(P,Xx0,xl,eps) 
g 非 线性 方程 组 : F 
gs 初始 解 : x0 
g% 初 始 解 芭 工 
# 解 的 精度 : epPS 
g% 求 得 的 一 组 解 : 
g% 友 代步 数 ，m 
format 1ong 
it nargin=-3 
epS=]1 .0e-4:; 
ena 
x0 = 上 ransposel(x0) : 
XTL 三 ranspose (X1L) : 
na = length(x0O); 
fx = Subs(PE,finasym(E)，x0) ， 
fx]l = Subs(E,Efindsym(P) ，x1L) ; 
了 二 X0 一 X1; 
JJ = zeros (ny,Dn) : 
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XtL(i) = 三 X0O(I)， 
J(:vi) = (subs(EF,finaqasym(E)，,xt)-Ext)XnhtI)， 


Im= 工 ; 

ol=1; 

while tol>eps 
X0 = X1; 
XL1L = 工 ; 


fx = Subs (FE,ftindqsym(E) ，x0) ; 
fx1 = Subs(F,findsvm( 已 ) ,xx1) 
Ph = 三 X0O 一 X1L; 
J = Zeros (nn) ; 
for 1=13:nm 

XL 一 X]) 

Xt(iI) = XxO(); 

J(:,i) = (sups(EFE,findqsvym( 了 ER) ,Xt) 一 fxl1)vXh(i); 
endQ 
=X]1 一 InV( 可 ) * 工 x1， 
tol=morm ( 工 一 X1) 


Im=m+1; 
if (m>100000 ) g% 迭 代步 数控 制 
disp(' 和 迭代 步 数 太 多 ， 可 能 不 收敛 ! ') ; 
eturzDny; 
emnd 
enmdQ 


format Short :; 





| 在 MATLAB 中 编程 实现 的 非 线性 方程 组 的 两 点 割 线 法 的 函数 为 ， mulGXF2 
| 功能 : 用 两 点 刘 线 法 的 第 二 种 形式 求 非 线性 方程 组 的 一 组 角 
调用 格式 : [cm]=mulGXF2(Fx0,xl,eps) 
其 中 ，F， 非 线性 方程 组 ; 
x0， 初 始 解 ， 

xl， 初始 解 ; 

eps: 解 的 精度 ; | 
| Tr: 求 得 的 一 组 解 ; 
as ] 


两 点 割 线 法 第 二 种 形式 的 MATLAB 代码 如 下 所 示 : 


function [rr,mm]=mulLGXEF2 (PP,x0,xl,eps) 
g 非 线性 方程 组 : F 

g 初 始 解 : x0 

g 初 始 解 : x1 

g% 解 的 精度 : eps 

g 求 得 的 一 组 解 : 
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gs 人 迭代 步 数 ，m 


format Long:， 
if nargin 一 3 
epPSs=1 .0e-4:， 
全 了 组 
X0 = transbpose(x0) : 
transpose(x1lL) : 
Dn = Jength(x0): 
fx = Subps(F,finasym(EF) ,x0) : 
fx1 = Subs (FF,findsym(F) ,xl1) ; 
玉 = X0O 一 xl， 
可 = Zeros (nn) ; 


愉 
忆 
册 


XtL 一 XL; 
xt(1I) = x0(1); 
J(:，, 1L) = (Subs (FE,finqsym(F) ,xt)-~sSubs(F,findsym(F),x1))/h(1) 
Eor 工 =2 :DT 
XtL 三 X1; 
XL(1:i) = x0(1:1) ， 


Xt_m 一 X1); 

xXt_m(1:i-1) = xX0(1:1-1); 

J(:，I) = (Subs (F,findqsym(F) ,xt)-subs(F,findsym(F) ,xt_m)) ntiy) 
emaQ 


地 


L=X1 一 InV( 可 ) * 革 X1， 


Im= 工 ; 

Lol=1， 

while tol>eps 
X0 = XL; 
X1 = 工 ; 


fx = Subs (FF,findqsym(FE) ,x0) ; 
fxl = Subs (FF,findqsvm(EF) ,xl1) ; 
Ph = Xx0 一 X1; 

可 = 三 Zeros (nn) ; 


XtL = X1; 
Xt(1I) = Xx0(1); 
J(:，1L) = (Subs (F,findqsym(F) ,xt)~subs(F,findsym(F) ,xl1))/h(1L)， 
for 1i=2 :DTmn 
XtL 三 X1; 
XtL(1:1I) = x0(1:1)， 


Xt_m = 一 X1);。 

Xt_m(1:I-1) = x0(1:1-1); 

J(:， II) = (Subs (F, finQsym(F) ,xt)-subs(F,findsym(F),xt_m))/htiy)， 
eDndQ 
一 X1 一 inv( 可 ) 大 Ex1， 
tol=norrm(r-x1l) 


Im=m+1: 
if (m>100000) g% 迭 代步 数控 制 
qisp(' 介 代 步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
eturTnI， 
enaQ 
emdQ 


format Short ; 
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本 [ 攻 和 。 中 线 法 解 非 线性 方程 组 应 用 实例 。 用 两 点 割 线 法 求 下 面 方程 组 的 一 组 解 。 
和 十 多 --9=0 
2x 一 > 一 3=0 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Syms X Y; 
>> Z = fx^ 人 2+Y^ 人 2-5712*X-Y 一 3] ; 
>> [rm]l = mulGXF1(z，[0 1]，f4 3]) 


rz 上 = 2.0000 
1.0000 
mm 一 7 
>> [rm]l = mulGXF2(z,， [0 1]，[4 3]) 
rr= 2.0000 
1.0000 
mm 三 7 
>> [rm]l = mulGXF2(z，[-3 1],，[4 3]) 
上 = 0.4000 
-2.2000 
m = 


通过 不 同 的 初始 解 ， 用 两 点 割 线 法 求 出 了 方程 组 的 两 组 解 ，(2,0) 和 (0.4,-2.2)， 


拟 牛 顿 法 


拟 牛 顿 法 是 为 了 减少 计算 导数 而 带 来 的 计算 量 的 一 种 迭代 法 ， 它 的 迭代 过 程 如 下 ; 
MK+1 一 一 ARLFOL )， 
广 一 VE+I 一 不， 
= 下 (xer 一 天 (xD); 

( 革 一 全 六 (7 


和 


4k+1 二 4 十 


在 MATLAB 请 各 详 现 的 产 赴 室 法 的 函数 为 ，mulVNewton 
功能 : 用 拟 牛 顿 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [rml=mulVNewton(Rx0,A,eps) 
其 中 ，F:， 方程 组 ; 

x0， 方 程 组 的 初始 解 

A: 初始 A 和 矩阵; 

eps:， 解 的 精度 ; 

: 求 得 的 一 组 解 ; 
m ; _ 适 代 步 数 。 


拟 咎 顿 法 法 的 MATLAB 代码 如 下 所 示 : 
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function [rm]=mnmulVNewton(FE,x0,A,eps) 
g 方 程 组 : F 
sg 方程 组 的 初始 解 : x0 
g 初始 矩阵 ， 和 
g 解 的 精度 : eps 
g 求 得 的 一 组 解 ， 工 
gs 迭代 步 数 : m 
If nargin 一 2 
&A=evye (length(x0) ) ; g%A 取 为 单位 阵 
人 Se 
If nargin= 一 3 


eps=1 .0e-4: 

endQ 
endQ 
X0 = transpose(x0) : 
FX = Subs (FE，ftinaqasym(E) ,x0) ; 
=X0O-EX/RA; 
m=1; 
to1L=1: 


while 革 olL>eps 
X0= 工 ; 
EX = Subs (FE，findqsym(E) ，x0) ， 
=X0 一 PRX/A; 
Y=I-XO0 
FT = Subs (FF，finaqsym(E) ,L) ; 
Z 二 卫 盖 FX ， 
AL=A+(Z-yxA)' xy/norm(y): g% 调 整 A 
A=A1: 
Im=m+1 : 
if(n>100000) gs 迭代 步 数控 制 
Gisp(' 迭 代步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
Freturn: 
endQ 
toJ=mnorm ( 上 一 XO0) ， 
endq 


拟 牛顿 法 解 非 线性 方程 组 应 用 实例 。 用 拟 牛 顿 法 求 下 面 方程 组 的 一 组 解 。 
0.SSin xi 二 0.1cos(xixz) 一 为 =0 
0.9cos 辐 一 0.1sin xy 一 xX2 =0 

其 初始 迭代 值 取 (0.5.0.5)。 

解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SymsSs X Y)， 


>> Z 三 [0.5*sin(x)+0.1*cos(Xxxy)-xi0.5xcos(x)-0.1xsinfly)-y]) 
>> [rm]l=mulVNewton([0.5,0.5]) 
输出 计算 结果 为 : 
= 0.1979 
0.4470 
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nn= 16 
由 计算 结果 可 知 ， 初 始 迭 代 值 取 (0.5,0.3) 时 ， 用 16 步 迭 代 得 到 了 方程 组 的 一 组 解 
(0.1980,0.4470)o 


拟 牛 顿 法 中 重要 的 是 要 选 好 ho ， 否 则 ， 和 迭代 的 效果 会 很 差 。 


对 称 秩 1 算法 


对 称 秩 1 算法 本 质 上 也 是 一 种 拟 牛顿 法 ,其 迭代 公式 和 拟 牛 顿 法 的 迭代 公式 十 分 相似 


Xml 二 和 一 4TLFCxc"); 





7 二 MPtI 一 入， 


2 一 忆 (OxerD) 严 (x 
(z” _ yz)(Z2 _ 7 
在 MATLAB 中 编程 实现 的 对 称 秩 1 算法 的 函数 为 : mulRankl 
功能 : 用 对 称 秩 1 算法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [cn]=mulRankl(Ex0,A,eps) 
其 中 ，F:， 方程 组 ，; 
x0:， 方程 组 的 初始 解 ; 
A: 初始 A 和 拢 阵 ; 
eps: 根 的 精度 
r: 求 得 的 一 组 解 ; 
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function [r,Dnj=mulRanKkKL(E,x0,A,eps) 
g 方 程 组 : 荆 
g 方 程 组 的 初始 解 : x0 
g 初 始 A 和 珑 阵 : RA 
g% 根 的 精度 :， eps 
g 求 得 的 一 组 解 : 工 
gs 和 迭 代步 数 : mn 
f mnargin 一 2 
1 = length(x0) ; 
RA=eye(1):; %&A 取 为 单位 阵 
epSs=1.0e-4: 
else 
IE nargin= 一 3 
epSs=1 .0e-4:; 
enQ 
enQ 
fxX = Subs (FE,finasym(E) ，x0O) ， 
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T=transpose(x0) 一 InV(A)xfX; 
Dm=1: 
toOlL=1; 
while tol>eps 
X0O=T ; 
fx = Subs(E,findsym(E) ,xxO) ; 
=X0 一 ImV (有 ) x 于 X; 
Y=T-X0 
fr = Subs(F,findsym(E) ,rr) 
Z 二 开 Y 一 丰 X; 





有 1=A+ fr *xtranspose(fr)y/ (transpose(fr)xy) g% 调 整 A 
A=AL: 
TD 一 mn 十 1 
if (n>100000) g% 和 途 代 步 数 控制 
qisp(' 和 迭代 步 数 太 多 ， 可 能 不 收效 ! ') ; 
Cetutn 
enGQ 
tol=nmorm(L 一 x0) ; 
eDnaq 


对 称 秩 1 法 解 非 线性 方程 组 应 用 实例 。 用 对 称 秩 1 算法 求 下 面 方程 组 的 一 


组 解 。 


x+Xy--2=0 
上 
初始 迭代 值 取 (2.5)。 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> SYymS X Y; 
>> 2Z 三 [xX^2+TXxy 一 27Y^ 人 2 一 3xX+2] ， 
>> [Di=mulRank1t(z， [2 5]) 


= 1.0000 
1 .0000 
D = 193 


用 对 称 秩 1 算法 迭代 到 193 步 才 求 得 一 组 解 (1,1)。 


_D-F-P 算法 


D-F-P 算法 是 一 种 秩 2 算法 ， 它 的 特点 是 迭代 公式 中 不 需要 求 和 矩阵 的 关 ， 其 欠 代 公式 


MX 一 和 一 太 严 (xD); 

名 一 Xz+1l 一 X 

Z 二 到 CCX2HD) 一 已 (x2); 
严 天王 严 _ 严 \ 了 

万 1 = 有 十 y 人 ) 儿 z & ) 名 

(7 ) 2 (z ) 已 < 
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功能 : 用 D-F-P 算法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [rn]= mulDFP (Fx0,.B,eps) 

其 中 ，F， 方 程 组 ; 

x0:， 方程 组 的 初始 解 ; 

B: 初始 B 和 矩阵 ; 

eps: 解 的 精度 ; 

r: 求 得 的 一 组 解 ; 

n:， 迭代 步 数 。 
D-F-P 算法 的 MATLAB 程序 代码 如 下 所 示 ; 


function [rnl= mulDEFP(E,xXx0,B,eps) 
g 方 程 组 : F 
g% 方 程 组 的 初始 解 : x0 
g% 初 始 B 和 矩阵 : B 
g% 根 的 精度 ，eps 
g% 求 得 的 一 组 解 : 上 
g 和 人 迭代 步 数 ，m 
ft nargin 一 2 
1 = Length(x0) : 
B=eye (1) ; sA 取 为 单位 阵 
eps=1 .0e 一 4:; 
ese 
If Pargin= 一 3 
epSs=1 .0e 一 4: 
enmQ 
enG 
fx ' = Subs (了 ,finGQsym(E) ，x0O) 
TY=t 上 transpose (X0 ) 一 B* 工 X， 
mn=1， 
七 D1= 工 ; 
while tol>eps 
X0O= 工 ; 
fxX = Subs(E,findsym(E) ，Xx0) ， 
I 一 X0O 一 B* 工 文 ， 
Y=L-XO0 ; 
fr = Subs(E,finaqasym(E) ,z) ， 
Z 三 王 z 一 在 X; 
了 1=B+ yxYy'/(YyIx*Z) 一 BxZxZIxB/A(ZIxBxZz) ， 
也 =B1 ; 
D=m 二 1 





g 调 整 A 


if(n>z100000) g% 迭 代步 数控 制 


aisp( ' 和 迭代 步 数 太 多 ， 可 能 不 收敛 ! ') ; 
etUurTn 
enaQ 
tol=notrm (L 一 X0) : 
enQ 
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有 DID-F-P 法 解 非 线性 方程 组 应 用 实例 。 用 D-F-P 算法 求 下 面 方程 组 的 一 组 
解 。 


x+ 冰 -2=0 
上 
初始 迭代 值 取 (0,.5)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> Syms X yY; 


>> Z = [X^ 人 2+Xxy 一 27Y^ 人 2-3xx+2] ; 
，>> fr,D=mulDFP(z,， [0 5]) 


= 1.0000 
1.0000 
mL = 53 


与 对 称 秩 1 算法 相 比 ，D-F-P 算法 快 了 许多 。 


B-F-S 算法 


B-F-S 算法 也 是 一 种 秩 2 算法 ， 它 的 特点 是 迭代 公式 中 也 不 需要 求 矩 阵 的 首 ， 其 迭代 
公式 如 下 : 





MP+1 一 其 于 一 瑟 ,PCx7”); 
二 Pd1 一 X7， 


2 = 下 (x+1) 一 严 (x7)， 


及 -有 外 普 0 一 有) 一 六 (z?)7 局 

| 在 MATLAB 中 编程 实现 的 B-F.S 算法 的 函数 为 muJBEFS 
功能 : 用 B-F-S 算法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : [cn]= mulBFS (Ex0,A,eps) 
其 中 ，F:， 方程 组 ; 

x0:， 方程 组 的 初始 解 ; 

B: 初始 B 矩阵; 

eps:， 解 的 精度 
r: 求 得 的 一 组 解 ; 

n: 和 迭代 步 数 。 


B-F-S 算法 的 MATLAB 程序 代码 如 下 所 示 : 





tunction [rn]= mulBFS (F,x0,B,eps) 
多 方程 组 :下 


覃 二 二 本 289 





ATLA 


g 方 程 组 的 初始 解 : x0 

g 初 始 &A 德 阵 ，B 

g 根 的 精度 : eps 

g 求 得 的 一 个 解 : 上 

g% 和 从 代 步 数 : mn 

IE nargin==2 
1 = lengtnh(x0):; . 
B=eye ( 寺 ) ; gsA 取 为 单位 阵 
epSs=1 .0e 一 4: 
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elSe 
f nargin= 一 3 
epSs=1 .0e 一 4: 
enaQ 
enaQ 
fx = Subs(F,finadsym(EF) ，x0) 
L=tLranspose (X0) 一 Bx*fx， 
Dm=1: 
toO1=1; 
while tol>eps 
X0O=I; 
fx = Subs(E,findasym(E) ，x0) ; 
=X0 一 BrxTX:; 





Y=T 一 XO0 

ft = SubSs (PEF,finadasym (也 ) ，) 

乙 二 下 Y 一 芷 广 ， 

QU 一 TI 二 ZI*xBxZ/A(YI*Z): 

BIT= B+ (UxYxyY "一 BxZxY 'YxZ'*B) VCYx*Z); gg 调整 

B=B1 

D=n+1 : 

if (n>100000) g 和 迭代 步 数控 制 
qisp( ' 人 返 代 步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
eturin， 

emnd 


tol=norm ( 一 X0O) ; 


end 

B-F-S 法 解 非 线性 方程 组 应 用 实例 。 用 B-F-S 算 法 求 下 面 方程 组 的 一 组 解 。 
x+-2=0 
7 -3x+2=0 


初始 迭代 值 取 (-3,2)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 
>> SYmS X YY; 


>> 2Z = [x^2+Xxy-27Y^2-3xX+2]; 
>> [rn]j=mulBFS(z，[-3 2]) 


上 = 了 工 .0000 
工 .0000 
D = 309 
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用 B-F-S 算法 欠 代 309 步 ， 得 到 了 一 组 解 (1,1)。 


数值 延 拓 法 是 延 拓 法 的 一 种 ， 它 的 一 般 迭 代 公 式 如 下 : 


EEC 
= 0 一 1 


10 二 X0 KiHLO 一 寻 几 ; 

K+L 大 1 大 Il2N-1 
大 二 萎 一 [ 忌 .(x ,])] 百 (x ,]) 天 = 和 N NT+L.…. 
AN YN.0 





当 取 mj =15 = 六 时 和 时 到 如 下 的 具体 表达 
Mkt+l 一 Xi -(Fec) 网 (=01…,N-D 
六 ， 1 


xi = 共 -(FG) PFC， 人 = NON+L) 


在 MATLAB 中 编程 实现 的 数值 延 拓 法 的 函数 为 mulNumYT 
能 : 用 数值 延 拓 法 求 非 线性 方程 组 的 一 组 解 

沿用 [rm]=mulNumYTCORx0,h,N,eps) 

其 中 ，F， 广 程 组 ， 

x0， 方 程 组 的 初始 解 ， 

h:， 数值 微分 增 量 步 ， 

N:， 适 代 公式 中 的 N; 

eps:， 解 的 精度 


r， 求 得 的 一 组 解 ， 
| mm 选 代 步 数 。 


oo 


数值 延 拓 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [Fr,pm]=mulNumYT(FE,Xx0,Ph,N,eps) 
g 方 程 组 : F 
8 方程 组 的 初始 解 ， x0 
g 数 值 微分 增 量 步 : h 
g 和 迭代 公式 中 的 N， N 
g 解 的 精度 : epPS 
g 求 得 的 一 组 解 : 五 
gs 人 迭代 步 数 ， In 
format 1ong; 
If Dargin 一 4 
ebpSs=1 .0e 一 8; 
end 
Dn = length(x0) ， 
fx0 = Subs(F,finaqsym(F) ,x0) ， 
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X0 = transpose(X0) : 

可 = Zeros (myDn) ; 

for Kk=0:N-1 
fx = Subs (finasym(E) ，x0) ， 
for 1=1:Dm 


X]l = X0; 
xl1(1I) = xl(iL)+nh(i); 
J(:viI) = (subs(E,finasym(E)，xL) 一 Ex)/nh(I) 
emnqQ 
inJ = InV(J): 
IT=X0 一 InJx (于 X 一 (1-KVN)*fEXO) 
X0O 三 工 ; 
enaQ 
Imm= 工 ; 
tol1=1; 


while Lol>eps 
XS= 工 ; 
fx = Subs(EFE,findsym(E)，xSs) ， 
可 = Zeros (ny,TD): 
for 1=1 :了 
XT 三 XS) 
X1L(Ii) = Xl(i)+n(I)， 
J(:,I) = (subs(EF,finasym(EF) ,xl1) 一 fx) ni) ， 
enaQ 
= 一 XS 一 ImnV( 可 ) * 开 X7 gg 核心 迭 代 公 式 
上 ol=nozrm (一 xSs) ; 
Im=m+1; 
if(m>100000) $% 和 迭代 步 数控 制 
disp(' 迭 代步 数 太 多 ， 可 能 不 收敛 ! ') ; 
Teturny; 
endQ 
enda 
format Short ， 


数值 延 拓 法 解 非 线性 方程 组 应 用 实例 。 用 数值 延 拓 法 求 下 面 方程 组 的 一 
组 解 。 


上 
2x7 一 y-3=0 
初始 迭代 值 取 (-3,5)。 

解 : 在 MATLAB 命令 窗口 中 输入 ; 

>> SYyms X Y; 


>> 2 三 [xX^2+TY^2-572xX-Yy-3] ， 
>> [rml = mulNumxT(z,，[-3 5],，[0.1 0.1],10) 


上 = 2.0000 
1.0000 
m = 9 


此 题 用 数值 延 拓 法 经 过 9 步 迭 代 就 得 到 一 组 解 (2,1])。 
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参数 微分 法 





参数 微分 法 是 把 非 线 性 方程 组 转化 为 一 个 如 下 形式 的 微分 方程 的 初 值 问题 ， 
| = 十 有 (cg 玉 忆 (xD 


X(0) = 2 
且 其 中 刀 (z) 是 xf 的 函数 ， 且 有 : 
殖 (x,0)= 古 (2) 
| 三 下 ( 刘 ) 


如 果 取 豆 (x 昌 =F(OO-(-DOFGo)re(0D ， 则 得 到 

xD=-[LE COTIF(Cc) 

xX(0) = X0 
然后 就 可 以 用 求解 微分 方程 初 值 问题 的 各 种 方法 求解 上 面 的 微分 方程 。 常 用 的 方法 有 

欧 拉 法 和 中 点 求 积 法 。 
。 欧 拉 法 
XI 一 区 -六 PenGo) 上 =0.12…,N-1 

se。 中 点 求 积 法 


1 0 工交 AAA -1 0 
大 二 X 一 一 已 (ZX 天 (X 
六 人) xD) 
六 一 太太 ， 大 =12…,N-1 
K+1 -1 0 
X =X 一 一 下 下 (X 
(7 ) xz ) 


在 MATLAB 中 编程 实现 的 欧 拉 法 的 函数 为 ， DiffParaml 
功能 ， 用 参数 微分 法 中 的 欧 拉 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : =DiffParaml(Fx0.h,N) 
其 中 ，F， 方程 组 ， 

x0:， 方程 组 的 初始 解 ; 

h， 数值 微分 增 量 步 ; 

N:， 迭代 步 数 ; 

r: 求 得 的 一 组 解 。 





欧 拉 法 的 MATLAB 程序 代码 如 下 所 示 : 


function r=DiffParaml (了 上 了 ,X0,n,N) 
g 非 线性 方程 组 : F 

g 初 始 解 : x0 

g 数 值 微分 增 量 步 大 小 : h 
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必 人 Li 


# 介 代 步 数 ，N 
# 求 得 的 一 组 解 


X0 = Lranspose(x0) : 
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Dn 三 TIengtn(Xxo0) : 
ht = 17VN; 
Ex0 = Subs(E,Efinasym(E)，XxO) ， 
for k=1:N 
EX = Subs(F,tindqasym(E) ，x0) ， 
可 三 Zeros(Tny mn) 
for 1=13:Dn 
XTL = X0: 
xl1(i) = X1(I)+h(i); 
J(:i) = (subs(F,findsym(F) ，x1)-Fx)/n(i); 
endQ 
inJ = inv(J) : 
工 = X0 一 hx*inJxEFx0: 
X0 = 工 ; 
endaQ 


在 MATLAB 中 编程 实现 的 中 点 积分 法 的 函数 为 ，DiffParam2 
功能 : 用 参数 微分 法 中 的 中 点 积分 法 求 非 线性 方程 组 的 一 组 解 
调用 格式 : cDiffParam2(Fx0,hN) 
其 中 ，F:， 方程 组 ; 
x0: 方程 组 的 初始 解 ; 
h: 数值 微分 增 量 步 ; 
N: 迭代 步 数 ; 
T: 求 得 的 一 组 解 。 


中 点 积分 法 的 MATLAB 程序 代码 如 下 所 示 : 


function r=DiffParam2 (下 ,x0,h,N) 
g% 非 线性 方程 组 : F 

g 初 始 解 ， x0 

g 数 值 微分 增 量 步 大 小 : h 

gs 迭代 步 数 : N 

g 求 得 的 一 组 解 , 工 





Xx0 = transpose(x0) ， 
nmn = length(x0) ， 
ht = 三 1/N; 


Fx0 = Subsl(F,findqasym(EF)，x0O) ， 
可 = Zeros (nmn ,TDn) ; 
for II=1 :DT 


xXt(I) = Xi)+h(I): 

J(:vI) = (Subs(F,findqsym(EF) ，Xt)-Fx0O)/Ph() 
endq 
InJ = inv(J) ; 
XTL = X0 一 htxinJxFxO0; 
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for K=1:N 
X2 = X1 十 (X1-x0)7/2， 
Fx2 = Subs(F,findqsym(EF) ，x2) ; 


可 三 Zeros (nn) ， 
for 工 =】 :了 mn 


XtL 三 X2; 
xt (II) = xt(i)+h(i); 
J(:， 1I) = (Sups (PP,Einadsym( 了 下) ，xt) 一 FEx2)7Anhti)， 
end 
in = inv(J) ，; 
工 三 XLL 一 hxinJxFxO; 
X0 三 X1; 
XLT 二 工 ; 
emnQ 
和 记 攻关 一 欧 拉 法 解 非 线性 方程 组 应 用 实例 。 用 欧 拉 法 求 下 面 方程 组 的 一 组 解 。 
x+y2-S=0 
2x7 一 y7-3=0 
初始 迭代 值 取 (0.0)。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 
>> SyYImSs X YY; 
>> z = [x^2+y^2-5:2xx-y-3] 
>> FT=DiffParaml(z, [0 0],，[0.1 0.1],500) 
rr = 1.9656 
0.9312 


用 欧 拉 法 得 到 了 一 组 近似 解 (1.9656,0.9312)， 此 题 的 步 长 为 0.1， 如 果 要 得 到 更 精确 的 
解 ， 可 以 采取 更 小 的 步 长 和 更 多 的 迭代 步 。 


中 点 积分 法 解 非 线性 方程 组 应 用 实例 。 用 中 点 积分 法 求 下 面 方程 组 的 一 
组 解 。 


x+ 办 -5$=0 
2x-y-3=0 

初始 迭代 值 取 (0,0)。 

解 : 在 MATLAB 命令 窗口 中 输入 ， 

>> SYymSsS X Y' 

>> 2Z = [X^ 人 2+Yy^ 人 2-5) 2xx-y-31]: 

>> =DiffParam2(z, [0 0],，[0.1 0.1],500) 

= 1.9662 

0.9265 

和 准确 解 (2.1) 相 比 ， 两 种 参数 微分 法 求 出 的 解 都 有 一 定 的 误差 ， 这 是 和 所 采用 的 求解 

初 值 问题 的 方法 有 关 的 。 
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10.13 速 下 降 法 


最 速 下 降 法 的 算法 如 下 : 
合 给 定 一 组 初始 解 x0 
图 令 w=》 户 (x0) ， 对 给 定 的 精度 e ， 如 果 % <e ， 则 认为 x0 为 方程 组 的 解 ， 否 则 
i| 
计算 
9E PFC + 用 驴 22) 一 EC ) 


Do 而 


Ox2> /2 


8 Fe 妈妈 十 ) 一 下 (Cx) 








Oxy 加 忆 
其 中 户 = px ,天 为 控制 收敛 的 参数 。 
全 计算 
(人 , 允 ) 
之 GD 
刀 1 -ia _(F 9 .. 9F yw 


ax ax ” Dx， 
然后 再 苇 @@， 直至 求 出 满足 精度 的 解 。 


在 MATLAB 中 编程 实现 的 最 速 下 降 法 的 函数 为 ; _mulFastDown 
功能: 用 最 速 下 降 法 求 非 线性 方程 组 的 一 组 角 
| 





调用 格式 : [rm]= mulFastDown (Ex0,h,eps) 
其 中 ，F: 方程 组 ; 
x0:， 方程 组 的 初始 解 ; 
h: 数值 微分 增 量 步 ; 
: 解 的 精度 ; 
未 得 的 一 组 解 ; 
m: 和 迭代 步 数 。 


最 速 下 降 法 的 MATLAB 程序 代码 如 下 所 示 ， 


| 
| 
| 
| 
| 
| 
| 
| 
上 
| 
| 


function [xm]=mnuLlFastDown(E,，x0,h,eps) 
g 方 程 组 : F 

sg 方程 组 的 初始 解 : x0 

g 数 值 微分 增 量 步 : Rh 
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g 解 的 精度 :eps 

# 求 得 的 一 组 解 : 

g% 迁 代步 数 :Im 

forrmat Tong; 

IfE nargin 一 3 
epSs=1 .0e-8:; 

End 

员 = Jength(x0); 

X0 = transpose(Xx0) : 

Im 一 1 ; 

七 DO1=1 

whlile 七 DJL>epS 
fx = Subs(E,， tinasym(E)，xoO) ; 
可 三 Zeros (P, 卫 ) ; 
for I=1 :mn 


X1 三 X0; 

X1(I) = XL(I)+h; 

J(:, ii) = (subs(E,Etinasym( 了 ) ，,XL) 一 EX) /Pi; 
enQ 


lamqa = fx/sum(dQiag(transpPose(J)*J) ) ; 
r=x0-Jxlamda;  g% 核 心 迭 代 公式 

fr = Subs (PE,findasym(E) ，I) ; 

tol=aqot (Er，Er) 


XQO 三 工 ; 
mm 二 1 : 
if (m>100000) s 迭 代步 数控 制 
disp( ' 迭 代步 数 太 多 ， 可 能 不 收敛 ! ) ; 
returny; 
endQ 
enQ 


format Short 
最 速 下 降 法 解 非 线性 方程 组 应 用 实例 。 用 最 速 下 降 法 求 下 面 方程 组 的 一 
组 解 。 
0.5sin +0.lcosCaz)- 厂 =0 
| 一 0.1sin xz 一 x2 =0 
初始 迭代 值 取 (0.0)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYS X Y); 


>> zZ= [0.5xsin(X)+0.1xcos(xx*y)-x);0.5xcos(X)-0.1*Sinty)-y]:; 
>> [rm] = mulFastDown(z,[-3 5],1.0e-6) 
= 0.1977 
0.4470 
mm= 48 


最 速 下 降 法 对 于 各 种 方程 组 的 平均 效率 是 很 不 错 的 ， 此 题 方程 组 比较 复杂 ， 经 过 48 
步 迭 代 最 速 下 降 法 得 到 了 一 组 解 (0.1977,0.4470)。 
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高 斯 牛顿 法 的 迭代 公式 如 下 : 
Xi 二 砂 [VFCOJTVFCTIVFCzGTFOC) 
其 中 VF(cc) 表示 严 (O 在 太 处 的 梯度 。 


| 在 MATLAB 中 编程 实现 的 高 斯 牛顿 法 的 函数 为 ，mulGSND 


功能 : 用 高 斯 牛顿 法 求 非 线 性 方程 组 的 一 组 解 
调用 格式 : [rm]= mulGSND (Ex0,h,eps) 

其 中 ，F:， 方程 组 

x0， 方程 组 的 初始 解 ， 

ph:， 数值 微分 增 量 步 ; 

eps: 解 的 精度 
T: 求 得 的 一 组 解 ; 
| m: 返 代步 数 。 


高 斯 牛顿 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [rm]l=mulGSNDI(EF,x0,h,eps) 
g 方 程 组 : F 

g 方 程 组 的 初始 解 : x0 

g 数 值 微分 增 量 步 : 

% 解 的 精度 : eps 

g 求 得 的 一 组 解 , 

g% 人 迭代 步 数 : m 


format 1Iong:; 


IE nargin 一 3 
epSs=1 .0e-8 : 
end 
nm = length(x0) ; 
X0 = transpose(x0) : 
mm， 
LO]1=1; 
while tol>eps 
fxX = Subs(EF,ftinasym(E) ，x0O) ， 
可 = Zeros (TDn) ; 
for 1=13:n 
XL 三 XO) 
X1(i) = X1(I)+hy; 
J(:yi) = (subs(EP,findsym(E) ,XL) 一 Ex) An; 
enaQ 
DF = inv(transpbpose (可 ) xJ) xcranspDose(J) ， 
=xX0-DF*fx;  g% 核 心 迭 代 公式 


二 oO]1=nmorm (一 XO) : 
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XO0O = 三 工 ; 
mm 
if (m>100000) g% 只 代 步 数控 制 
qisp(' 从 代 步 数 太 多 ， 可 能 不 收敛 ! ，) ; 
eturn 
end 
end 
format Short : 


高 斯 牛顿 法 解 非 线性 方程 组 应 用 实例 。 用 高 斯 牛顿 法 求 下 面 方程 组 的 一 
组 解 。 


x+y-6=0 
7-xz-2=0 
初始 迭代 值 取 (-1.3)。 
解 : 在 MAILAB 命令 窗口 中 输入 : 
>>SYIRS X Yi 
>> Z=[xX^2+y-6)yY^ 人 2-X-2 ] ， 
>> [rm]l = mulGSND(z，[ 一 1 3],1.0e-1) 


xz = 2.0000 
2.0000 
了 三 224 


用 高 斯 牛顿 法 经 过 224 步 迭 代 得 到 一 组 解 (2.0000,2.0000)。 


共 斩 梯 度 法 


共 斩 梯 度 法 的 迭代 公式 如 下 : 





Xkt1 一 革 十 入 有 

1 = xz ) 
> (2 
打 ox 


Phl 三 VPC)T+WEP 
可 VEFCzeJTVFOc+I) 
VFCOTVFCxe) 
其 中 ， Po =-VF(GrO) 。 


在 MATLAB 中 编程 实现 的 共 斩 梯度 法 的 函数 为 _mulConj 
功能 : 用 共 斩 梯 度 法 求 非 线 性 方程 组 的 一 组 解 
调用 格式 : [rml= mulConj (Ex0,h,eps) 
其 中 ，R， 方 程 组 ， 
x0:， 方程 组 的 初始 解 ， 


撤 通 二 可 299 





MATLABB 语言 常用 算法 程序 集 


| hn 数值 微分 增 量 步 ， 





eps: 解 的 精度 
T， 求 得 的 一 组 解 ; 
[| mm: 从 代 步 数 。 


funct1ion 

g% 方 程 组 : F 

g 方 程 组 的 初始 解 : x0 

gs 数 值 微 分 增 量 步 : h 

g 解 的 精度 ， eps 

g% 求 得 的 一 组 解 : 王 

g% 返 代步 数 : m 

forrmat 1ong 

If mnargin= 一 3 
epPS=1 .0e 一 6 


Length(x0O) : 
transpose(x0) ; 

Subs(E,ftinaqsynm(E) ，xXx0O) ; 
Zeros (mmD) ; 


X0 
夺 x0 
P0 
for 1=1:n 
XT 
xT(I) 
P0(:，i) 
endQ 


X1(1I)*(1I+h)， 
一 (Subs (下 ,findsym (了 ) 


Im=1:， 
廿 O1L=1 
while tol>eps 
fx = Subs (FE,finadQsyrm(F) ,，x0) ; 





[zx,m]=mulConj (,x0,h,eps) 


7 X1L) 一 上 xXO) An; 


可 = Zeros(ny,Dn):， 
for 工 =1 :7m 
X1L = 三 XO0; 
XlL(i) = X1(i)+h; 
J(:，, II = (subs(E,finadasym(E) ,，xXx1L) 一 Ex) /Ph; 
enaQ 
1amqda = fx/sum(Qiag(transpose(J)xJ) ) ; 


g 核 心 迭 代 公 式 


) ， 工 ) 


L=X0+P0Ox*1amda: 
开工 
Jnext = zeros (nn) ， 


Subs (FE,findqasynm ( 卫 
for 1=1:n 
X1 = 工 ; 
xl1(i) = xl1(i)+h; 
Jnext(:，,IL) 


enaQ 

absl = transpose (Unext ) *JnexXt 
abs2 = Lranspose (可 ) * 可 ? 

Vv = absl/abs2:; 
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(Subs (F,EinaQsynm(E) 


,XTL) 一 Er) /Phy; 


RE 
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if (abs(aqet(v)) < 1) 


Pdl = 一 Jnext+TPDO*Vr 
elLSe 
DP1 = 一 Jnext ， 
end 
tolL=norm(T-X0) :; 
P0 = PL; 
X0 一 工 ; 
In=m+1; 


if(m>100000) 
disp(' 和 迭代 步 数 太 多 ， 可 能 不 收敛 ! ) ; 
FeturDny; 
enaQ 
emndQ 
forrmat Short ; 


g 和 迭代 步 数控 制 


共 斩 梯 度 法 解 非 线性 方程 组 应 用 实例 。 用 共 斩 梯 度 法 求 下 面 方程 组 的 一 


组 解 。 
22+y-6=0 
姑 -X-2=0 
初始 迭代 值 取 (4,4)。 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>>Syms X yi 
>> 2Z=[X^2+y-67Y^2-X-2] ; 


>> [rm]l = mulconj(z， [4 4]1,，1.0e-1) 
上 = 2.0000 

2.0000 
mm = 43 


共 罗 梯度 法 也 是 一 种 效率 很 高 的 算法 ， 一 般 都 能 经 过 比较 少 的 步 数 就 可 得 到 解 。 


阻尼 最 小 二 乘法 


阻尼 最 小 二 乘法 的 算法 如 下 : 
合 给 出 初始 值 x0 ， 阻尼 因子 /lo ， 缩放 常数 w> 1 ， 


从 计算 FG4) 、VFG 、000 及 Vol ， 令 =0， 其 中 p(O= 了 PFCOTFCD 


全 解 方程 组 [VF(xze7VFG)+ 克 丰 p =-Ve(xe) ; 
全 计算 xz = 不 + 了 及 DOze | 


生 如 果 o(x)<o05 且 六 0， 则 取 丰 = 上 ，j =1， 转 舍 ; 


隐 
否则 jz 上 0 ， 则 转 命 ; 
伟 如 果 pGc)>p0ox) ， 则 取 反 =Av ，7=1， 转 例 ， 
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和 者 lose ， 则 得 到 方程 组 的 根 ， 否 则 令 太 = xi ， 转 命 。 


在 MATLAB 中 编程: 实现 的 阻尼 最 小 
乘法 求 非 线性 方程 组 的 一 组 解 


功能 : 用 阻尼 最 小 二 乘 


二 乘法 的 函 数 为 ， mulDamp 


调用 格式 : [5m]j=mulDamp(Fx0,h,u,veps) 


其 中 ，EF， 方程 组 ; 
x0:， 方程 组 的 初始 解 
h: 数值 微分 增 量 步 ; 


阻尼 因子 ; 
V : 缩放 常数 
: 解 的 精度 ; 
， 求 得 的 一 组 解 ; 
m: 迭代 步 数 。 


阻尼 最 小 二 乘法 的 MATLAB 程序 代码 如 下 所 示 : 


function Lrml=mulDamp (FE,Xx0ohuvvveps) 


g% 方 程 组 : F 
g 方 程 组 的 初始 解 ， 
gs 数 值 微 分 增 量 步 , ph 
g 阻 尼 因 子 : u 
g 缩 放 常数 : v 
gs 解 的 精度 : eps 
g 求 得 的 一 组 解 : 上 
g 和 迭代 步 数 :mm 
format ong: 
if Pargin= 一 5 
epPSs=1 .0e-6:; 
emdQ 
FI = 上 ramnspDPose(E)xP/2: 
mn = Length(x0O) : 
X0 = 上 transpDose(x0) ; 


Im= 工 ; 

七 DJ= 工 ; 

while tol>epSs 
J = 0; 


fx = Subs(EF,finGsyrm(E) ，x0) ， 


可 = Zeros (PnPDn) : 
for =1 :DTmn 
XT 三 X0:; 
X]1(i) = X1(I)+h， 


aftxX = Subs(EF,ftinaqasyrm(E) ，X1L) 
J(:, II) = (afx-fx) /ny 

end 

FIX = Sups (FTI,ftindsym(EI) ，x0O) ; 


for 工 = 工 :了 


302 wp 入 苏区 


第 1 章 ， 非 线性 方程 组 求解 


X2 = X0; 
X2(1) = X2(1i)+h; 
gradqFIT(TI,1) = (Subs(FI,finaqasym(FI) ,x2) 一 FIX) /ny; 
eDnQ 
S=0 ; 
while s= 一 0 
A = ranspose (JJ) *UJ+Tuxevye (PDT) 
D = -ANgradFI; 
工 =X0O 二 了 P; 
FI = Subs (FI, ,findsym(EI) ,rr) ; 
了 下 下 工 <FIX 
if ]j 一 0 
U = uU/V; 
工 


已 
二 


endQ 
elSe 
U = UxV; 
= 1 
If norm(z-X0)<eps 
S=/ 
endQ 
endQ 
end 
X0 = 三 工 ; 
tol = norm(p) : 
mm+L: 
if(m>100000) # 和 迭代 步 数控 制 
disp(' 和 迭代 步 数 太 多 ， 可 能 不 收 你 |! ，) ; 
eturDn 
end 
endq 
format Short : 


阻尼 最 小 二 乘法 解 非 线性 方程 组 应 用 实例 。 用 阻尼 最 小 二 乘法 求 下 面 方 
程 组 的 一 组 解 。 


巡 +y-6=0 
六 -X-2=0 
初始 迭代 值 取 (4,4)。 
解 : 在 MAILAB 命令 窗口 中 输入 : 
>>SYmS X Y; ， 
>> Z=[Xx^ 人 2+Yy 一 67Y^ 人 2 一 X-2 ] ; 
>> [rm]=mulDamp(z, [4 4],0.1,8,2) 


= 1.9536 
1 .9589 
Im 三 5 
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用 阻尼 最 小 二 乘法 求 下 面 方程 组 的 解 关 键 是 取 好 阻尼 因子 ， 取 得 好 的 话 ， 就 可 很 快 求 
得 方程 组 的 解 ， 一 定 要 注意 w>1， 否 则 结果 不 收敛 。 


小 结 


从 本 章 介 绍 的 几 种 数值 方法 可 以 看 出 ， 非 线性 方程 组 的 数值 解法 本 质 上 都 是 属于 迭代 
法 ， 而 且 每 种 迭代 法 不 可 避免 地 要 求 一 个 雅 可 比 答 阵 的 着 ， 虽 然 可 以 求 出 任何 一 个 非 线性 
方程 组 的 雅 可 比 和 天 阵 ， 但 是 其 逆 却 不 一 定 存 在 ， 因 此 那些 直接 求 道 的 迭代 法 是 有 一 定局 限 
性 的 ， 而 有 些 迭 代 法 却 绕 过 了 求 逆 的 困难 ， 如 D-F-P 算法 和 B-F-S 算法 等 ， 这 样 它们 的 适 
用 范围 大 一 些 ， 但 也 存在 迭代 时 间 过 长 的 问题 ， 因 此 要 根据 实际 问题 采用 合适 的 算法 。 
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线性 方程 组 解法 的 发 展 和 计算 机 的 出 现 有 着 莫大 的 关系 ， 在 计算 机 未 出 现 前 ， 线 性 方 
程 组 的 解法 是 手工 进行 的 , 因此 数值 方法 的 发 展 受 到 了 很 大 限制 , 但 是 随 着 计算 机 的 发 展 ， 
新 的 算法 不 断 涌现 ， 到 现在 还 有 不 少 人 在 研究 线性 方程 组 的 解法 ， 因 为 非 线性 方程 组 、 微 
分 方程 的 数值 解法 最 终 都 要 转化 成 线性 方程 组 来 求解 。 本 章 讨论 线性 方程 组 的 直接 解法 ， 
其 迭代 解法 将 在 下 一 章 中 讨论 。 

通过 本 章 的 学 习 ， 读 者 不 仅 能 掌握 常见 的 解 线性 方程 组 的 直接 法 ， 而 且 还 能 熟练 使 用 
MATLAB 编程 来 实现 这 些 算法 。 


线性 方程 组 概论 


设 4 为 关 xz 的 矩阵 ，X 为 X1 的 列 向 量 ， 已 为 丰 X1 的 列 向 量 ， 则 一 般 的 线性 方程 组 
可 表示 为 以 下 的 形式 : ， 





4xX= 忆 
利用 线性 代数 的 知识 可 以 知道 ， 如 果 严 = 天 ， 且 和 矩阵 4 为 满 秩 ， 则 上 面 的 线性 方程 组 
有 唯一 解 ， 这 就 是 本 章 所 有 算法 的 前 提 条 件 。 


高 斯 消去 法 


高 斯 消去 法 是 求解 线性 方程 组 最 基本 的 方法 ， 也 是 最 原始 的 方法 。 由 于 此 方法 简单 ， 
计算 量 小 ， 因 此 解决 一 般 的 线性 方程 组 的 主流 方法 也 是 高 斯 消去 法 ， 同 时 它 也 常常 用 来 求 
和 矩阵 的 逆 。 

高 斯 消去 法 的 基本 思路 是 先 把 系数 矩阵 通过 行 变换 转化 为 上 三 角 和 矩阵 ， 然 后 再 求解 变 
换 后 的 上 三 角形 线性 方程 组 ， 即 回 代 过 程 。 为 了 后 面 的 程序 编写 简单 ， 将 上 三 角 系 数 和 矩阵 
和 下 三 角 系 数 和 矩阵 的 线性 方程 组 的 求解 过 程 编 成 函数 如 下 。 








功能 : 求 上 三 角 系 数 德 阵 的 线性 方程 组 Ax=b 的 解 | 

调用 格式 ;zx SolveUpTriangle (A,b) 

其 中 ，A;， 线性 方程 组 的 系数 矩阵 ; 
b:， 线性 方程 组 中 的 常数 向 量 ; 








rnrtrrrreeeeeeerrrrrerererreeeerreeereereeerrereeeeereeererreeerneorrrrr 
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上 三 角 系 数 矩 阵 求解 函数 用 MATLAB 实现 如 下 所 示 : 


function x=SolveUpTriangle(&A,Db) 
g 求 上 三 角 系 数 矩 阵 的 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵， &A 

g 线 性 方程 组 中 的 常数 向 量 ; b 
线性 方程 组 的 解 : x 


N = Size(&RA) ; 


na=N(1L): 
for 1i=n: 一 L :1 
守 E (<Dny) 
S=Ai，(i+l):n)xx((i+l):n1)， 
elSe 
S 一 0; 
endQ 
X(I,1)=(p(I)-s)/A(ITI) 
endQ 


功能 : 求 下 三 角 系 数 和 矩阵 的 线性 方程 组 Ax=b 的 解 
调用 格式 :，x= SolveDownTriangle (A,b) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 

b: 线性 方程 组 中 的 常数 向 量 ; 

x:， 线性 方程 组 的 解 。 





在 MATLAB 中 编程 实现 的 下 三 角 系数 矩阵 求解 函数 为 ，SolveDownTriamgle | 


| 
所 





下 三 角 系 数 和 矩 阵 求解 函数 用 MATLAB 实现 如 下 所 示 ; 


function x=SolveDownTriangle(A,b) 
g 求 下 三 角 系 数 矩 阵 的 线性 方程 组 Aax=b 的 解 
线性 方程 组 的 系数 矩阵: & 
8 线性 方程 组 中 的 常数 向 量 : b 
g 线 性 方程 组 的 解 : x 
N= Size(RA) : 
D=N(1L); 
for 1=13:mn 
工 (II>1) 
S= 王 Ai，1l:(i-L))*x(1:(1-1)，1): 
else 


enaQ 


X(Ii,1)=(b(i)-s)V/A(IL,I)， 
enaQ 


11.2.1 高 斯 顺序 消去 法 


高 斯 顺序 消去 法 的 算法 步骤 介绍 如 下 。 
@@ 将 方程 组 写成 以 下 的 增 广 和 矩阵 的 形式 : 
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QI al2 … an 惫 


Q21 022 … aonp2 


Cal Gzr2 …' am Dr 
个 对 上 =12.3…-1， 对 J=+LK+2…,， 计 算 


-24 (mi 大 大 二 1 站 


Cj 一 Q ja 
G 丰 


太 = 呈 铸 "4 天 
CQ 不 
算法 结束 。 
依 此 算法 就 可 将 系数 矩阵 变 成 上 三 角 和 矩阵， 这 时 可 用 回 代 过 程 求解 。 例 如 下 面 的 过 程 
就 是 高 斯 顺序 消去 法 : 
10-2U0 fo2Ilro -2 1 
3 2 -11”>|o25 -2|>|o2 5 2 


-54 6 1 04 志 4 6 0 0 -14 10 


在 MATLAB 中 编程 实现 的 高 斯 顺序 消去 法 函数 为 ， GaussXQByOrder 
功能 : 高 斯 顺序 消去 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[x,XA]=GaussXQByOrder(A,b) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
x: 线性 方程 组 的 解 ; 
XA: 消 元 后 的 系数 矩阵 ( 可 选 的 输出 参数 )。 








高 斯 顺序 消去 法 用 MATLAB 实现 如 下 所 示 


function [x,XA]=GaussXQBYyoOraer (RA,b) 
g% 高 斯 顺序 消去 法 求 线性 方程 组 ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 : 
g% 线 性 方程 组 中 的 常数 向 量 ，b 
g 线 性 方程 组 的 解 : x 
g% 消 元 后 的 系数 和 矩阵， XA 
N = Size(A):， 
nm=N(IL); 
for I=1: (n-1) 
for ]j=(i+1) :nm 
f(&A(iIi) 一 0) 
disp(' 对 角 元 素 为 01 ') ; 8 防止 对 角 元 素 为 0 
eturny; 
emndQ 
=RAJ,i); 
m=A(,I)， 
Al(j,1I:n)=A(j,1:n)-LxaAfiv1:n)y/m; gs 消 元 方程 
D()=b(j)-Lxb(i)ym; 
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endQ 
emnqQ 
x=SolveUpTriangle(A,b): g 通 用 的 求 上 三 角 系 数 和 矩 阵线 性 方程 组 的 函数 
XRA = Ri; g 消 元 后 的 系数 矩阵 


高 斯 顺序 消去 法 解 线性 方程 组 应 用 实例 。 用 高 斯 顺序 消去 法 求 下 列 线性 方 


程 组 的 解 。 
1 S$ 0 X1 工 
3 9 4 和 妇 21=|1 
-8 6 2|| 加 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=-[13 0;3 9 4;-8 6 2]: 








>> b=[1;17;1]:; 
>> [XXXA]= GaussXQByorder (AD) 
输出 计算 结果 为 : 
广 = -0.0204 
0.2041 
-0.1939 
XA = 1.0000 5.0000 0 
0 -6.0000 4.0000 
0 0 32.6667 


输出 结果 中 的 XA 就 是 系数 矩 阵 经 过 消 元 后 变 成 的 上 三 角 和 矩阵 ， 然 后 调用 通用 的 解 上 
三 角 系 数 和 矩阵 线性 方程 组 的 函数 就 可 回 代 得 到 解 。 

在 高 斯 顺序 消去 法 的 实际 操作 过 程 中 ， 往 往 还 可 以 先 将 对 角 线 的 元 素 化 为 1， 再 消去 
主 对 角 线 以 下 的 元 素 ， 此 过 程 称 为 标准 化 的 高 斯 顺序 消去 法 。 读 者 可 以 参照 高 斯 顺序 消去 
法 的 代码 自己 写 出 相应 的 标准 化 高 斯 顺序 消去 法 的 MATLAB 代码 。 

高 斯 顺序 消去 法 的 计算 量 是 消去 和 回 代 两 部 分 的 计算 量 之 和 ， 对 于 求解 变 元 的 线性 
方程 组 ， 高 斯 顺序 消去 法 的 计算 量 的 量 级 为 0003 13) 。 
11.2.2 ”高 斯 主 元 消去 法 

高 斯 顺序 消去 法 有 一 个 最 大 的 缺点 就 是 一 旦 对 角 元 素 是 0， 它 就 进行 不 下 去 了 ， 为 了 
解决 这 个 问题 ， 就 有 了 高 斯 主 元 消去 法 。 
11.2.2.1 高 斯 按 列 主 元 消去 法 


如 果 在 高 斯 顺序 消去 法 消去 过 程 进 行 到 第 ; 步 时 ， 先 选取 arG<sr< 刀 中 ( 即 第 ; 列 ) 
绝对 值 最 大 的 元 素 , 设 为 第 / 行 的 元 素 ii, 把 矩阵 的 第 ; 行 和 第 7 行 互 换 , 这 时 or 变 为 ai， 


然后 将 第 ;+1 行 至 第 妹 行 中 的 每 一 行 减 去 第 ; 行 乘 以 二 (天 代表 行 号 )， 依 此 进行 消 元 ,这 
样 得 到 的 算法 叫 高 斯 按 列 主 元 消去 法 。 
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高 斯 主 元 消去 法 的 算法 步骤 介绍 如 下 。 
镭 将 方程 组 写成 以 下 的 增 广 矩阵 的 形式 : 


CQ 2 … am 
021 022 … aa2np2 
Gal Cnr2 CC 忆 


四 对 上 =12.3 nm-1， 令 ou =maxyjox| ， 交 换 增 广 矩阵 的 第 上 行 与 第 户 行 ， 对 


0 | 一 


5= 
j =K+LK+2…,7， 计 算 
ar 一 2 (1 三 大 大 十 1 1) 
C 姑 
太一 贡生 
QQ 大 
算法 结束 。 
例如 下 面 的 消去 过 程 : 
305 1 6 4 2 2 6 2 
604 2 2|I 一 305 1 一 0 一 4 
2710 3 2710 3 0 17/3 28/3 7/3 
6 4 2 2 6 4 2 2 
0 17/3 28/3 7/3 | 一 |0 17/3 28/3 7/3 
0 一 4 0 0 0 124/17 14/117 








在 MATLAB 中 编程 实现 的 高 斯 按 列 主 元 消去 法 函数 为 ，GaussXQLineMain 


功能 : 高 斯 按 列 主 元 消去 法 求 线性 方程 组 Ax=b 的 解 


调用 格式 ，[xXA]= GaussXQLineMain (A,b) 
其 中 ，A: 线性 方程 组 的 系数 和 矩阵 ; 

b: 线性 方程 组 中 的 常数 向 量 ; 

x:， 线性 方程 组 的 解 ; 


XA: 消 元 后 的 系数 矩阵 ( 可 选 的 输出 参数 )。 





高 斯 按 列 主 元 消去 法 用 MATLAB 实现 如 下 所 示 : 


function [x,XA]=GausSsSXQLineMain (Ab) 
g 高 斯 按 列 主 元 消去 法 求 线性 方程 组 Ax=b 的 解 

g 线 性 方程 组 的 系数 矩阵: & 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 ; x 

g% 消 元 后 的 系数 矩阵: XA 

N = Size( 有 A)， 

n=N(IL):; 

indqex = 0; 

for =1: (n-1) 
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me = max(abs(RA(l:n,I))); g 选 取 列 主 元 
for Kk=1i :nm 
ift(abs(AK, II) ) 一 me) 
index = K; g 保 存 列 主 元 所 在 的 行 
preak:; 
emnaQ 
emQ 
temp = Al 1:n); 
Ai 1l:n) = Andex,1:n)，; 
Al(inadaex,1:n) = 上 emp:; 
bb = bl(inaQex) 
bf(inaex)=b(I)， 
b(i) = bb; gs 交换 主 行 
for ]j=(I+1) :nm 
ift(&A(iyi) 一 0) 
Gisp(' 对 角 元 素 为 0 ')， 
etUuzDny: 
end 
工 = 有 (ii); 
mm 一 AIL)，; 
&A(],lLIn)=A(j,1:n)-Lx*xa(i1:n)ymy; 
b(j)=b(j)-1x*b(i) /my g 消 元 
end 
enaQ 
X=SolveUpTriangle(A,b) ; 
XA 三 A; 


高 斯 按 列 主 元 消去 法 解 线性 方程 组 应 用 实例 。 用 高 斯 按 列 主 元 消去 法 求 下 
列 线性 方程 组 的 解 。 


3 0 0 | 1 
7 -2 5 X2 | 二 1 
2 1 8|| 轨 1 


解 : 在 MATILAB 命令 窗口 中 输入 ; 


>> A=I3 6 0;7 -2 5;2 1 8]: 


>> b=[17171]， 
>> [x,XA]= GaussXQLineMain(A,b) 
输出 计算 结果 为 : 
X= 0.1150 
0.1091 
0.0826 
XA = 7.0000 一 2.0000 5.0000 
0 6.8571 -2.1429 
0 0 7.0625 


从 XA 第 一 行 的 第 一 个 元 素 为 7 可 以 看 出 ， 第 二 行 与 第 一 行 已 经 交换 了 ， 如 果 想 知道 
选 主 元 的 每 一 步 过 程 ， 读 者 可 以 自己 修改 程序 ， 把 每 一 步 的 系数 矩阵 打印 出 来 。 
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11.2.2.2 ”高 斯 全 主 元 消去 法 

如 果 在 高 斯 顺序 消去 法 的 消去 过 程 进 行 到 第 ; 步 时 , 先 选取 ar(GSr<miss<s 丰 中 绝 
对 值 最 大 的 元 素 ， 设 为 w。， 把 矩阵 的 第 ; 行 和 第 六 行 互 换 ， 第 ; 列 和 第 w% 列 互 换 ， 这 时 as 
变 为 w，， 然 后 将 第 ;+1 行 至 第 ， 行 中 的 每 一 行 减 去 第 ; 行 乘 以 必 (大 代表 行 号 )， 依 此 进 
行 消 元 ， 这 样 得 到 的 算法 叫做 高 斯 全 主 元 消去 法 。 

高 斯 全 主 元 消去 法 的 算法 步骤 介绍 如 下 。 

侠 将 方程 组 写成 以 下 的 增 广 和 矩阵 的 形式 ， 

CQ 62 …， am 已 


021 022 … 02npD2 


Cnl Cr2 … Gm D 


全 对 天 =12,3,……,7 一 1， 令 arr 二 IDaX > |ev|， 交换 增 广 矩阵 的 第 上 行 与 第 P 行 ; 交 
大 SSSP 
天 [< 用 


换 增 广 矩阵 的 第 大 列 与 第 g 列 ， 对 j =K+1LK+2… 天 ， 计 算 
CQ 一 2 (Pa 二 大 天 十 1 人 
C 不 
其 
C 厂 
算法 结束 。 
例如 下 面 的 消去 过 程 : 

















3 0 153 1 13 0 3 1 l130 3 1 

6 4 2 | 4 6 | 4 28/5 oo 

1l10 7 10 3 10 7 10 3 07 8 7/13 

Il13 0 3 1 Il193 0 3 1 13 0 3 1 
07 8 7/3 | 一 | 0 8 7 703 中 8 7 由 
0 4 28/5 28/15 0 28/53 4 28/15 0 0 -9/10 7/30 


在 MATLAB 中 编程 实现 的 高 斯 全 主 元 消去 法 函数 为 : GaussXQA1Main 
功能 : 高 斯 全 主 元 消去 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[x,XA]= GaussXQA1Main (A,b) 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
XxX， 线 性 方程 组 的 解 ; | 
XA: 消 元 后 的 系数 矩阵 ( 可 选 的 输出 参数 ); 





高 斯 全 主 元 消去 法 用 MATLAB 实现 如 下 所 示 ; 


function [x,XA]= GaussXQAL1IMain (APD) 
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g 高 斯 全 主 元 消去 法 求 线性 方程 组 &x=b 的 解 


gs 线性 方程 组 的 系数 和 矩阵 ，A 
g 线 性 方程 组 中 的 常数 向 量 : b 
g 线 性 方程 组 的 解 : x 

g 消 元 后 的 系数 德 阵 ，XR 

N = 三 
mn = 


Size( 和 AI) ， 
N(1L)， 
= 0; 
= 0 
Order = 1:n; 
(n- 工 ) 


IDnQaex_ 1 
index _ 工 


for 1=1: 
me 三 

for Kk=1 :nn 
for =1:Dn 


ITmax (max(abps(A(i:n,i:n))))， 


g% 记 录 未 知 数 顺 序 的 向 量 


g% 选 取 全 主 元 


if (abs (RARA(K,T) ) 一 me) 


inaex_ 1 = K， 
index_r = 工 ; 
K=Dm; 
Dreak:; 
endQ 
enQ 
enmdaQ 
temp = AI,1:n)，: 
Ati,1:n) = 
Ainaex_1l1,1:n) = 上 emp:; 
bb = bl(index 1): 
bpP(inaex_1)=b(i): 
D(Ii) = bb:; 
tempb = AL:nvI)， 
At(1l:n,1i) = 
Al:nyindex r) = 上 emp:; 
pos = Order(I) ; 
oraQaer (1I) = 
craqer (indaex_r) = Pos; 
fot ]j=(i+1) :mn 
it(A(i) 一 0) 
qisp(' 对 角 元 素 为 0 
etUurEDn 7 
end 
工 = 有 (ji); 


mm 一 A(I,I); 


g 保 存 主 元 所 在 的 行 和 列 


Ainaex_1,1:mn) ，; 


% 交 换 主 行 


Al:n,inaqex_r)， 


g% 交 换 主 列 


order (inQex_Tr) ; 


g% 主 列 的 交换 会 造成 未 知 数 顺 序 的 变化 


) 


At,l:n)=&A(j,1:n)-LI*xaA(i 13in) /my 


D(J)=b(j)-LIx*b(I) Anmy; 
end 
endQ 
X=SolveUpTriangle(A,b) : 
Y=Zzeros (mn,1L):; 
for =1 :DT 
for ]J=13:Tm 
if(order (JJ) 一 工 ) 
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Y(I)=xf(J) 
emnQ 
GDTnQ 
end g 恢 复 未 知 数 原来 的 顺序 
X=Y 
XA 三 A; 


ER。 高 斯 全 主 元 消去 法 解 线性 方程 组 应 用 实例 。 用 高 斯 全 主 元 消去 法 求 下 列 线 


性 方程 组 的 解 。 
10 6 4] 为 
4 0 1 XI 
2 - 8 3 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=[10 6 4;50 172 -1 8]， 
>> b=[1;171]， 
>> [X,XA]= GausSsXQA11Main (ADb) 


输出 计算 结果 为 : 


X= 0.1891 
-0.1849 
0.0546 
XA = 10.0000 4.0000 6.0000 
0 7.2000 -2.2000 
0 0 -3.3056 
高 斯 全 主 元 消去 法 的 想法 很 好 ， 但 是 用 程序 实现 起 来 却 并 不 简单 ， 很 容易 犯错 误 ， 因 
为 在 消去 过 程 中 进行 了 列 交换 ， 将 未 知 数 的 顺序 打 乱 了 ， 因 此 在 每 次 列 交换 后 要 记 下 未 知 
数 的 排列 顺序 ， 最 后 要 调整 回来 。 否 则 得 出 的 结果 数值 是 对 的 ， 但 顺序 却 是 错 的 。 


11.2.3 ”高 斯 - 若 当 消去 法 


高 斯 - 若 当 消 去 法 不 需要 进行 行 或 列 的 交换 ， 而 且 它 的 消 元 比较 彻底 ， 每 行 只 留 下 一 
个 非 零 元 素 。 

高 斯 - 若 当 消去 法 的 算法 步 双 介绍 如 下 。 

从 将 方程 组 写成 以 下 的 增 广 矩 阵 的 形式 : 








Ca 02 … mm 已 
021 022 … arpo 
Cnl Cp2 Cr 忆 


建立 一 个 数组 pos[z] ， 将 其 初始 化 为 0， 用 以 保存 每 列 的 主 元 ; 


国 对 上 =123…m ， 令 or=Imax > |ax| ， pos[ 铝 =P ; 对 


1<s<m 
5 天 Pos[1]，……,Pos[ 大 一] 
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= 2,… 忆 一 ]P 二 1 于 ， 计算 
aj 一 GeC 玫 (大 一天 大 十 1 ,71) 
CI 
Dpea 
忆 = 一 2 
CI 


算法 结束 。 
例如 下 面 的 消去 过 程 : 


38 5 1 0 6 4 1 006 4 1/2 
64 2 1 一 6 4 2 1 | 一 16 0 -2/3 2/3 | 一 
2 1 10 1 0 -L3 28/3 2/13 0 0 86/9 25/36 
06 0 9/43 

6 0 0 123/172 

0 0 86/9 23/36 


在 MAILAB 中 编程 实现 的 高 斯 - 若 当 消去 法 函数 为 : GaussJordanXQ 
功能 : 高 斯 - 若 当 消去 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [x,XA]= GaussJordanXQ (A,b) 
其 中 ，A:， 线性 方程 组 的 系数 和 矩阵; 

b: 线性 方程 组 中 的 常数 向 量 ; 

X: 线性 方程 组 的 解 ; 

XA， 消 元 后 的 系数 矩阵 ( 可 选 的 输出 参数 )。 


高 斯 - 若 当 消去 法 用 MATLAB 实现 如 下 所 示 : 


function [x,XAl= GaussJordanXQ (R,Db) 
g 高 斯 - 若 当 消去 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 算 阵 ，RA 
g% 线 性 方程 组 中 的 常数 向 量 : b 
g 线 性 方程 组 的 解 ， x 
g 消 元 后 的 系数 矩阵 : XRA 
N = Size(&A)， 
员 =N(L): 
inaex = 0); 
pos = Zeros (ny, 1)， 
也 三 A; 
for 工 =1 :mn 
me = max(abs(B(1:n,i)))， % 选 取 列 主 元 
for K=1 :DTm 
if(abs(&aA(KkK,I))==me) 
index = 上 ; 
pos (1 1) = ky; g 保 存 列 主 元 所 在 的 行 号 
break:; 
emD 双 





endG 
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m =Ainadex,i)， 
for Jj=1:nm 
if(j ~= inaqex) 
= Ai); 
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Al(],1:n)=AlJ,1:n)-Lx*A(inaex,1:n)ymi 


b(j)=b(j)-1x*b(indqex) /my sg 消 元 
emnd 
endQ 
也 = 和 A; 
for Kk=1:n 
if (pos (K,1)~=0) 


B(pos(k,1) ,1:n)=0， g% 避 免 列 主 元 在 同一 行 


ena 
enQ 
emnQ 
XA 三 六: 
for 工 =1:mn 
xf(i,1)=b(pos(i,1))/A(pos(i,1),i); sg 求解 


enmnd 


高 斯 - 若 当 消 去 法 解 线性 方程 组 应 用 实例 。 用 高 斯 - 若 当 消去 法 求 下 列 线性 


方程 组 的 解 。 
1 3 8 
-5 2 9|| 如 |=j1 
0 1 4| za 1 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> A=[1 3 8)-5 2 9;0 1 4]:; 


>> b=[1;17;1]， 
>> [x,XA]= GaussJordanXQ(A,D) 
输出 计算 结果 为 ， 
X= 一 0.3158 
一 .3158 
0.5789 
XA = 三 0 3.4000 0 
-5.0000 0 0 
0 0 1 .1176 


高 斯 消去 法 十 分 简单 ， 只 不 过 要 注意 避免 列 主 元 在 同一 行 ， 即 每 次 选取 的 主 元 必须 在 


不 同行 。 


用 三 角 分 解法 


如 果 系数 和 矩阵 A 可 以 分 解 为 两 个 三 角 矩 阵 的 乘积 : 


4=LZ 了 UL 
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其 中 , 工 为 下 三 角 和 矩阵 ，U 为 上 三 角 和 矩阵 。 那 么 线性 方程 组 Ax = 的 求解 可 分 为 以 下 


的 两 步 : 

第 一 步 ， 求 解 方程 组 Ly = 户 ， 解 出 ; 

第 二 步 ， 求 解 方程 组 QUx= >， 解 出 x; 

而 求解 这 两 个 三 角形 方程 组 是 很 简单 的 。 按 L 和 TU 形式 的 不 同 , 三 角 分 解法 可 分 为 克 
劳 特 分 解法 和 多 利 特 勒 分 解法 。 


11.3.1 “ 克 劳 特 分 解法 
在 克 劳 特 分 解法 中 ，L 和 U 的 形式 如 下 所 示 : 


01 1 72 …， UV 
{ { 1 册 
-| 2 了 12 
La 122 的 1 1 


克 劳 特 分 解 的 算法 步骤 介绍 如 下 。 

侠 计算 L 的 第 一 列 和 U 的 第 一 行 元 素 ; 
1 二 Ci 1 一 1.2,7; 
ZI =G11V10 了 = 2 用 


全 对 上 =2…a， 计 算 


夺 -1 
砍 = 人 cz 一 》 和 ou 下 一天 
P=! 


天 一 1 
1 一 (ab It) 天 了 = 天 二 EL 
3=] 


先 解 三 角形 方程 组 : 


刀 三 乌 /10 
K-1 

了 F 三 ( 卫 一 》 语 y)/ 妥 天 三 2，……),7， 
人 1 


Xz 二 yr 
JE 二 YYK 一 六 王 太 和 rr 天 三 天 一 上 ,1. 
7 一 大 十 1 
一 局 二 2 一 一 本 
功能 :， 克 劳 特 分 解法 求 线性 方程 组 Ax=b 的 解 
调用 格式 :，[xL,U]=-Crout(A,D) 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
xX: 线性 方程 组 的 解 ; 
_ 工 ; 克 劳 特 分 解 后 的 工 ( 可 选 的 输出 参数 ) 
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| 由 克 萝 特 分 解 后 的 U ( 可 选 的 输出 参数 





克 劳 特 分 解法 用 MATLAB 实现 如 下 所 示 : 


function [x,L,U]=Crout (Ab) 

g 克 劳 特 分 解法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 和 矩阵，A 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 : x 

g% 克 劳 特 分 解 后 的 下 三 角 和 矩阵 L 

g% 克 劳 特 分 解 后 的 上 三 角 和 矩阵 U 


N = Size(&A): 


D=N(1L): 

二 = Zeros (mn,DTn) ; 

U = eye(tn,n): gU 的 对 角 元 素 为 1 
L(1:n,1) = AL1:ny1); gL 的 第 一 列 
U(1,1:n) = All:n)/(1,1); gU 的 第 一 行 
for =2 :DT 


for =K :DT 


Di,k) = Ai,k)-L(i 1:(K-1L))xU(1:(k-L)，k); 


gsL 的 第 k 列 
end 
for ]J=(Kk+1) :mn 








U(K,J) = (A(K,)-L(Kk,1L:(k-1))xU(L:(k-1)，))VD(K,K)， 


gsU 的 第 行 


end 


Y = SolveDovwnTriangle(DL,P) : 
X = SolveUpTriangle(U,y):; g% 求 解 方程 


克 劳 特 分 解法 解 线性 方程 组 应 用 实例 。 用 克 劳 特 分 解法 求 下 列 线性 方程 组 


的 解 。 
6 3 -| 加 1 
1]39 和 $ 2|| 和 姑 |1=|1 
2 0 7 3 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=[6 3 -8;15 5 2;2 0 7]: 
>> b=[17;171]; 
>> [xDy,Uj=Crout (Ab) 


输出 计算 结果 为 ， 
X = -4.6154 
13.4615 
1 工 .4615 
工 = 6.0000 0 0 
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15.0000 -2.5000 0 
2.0000 -1.0000 0.8667 
U= 1.0000 0.5000 一 1.3333 
0 1.0000 -8.8000 

0 0 1.0000 


11.3.2 ”多 利 特 勒 分 解法 
多 利 特 勒 分 解法 中 , 工 和 1 的 形式 如 下 所 示 : 


1 MII 212 Vln 
7 ji 1 = L22 &2n 
jp … 1 Lam 
多 利 特 勒 分 解 的 算法 步骤 介绍 如 下 。 
对 天 一 2 用 3 
@@ 计算 
帮 -1 
Mi = G11 一 Oraim 了 一 大 ,大 十 1 用. 
玉 一 | 
@@ 计算 


天 ~ 
大 =(@ 一 人 和)A 区 = 大 二 1 


71 一 上 


舍 解 三 角形 方程 组 ， 


态 三 饭 
K-1 
站 = 人 一 》 记 7) = 2 
tl 
Ara 一 yn /mn 


所 
认 = (入 一 2 BirXr ) AD 5 一 天 一 1 ,1 


7= 天 二 








功能 : 多 利 特 勒 分 解法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [x,L,U]= Doolittle (A,b) 
其 中 ，A: 线性 方程 组 的 系数 矩阵; 
b:， 线性 方程 组 中 的 常数 向 量 ; 
x: 线性 方程 组 的 解 ; 
世 ， 多 利 特 勒 分 解 后 的 工 ( 可 选 的 输出 参数 ); 
U:， 多 利 特 勒 分 解 后 的 U ( 可 选 的 输出 参数 )。 


多 利 特 勒 分 解法 用 MATLAB 实现 如 下 所 示 : 
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在 MATLAB 中 编程 实现 的 多 利 特 勒 分 解法 函数 为 .Doolitle 


第 1 章 ， 解 线性 方程 组 的 直接 法 





function [x,DL,U]= Doolittle (ARA,Db) 
s 多 利 特 勒 分 解法 求 线性 方程 组 Ax=b 的 解 

g 线 性 方程 组 的 系数 矩阵 : 和 

g 线 性 方程 组 中 的 常数 向 量 : P 

g 线 性 方程 组 的 解 : x 

% 多 利 特 勒 分 解 后 的 下 三 角 和 矩阵 : L 

g% 多 利 特 勒 分 解 后 的 上 三 角 和 矩阵 : T 

N = Size( 和 A) ， 





Da=N(1L)， 

D = eye(nn); g%L 的 对 角 元 素 为 1 
U = Zekros (mn 了) ; 

U(1,1:n) = AL1,1:n); sU 的 第 一 行 
L(L:n,1) = Atl:n,1l)VU(1 1) sDE 的 第 一 列 
for kk=2 :nm 


for =K :了 
U(K,i) = R(k,i)-LIK,1:(k-1))xU(1:(k-1) ) ; 


g%U 的 第 k 行 
emnQ 
for J={(K+1) :DT 
Lv,k) = (akK)-D( 1:(kK-1) )x*U(1:(k-1)，k))7ZU(KK) ， 
sL 的 第 k 列 
end 
end 
Y = SolveDownTrtiangle(L,D): 
X = SolveUpTrianglel(Uy) ，: g 求 解 方程 


ED 多利 特 勒 分 解法 解 线性 方程 组 应 用 实例 。 用 多 利 特勤 分 解法 求 下 列 线性 方 
程 组 的 解 。 


0 3 -8| 1 
l]9 3 2 中 和 妇 |1=|1 
2 0 7 3 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=[6 3 -8);15 5 2;2 0 71]:; 
>> bp=[17;17?1])， 
>> [x,L,U]= Doolittle(A,b) 


输出 计算 结果 为 

x = -4.6154 
13 .4615 
1.4615 

L = 1.0000 0 0 
2.5000 1.0000 0 


0.3333 0.4000 工 .0000 

U= 6.0000 3.0000 -8.0000 
0 -2.5000 22.0000 
0 0 0.8667 
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得 出 的 L 和 U 和 上 题 相 比 发 生 了 变化 。 多 利 特 勒 分 解法 的 运算 量 和 克 劳 特 分 解法 是 一 
样 的 。 如 果 和 矩阵 的 第 一 行 第 一 列 的 元 素 为 0， 不 管 是 克 劳 特 分 解法 ， 还 是 多 利 特 勒 分 解法 ， 
都 会 出 现 被 除数 为 0 的 错误 ， 这 是 三 角 分 解法 最 大 的 闲 端 ， 当 然 也 有 解决 的 办 法 ， 那 就 是 
在 三 角 分 解 之 前 ， 检 查 和 矩阵 第 一 行 第 一 列 的 元 素 是 否 为 0， 如 果 是 ， 通 过 行 交换 ， 将 第 一 
列 中 不 为 0 的 元 素 交 换 到 第 一 行 ， 再 进行 三 角 分 解 ， 可 参考 下 面 的 代码 段 : 


if(&A(1,1)==0) 
me = max(abs(A(1:n,i)))， gs 选取 列 主 元 
for Kk= 守 :DTm 
f(abs(RA(k,i)) 一 me) 
index = Ki; g 保 存 列 主 元 所 在 的 行 
break'， 
enaQ 
enQ 
temp = Ai,1:n): 
Ati,1:n) = A(inadex,1:n); 
AI(index,1:n) = Lemp; 
bb = bl(inaqex) ; 
b(index)=b(I); 
b(i) = bb) 交换 主 行 


乔 列 斯 基 分 解法 


乔 列 斯 基 分 解法 来 源 于 三 角 分 解法 ， 将 三 角 分 解法 应 用 于 对 称 正 定 和 矩阵 就 得 到 乔 列 斯 
基 分 解法 ， 具 体 又 可 分 为 三 种 相似 的 方法 。 
11.4.1 对称 正 定 和 矩阵 的 ZZ7 分 解法 


在 三 角 分 解法 中 , 令 尽 = 己 就 得 到 对 称 正 定 矩 阵 的 LT7 分 解法 。 其 算法 步骤 介绍 如 下 。 
(1 对 于 大 =12,……,7 ? 计算 
=Van 焉 =/ (=2.3 站 


加 
丰 =， [ou 一 2 向 
JI 一 1] 


天 一 1 
用 =( 鸣 一 六 加)/ 肛 G= 天 + 站 
形 一 上 
@@ 解 三 角形 方程 组 。 


在 MATLAB 中 编程 实现 的 了 17 分 解法 函数 为 ，SymPosl 
功能 ，Z77 分 解法 求 线性 方程 组 Ax=b 的 解 
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其 中 ，A: 线性 方程 组 的 系数 和 矩阵 
b: 线性 方程 组 中 的 常数 向 量 ; 
x:， 线性 方程 组 的 解 ; 
L:， ZL 分 解 后 的 工 ( 可 选 的 输出 参数 )。 | 





了 太 分 解法 用 MATLAB 实现 如 下 所 示 : 


function [x,L]= SymPos1l (Ab) 
gg 也 产 分 解法 求 线性 方程 组 Ax=b 的 解 
gs 线 性 方程 组 的 系数 矩阵 : & 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 : 买 

%Z7 分 解 后 的 下 三 角 窍 阵 : 工 


N = Size(A): 


nn=N(1L); 
L(1,1) = Saqrt(A(1L ,1)): 
L(2:n,1) = A(2:n,1)/(1,1)， ssL 的 第 一 列 
for 上 =2 :DTm 
LI(k,k) = sGEE(A(K,kK)-LIK,1:(k-1))xtransbpose(L(Ik,1:(k-1)))); gsD 对 角 元 素 
for 1=(K+1L) :DTn 
Li,k) = (Atik)-Li1:(k-1))x*transbposel(Lk,1:(k-1))))/D(k,k) ;8sD 第 k 列 
endQ 
enaQ 
Y = SolveDownTriangle(Ly,b) : 
xX = SolveUpTriangle(transbose(DL),y)，  s% 求 解 方程 


对 称 正定 矩阵 的 志 77 分 解法 解 线性 方程 组 应 用 实例 。 用 ZI7 分 解法 求 下 列 
线性 方程 组 的 解 。 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> ARA=[6 3 -2;3 5 17-2 1 7]: 
>> b=[17;171]: 
>> [xX,L]j= SymPost (APbp) 


输出 计算 结果 为 ; 

x = 0.2202 
0.0275 
0.2018 

DL = 2.4495 0 0 
1.2247 1.8708 0 


-0.8165 1.0690 2.2783 
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当然 ， 要 得 出 上 面 的 正确 结果 ， 首 先 得 保证 系数 矩阵 对 称 正定 才 行 。 


11.4.2 “对称 正定 和 矩 阵 的 ZD 太 分 解法 


在 上 面 的 分 解 中 ， 需 要 开 方 运算 ， 这 是 比较 不 利 的 。 为 了 避免 开 方 运算 ， 令 世 的 对 角 
元 素 都 为 1， 这 便 得 到 ZLDZ 分 解法 ， 其 中 上 为 下 三 角 阵 ，D 为 对 角 阵 。 其 算法 步骤 介绍 
如 下 ， 

代 对 于 上 =1,2…, 赂 ， 计 算 : 


1 =1|， 


大 二 1 
故 =d 一 >》 dm， 


7mI=] 


天 一 1 
=(ai 一 2 dogo)/ 人 = 天 +1 


玉 一 | 
例 解 三 角形 方程 组 : 


ZL = 已 
人 D-y 
| 在 MATLAB 中 编程 实现 的 ZLDZ 分 解法 函数 为 : SymPos2 
| 功能 ，ZDC7 分 解法 求 线性 方程 组 Ax=b 的 解 
| 调用 格式 ，[xL,D]= SymPos2 (A,b) 
| 其中，A， 线 性 方程 组 的 系数 矩阵 ; 
b:， 线性 方程 组 中 的 常数 向 量 ， 
x: 线性 方程 组 的 解 ; 
EL: ZLD 太 分 解 后 的 世 ( 可 选 的 输出 参数 )， 
| D: ZLDC 分 解 后 的 D ( 可 选 的 输出 参数 ) 








ELD7 分 解法 用 MATLAB 实现 如 下 所 示 ， 
function [fx,L,D]= SymPos2 (Ab) 
szLDI 分 解法 求 线性 方程 组 A&x=b 的 解 

g 线 性 方程 组 的 系数 矩阵 : A 

g 线 性 方程 组 中 的 常数 向 量 : b 

g% 线 性 方程 组 的 解 ， x 

gsZLDr 分 解 后 的 下 三 角 答 阵 : L 

gzZLDC 分 解 后 的 Q 对 角 德 阵 ,，D 


N = Size( 有 A) ; 

DDN(CL):; 

D = eye 人 ny,Dn) ; %L 的 对 角 元 素 为 1 

Q = Zeros (ny,，1):; 

fo =]: 卫 
Q(k,1) = A(k,k)-LIKk,T:(K-L)).x*DL(k,1:(Kk-1L))*xQ(1:(k-1)，1) ，; 
gsD 的 第 k 个 对 角 元 素 


for 1={(Kk+l1) :mn 
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EL(Iv,k) = (ativk)-DIid1:(k-1)) .xD(KkK1:(k-1))xa(1:(k-1)，1))7/datk,1) ， 
g%L 的 第 k 列 
enG 
enmdq 
D=dqiag(Q): 
Yy = SolveDovwmnTriangte(DL,b); g% 求 解 v 


EOoT 守 =]1 : 刀 
Yy(Iiv, 1)=vy(i 1l)vdG(i, 1)， 
enda 
XxX = SolveUpTriangle(transpose(L),y)， g% 求 解 x 
对 称 正定 矩阵 的 LDI 分 解法 解 线性 方程 组 应 用 实例 。 用 LDI7 分 解法 求 下 
列 线性 方程 组 的 解 。 


6 3 -2|| 交 1 
3 4 1 X2 | 二 1 
-2 1 7 .3 1 


解 : 在 MATLAB 命令 窗口 中 输入 : 
>> A=[6 3 -2;3 5 1;-2 1 7]: 
>> b=f17;17; 1】}; 

>> [X,DL,D]= SymPos2 (Ab) 


输出 计算 结果 为 ， 
X= 0.2202 
0.0275 
0.2018 
D= 1.0000 0 0 
0.5000 工 .0000 0 
-0.3333 0.5714 工 .0000 
D= 6.0000 0 0 
0 3.5000 0 
0 0 5.1905 


要 注意 的 是 D 矩阵 对 角 线 上 的 元 素 并 不 是 系数 和 矩阵 的 特征 值 ， 就 合 上 例 来 说 ,和 矩阵 人 A 
的 特征 值 为 1.651$5、7.2698 与 9.0787。 
11.4.3 对称 正定 矩 阵 的 改进 ZD 六 分 解法 


虽然 LD 分 解法 避 开 了 开 方 运算 ， 但 是 它 增加 了 乘法 运算 量 ， 为 了 减少 运算 量 ， 就 
有 如 下 的 改进 算法 。 其 算法 步 又 介绍 如 下 。 
侈 对 上 =1.2…,，， 计 算 : 


大 -1 
人 = 4 一 了》 Ourjimr 


J1=1 
K-1 

罗 = 一 bi (= 大 +L 7 
Pi=] 

以 三 CU Ad 
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候 解 三 角形 方程 组 : 


ZLy= 妨 
Prx=DTy 


ET 了 元 广大 二 器 玫 凡 RTEOU Le 


功能 : 改进 的 ZLPDZ 分 解法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xL,D]= SymPos3 (A,D) 
其 中 ，A: 线性 方程 组 的 系数 矩阵; 
b: 线性 方程 组 中 的 常数 向 量 ; 
x: 线性 方程 组 的 解 ; 
工 ， 改 进 的 ZLD 太 分解 后 的 工 ( 可 选 的 输出 参数 ); 
D: 改进 的 ZLDT 分 解 后 的 D ( 可 选 的 输出 参数 )。 





改进 的 LD 分 解法 用 MATLAB 实现 如 下 所 示 : 


function [xD,D]= SymPos3 (RAR,b) 
8 改进 的 ZDrr 分 解法 求 线性 方程 组 Rx=b 的 解 
g 线 性 方程 组 的 系数 和 矩 阵 : 和 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 : x 

g 改 进 的 ZpDrr 分解 后 的 下 三 角 德 阵 ; 

8 改进 的 ZDz 分 解 后 的 Q 对 角 德 阵 : D 


N = Size( 和 A); 
Dn=N(LI)，; 
= eyeftnn); gL 的 对 角 元 索 为 1 
Q = Zeros(ny,1):， 
RAA = zeros (nn) : g 保 存 的 中 间 变 量 
for k=1 :nm 
Q{K,1) = A(K,K)-AA(K,1I:(K-1L))xtranspose(DLIK,1L:(K-1L)) )， 
gsD 的 第 kx 个 对 角 元 素 
for = (K+1) :了 
AA(i,Kk) = Ai,k)-AA(i 1L:(K-1))x*transpose(L(Ik,1:(k-1))); 
gAA 的 第 k 列 
Li,k) = ARA(i,k)/d(k,1L) 
g%L 的 第 k 列 
enmdaQ 
enaQ 
D=dqiagl(Qq):; 
Yy = SolveDowrnTriangle(L,b) :， g 求 解 y 


for =1:DTmn 
Yy(i,1)=vy(i,1l)/dal(iy1)， 
endQ 
X = SolveUpTriangle(transpose(L) ,yy): g% 求 解 x 


对 称 正定 矩阵 的 改进 LDI7 分 解法 解 线性 方程 组 应 用 实例 。 用 改进 的 LDT7 
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6 3 -2 中 交 ] 
3 4 1 X2 | 三 
-2 1 7 .3 1 


解 : 在 MATLAB 命令 窗口 中 输入 ， 





分 解法 求 下 列 线性 方程 组 的 解 。 





>> RM=I6 3 -2;3 5 1;-2 1 7]， 
>> b=[17:1;I]， 
>> [x,DL,D]= SymPos3 (A,D) 


输出 计算 结果 为 : 
X = 0.2202 
0.0275 
0.2018 
= 1.0000 0 0 
0.5000 工 .0000 0 
-0.3333 0.5714 1.0000 
D= 6.0000 0 0 
0 3.5000 0 
0 0 5.1905 


虽然 改进 的 LDZ 分 解法 减少 了 乘法 的 运算 量 ， 但 它 引 入 了 一 个 中 间 变 量 ， 增 大 了 存 
储量 ， 有 利 也 有 竞 。 

上 面 的 三 种 方法 是 针对 系数 矩阵 为 对 称 正定 矩阵 的 线性 方程 组 ， 至 于 熟 优 熟 劣 ， 就 看 
读者 关注 的 是 时 间 还 是 存储 空间 ， 如 果 存 储 空间 足够 大 ， 显 然 第 三 种 方法 是 首选 方法 。 


用 三 对 角 方 程 组 的 追赶 法 


对 于 系数 矩阵 为 对 角 占 优 的 三 对 角 和 矩阵 ， 它 的 三 角 分 解 比较 特殊 ， 如 下 所 示 ， 
al 友 T MU 芭 
cl az 0 1 Ma2 
do | 0 
Cr-l  Gr 1 1 tn 
其 中 L 为 下 三 角 的 两 对 角 抢 阵 ， 主 对 角 线 元 素 全 为 1， 而 U 为 上 三 角 的 两 对 角 和 矩阵 ， 
这 时 它 的 求解 变 得 十 分 简单 ， 本 质 上 这 是 一 种 三 角 分 解法 ， 但 习惯 上 称 之 为 追赶 法 。 其 算 
法 步骤 介绍 如 下 





命 计算 : 

2 = al 

1 = ci 

码 三友 一 六 di 1 一 2.3 有 
全 求解 ， 
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起 = 饭 
基 = 地 一 丰 -17 


民 = yz /al 


和 一 (天 一 QHDV 


在 MATLAB 中 编程 实现 的 追赶 法 函数 为 ; folowup 
功能 ， 追 赶 法 求 线性 方程 组 Ax=b 的 解 





调用 格式 : x= followup (A,D) 


其 中 ，A， 线 性 方程 组 的 系数 矩阵 ; 
b， 线 性 方程 组 中 的 常数 向 量 ; 
x: 线性 方程 组 的 解 。 


追赶 法 用 MATLAB 实现 如 下 所 示 ， 


function x=followup(A,Pb) 


g 采 用 追赶 法 求 线性 方程 组 Aax=pb 的 解 


g 线 性 方程 组 的 系数 矩阵 A 

g 线 性 方程 组 中 的 常数 向 量 ， b 

g 线 性 方程 组 的 解 : x 

也 二 anKk(A) ; 

for (ii=1:Tm) 
IfE(A(ii) 一 0) 


1 一 2,3，……, 天 


1 一 天 一 1 7 一 2 


disp('Error: 对 角 有 元 素 为 01 '); 


工人 tuUITn 

endQ 

emnda; 

da = ones(tn,1); 

引 = ones(n-1,1); 

C = Ones (mn 一 1) ; 

for (1I=1:Dn-1) 
al(i,1)=A(iI+1l,I) ; 
cf 人 (il1)=A(I，i+L)， 
Q(Ii,，1)=A(I,I)， 

enda 

Qtny,1) = An,Dn); 

g 求 解 Ly=b 的 解 y， 解 保存 在 b 中 ， 


for(i=2:nm) 


Qq(i,1)=dq(i,1) - (al(i-l,1)/d(i-l,1))*c(i-1,1) 7 
bli,1)=b(i,1) - (al(i-l,1) /dl(i-1,1))xb(i-1，1); 


emDqQ 

g 求 解 Ux=y 的 解 x， 

Xt(tny 1) = pn 1l)vdatny,I1L) 
for (1I= (n~1) :1:1) 


X(i, TI) = (bl(iyl)-c(i1)*x(i+l1))VQti1L)， 


enmdq 


ER 追赶 法 求 线性 方程 组 解 的 应 用 实例 。 用 追赶 法 求 下 列 线性 方程 组 的 解 。 
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1 一 3 如 1 
8 2 0 2 ] 
6 3 7 2X3 | 一 | 

l12 4 9| 各 1 

-4 || xx 1 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> R=I1-3000:8200006370;0031249;000-45]; 
>> b=[1:17;17171]; 
>> X= followup(A,Pb) 


输出 计算 结果 为 ， 


x = 0.1923 
-0.2692 
-0.6923 
0.6703 
0.7363 

追赶 法 的 适用 范围 比较 窒 ， 只 有 系数 矩阵 是 三 对 角 阵 的 时 候 才 能 使 用 它 ， 但 是 可 以 通 

过 豪 斯 霍 尔 德 变换 将 普通 矩阵 变换 成 三 对 角 矩 阵 ， 有 关 这 方面 的 知识 可 参考 矩阵 分 析 与 应 

用 方面 的 书 。 


直接 求 逆 法 也 是 一 种 可 以 考虑 的 方法 ， 它 通过 某 种 方法 求 出 系数 矩阵 的 逆 ， 求 解 就 很 
简单 了 。 通 常 求 逆 矩 阵 的 方法 有 初等 变换 法 、 高 斯 - 若 当 消去 法 、 分 块 矩阵 法 、 消 秩 法 等 。 
11.6.1 “加 边 法 求 逆 矩 阵 


加 边 法 求 逆 甜 阵 本 质 上 是 一 种 分 块 求 着， 其 算法 步骤 介绍 如 下 。 
@ 将 系数 矩阵 按 下 面 的 形式 分 块 ， 








1 Cl12 CUo-l | Qin 
1 
CQ21 CQ22 42n-1 上 92n 
， 1 1 4 Cn 
4 二 1 
7 ) 了 
也 
1 下 玫 玫 
Czr-LL Cr-L2 ”Gap-ln-l 1 Gn-Ln 
一 党 瑟 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 人 一 一 一 一 
Cam Cn2 C1n-1 | Cn 


其 中 各 个 部 分 的 计算 公式 如 下 : 
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=-1 
-ln 


六 二 一 一 Gam 二 Co 一 What 
人 ~] 、 、 
， 其 号 为 入 的 道生 阵 
ai Jr- 站 = 42 十 7 一 LV Li 一 1 


Cn Cn 


@ 例 对 上 =1 -1 -2…,! 
如 果 上 >1， 将 水 递归 重复 上 面 的 过 程 ， 否 则 令 47! = 
算法 结束 。 


， 在 MATLAB 中 编程 实现 的 加 边 求 逆 法 函数 为 ，InvAddSide 
功能 : 加 边 求 逆 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[xIA]= InvAddSside (AD) 


1 上 
40a1D 





| 其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 

b:， 线 性 方程 组 中 的 常数 向 量 ; 

x: 线性 方程 组 的 解 ， 

IA， 系 数 矩 阵 的 逆 矩 阵 ( 可 选 的 输出 参数 ) 








追赶 法 用 MATLAB 实现 如 下 所 示 ， 


function [x,IA]=Invadaside(A,D) 
g% 加 边 求 逆 法 求 线性 方程 组 ax=b 的 解 
gs 线 性 方程 组 的 系数 矩阵 : 和 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 : x 

s 系 数 答 阵 的 道 矩 阵 IA 

IA = InV(A) : 

X = ITAxbpb; 

g% 求 逆 和 矩阵 的 递归 函数 

function inva=TnVvI(A) 

N = Sizel(A):; 

mL=N(TIT): 


iftln 一 1) 

invA = 1VA(n,D) ; g 递 归 的 终止 条 件 
elSe 

u=A(1L:(n-L)n)， 

Vv=Amn,L:(n-1L))， 

ia = Inv(R(L:(n-1) ,1:(n-1))); g% 递 归公 式 

An=Ann) 一 vxIRAxuy 

工 一 IAxuU/ADn; 


D = ia 二 iAxuxvxiIAAAn，; 
g 二 一 VxiA/AADn; 

invA = [p raq 1/an]; g 逆 矩阵 
end 


加 边 求 逆 法 求 线性 方程 组 解 的 应 用 实例 。 用 加 边 求 着 法 求 下 列 线性 方程 组 
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的 解 。 


解 : 在 MATLAB 命令 窗口 中 输入 ; 


>> A=[8 3 -2;4 8 -1;0 2 8]; 
>> D=[17171]， 
>> [x,IA]=IDvaddSide(A,D) 


输出 计算 结果 为 : 

x = 0.1226 
0.0769 
0.1058 

IRA = 0.1587 -0.0673 0.0313 
-0.0769 ”0.1538 0 


0.0192 -0.0385 0.1250 
可 以 验证 A"IA 确实 等 于 单位 阵 。 加 边 法 求 逆 的 运算 量 比较 大 ,过 程 中 的 乘法 运算 比 
较 多 ， 而 且 还 用 到 了 递归 函数 ， 这 是 很 耗 时 间 的 。 下 面 的 叶 尔 索 夫 法 相对 简单 一 些 。 
11.6.2 ” 叶 尔 索 夫 法 求 逆 矩阵 


如 果 系数 矩阵 A 的 各 阶 主子 行列 式 不 为 零 ， 可 以 构造 如 下 的 矩阵 序列 
40.40.40.40,40Am 4， 其 中 49 =4-T。 司 "的 递 推 公式 如 下 所 示 : 


AD) 
4 = 1i= 六 = / 
0 1 二 了 二 


而 全 ”的 递 推 公式 如 下 所 示 : 

4 
人 

由 这 两 个 递 推 公式 计算 上 步 ， 就 可 得 到 
400 = 4 

此 种 求 逆 矩阵 的 方法 称 为 叶 尔 索 夫 法 。 

叶 尔 索 夫 法 求 逆 矩 阵 的 算法 步骤 介绍 如 下 。 

合 令 40)=4-17。 

合 对 岂 =12…, ， 计 算 ， 


4 蛮 
4 =11 i= 凡 =/ 
0 1 一 12 关 
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及 (mm)。4(P-D 
4 -Am 人 my 
站 (xD 
1 4oom 


算法 结束 。 


在 MATLAB 中 编程 实现 的 叶 尔 索 夫 求 逆 法 函数 为 ，Yesf 
功能 : 叶 尔 索 夫 求 北 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xIA]= Yesf (A,D) 
其 中 ，A， 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
Xx:， 线性 方程 组 的 解 ; 
IA: 系数 矩阵 的 道 矩 阵 ( 可 选 的 输出 参数 )， 


追赶 法 用 MATLAB 实现 如 下 所 示 : 


function [xx,IA1= Yest(A,Db) 

g 叶 尔 索 夫 求 逆 法 求 线性 方程 组 Ax=b 的 解 
g% 线 性 方程 组 的 系数 矩阵 : &A 

g% 线 性 方程 组 中 的 常数 向 量 : b 

g 线 性 方程 组 的 解 : x 

g 系 数 矩 阵 的 逆 和 矩阵 :IAA 

Size( 有 R) ， 

NI(L); 

AlL = A -eyelnn); 


局 
人 L 


A2 = zeros (nn) ， 
A3 = 
for m=1 :DTm 


Zeros (ny TD) : 


for 工 =1 :DTn 
for 了 =13:m 
Ift(1 ~= my) 
A2(i,j) = Al(I,); 


人 Se 
ifE(Jj 一 pm) 
A2(i, 林 ) = 工 ; 
,elSe 
A2l(i, JJ) = 0); 
end 
emnQ 
emd 
ena sg 第 一 步 递 推 
A3 = A2 -- A2(1:n,m)*aAlltm,1:n)/(LI+Al(mm)); g% 第 二 步 递 推 
AL = A3; 
end 
IA=A3 : 
x = R3xb:; g% 求 解 方程 


叶 尔 索 夫 求 逆 法 求 线性 方程 组 解 的 应 用 实例 。 用 叶 尔 索 夫 求 逆 法 求 下 列 线 
性 方程 组 的 解 。 
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8 3 2 世 1 1 
49 1|z|=1i 
2 6 10i|| 妇 | 11 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> A=[8 3 2749 1;2 6 10]: 
>> bp=[1;1711]:; 
>> [x,IA]= Yesf(A,b) 





输出 计算 结果 为 : 

x = 0.0895 
0.0667 
0.0421 

IA = 0.1474 -0.0316 -0.0263 
-0.0667 0.1333 0 


0.0105 -0.0737 0.1053 

可 以 将 求 得 的 结果 与 上 例 比 较 。 叶 尔 索 夫 求 逆 法 属于 消 秩 法 求 逆 的 一 种 ， 消 秩 法 是 一 
种 通用 的 求 逆 矩 阵 的 递 推 方法 ， 它 通过 步 递 推 一 定 能 求 出 可 逆 矩 阵 的 着， 而 叶 尔 索 夫 法 
是 比较 特殊 的 一 种 ， 要 求 矩 阵 各 阶 主子 式 不 为 零 。 


QR 分 解法 


对 线性 方程 组 Ax = 的 系数 和 矩阵 进行 QR 分 解 ，A=QR， 则 方程 组 可 变 为 ， 
Rxr=OCID 

这 是 三 角 方 程 ， 可 以 用 三 角 方 程 的 解法 求解 。 因 此 关键 是 怎样 得 到 A 的 QR 分 解 后 中 
的 Q 矩阵 和 R 矩阵 ， 比 较 常 用 的 方法 是 施 密 特 正 交 化 方法 ， 用 施 密 特 正 交 化 方法 将 系数 
矩阵 变换 成 正 交 和 矩 阵 Q 后 ， 则 R=OC74。 

QR 分 解法 的 算法 步 又 介绍 如 下 。 

候 将 A 施 密 特 正 交 化 得 到 Q， 

令 R=O74， 
人 求解 三 角 方 程 组 Rr=@7 2 。 


在 MATLAB 中 编程 实现 的 QR 分 解法 函数 为 : qrxq 

功能 ，QR 分 解法 求 线性 方程 组 Ax=b 的 解 

调用 格式 ，[x,Q,.R]= qrxq (A,b) 

其 中 ，A， 线 性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
x: 线性 方程 组 的 解 ; 
Q: QR 分 解 后 的 Q 抢 阵 ( 可 选 的 输出 参数 ) 
R: QR 分 解 后 的 R 矩阵 ( 可 选 的 输出 参数 )。 
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QR 分 解法 用 MATLAB 实现 如 下 所 示 : 


functIon [x,Q,R]=GrxG(A,P) 
gsQR 分 解法 求 线性 方程 组 Ax=b 的 解 


g 线 性 方程 组 的 系数 矩阵 : & 
g 线 性 方程 组 中 的 常数 向 量 : b 
g 线 性 方程 组 的 解 : x 

sg QR 分 解 后 的 Q 德 阵 ，Q 

g QR 分 解 后 的 R 和 矩阵,，R 


N= Size(&A):; 

DE=NOCTLT); 

也 = A; sg 保存 系 数 矩 阵 
Al(l:n,1)=Altl:n,1)/normn(aA(l:n,1));， sg 将 和 的 第 一 列 正规 化 


for =23:n 
for J=T1: (1-1) 
Al:nvi)= All:invi)-dqot(a(l:n,i) ,AL:n,j))xaAat1:n, jl); 
g 使 A 的 第 列 与 前 面 所 有 的 列 正 交 
emnaQ 
Al:nyiz)=RAl(1:n,1iI)Vnormn(A(1:n,i))， 
s 将 和 的 第 关 列 正规 化 
enaQ 
Q = &; g 分 解 出 来 的 正 交 短 阵 
R = transpose(CQ)xB: 
xX=SolveUpTriangle(R,transpose(O)*b); sg 求解 方程 


QR 分 解法 求 线性 方程 组 解 的 应 用 实例 。 用 QR 分 解法 求 下 列 线性 方程 组 的 


8 3 2|| 关 ] 
4 9 1 2 | 二 
2 6 10|| 加 ] 


解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> ARA=[83 2749 1:2 6 10]: 
>> bD=[I;17;1]:; 
>> [X,Q,RI= GIFxXG(A,b) 


输出 计算 结果 为 ， 
x = 0.0895 
0.0667 
0.0421 
Q= 0.8729 -0.4811 “0.0816 


0.4364 0.6949 -0.5715 

0.2182 0.5345 0.8165 

9.1652 7.8558 4.3644 

-0.0000 8.0178 5.0780 
0 0.0000 7.7567 


QR 分 解法 是 一 种 广 受 青睐 的 求解 线性 方程 组 的 方法 ， 从 程序 的 代码 就 可 以 看 出 ， 它 
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2 
的 过 程 十 分 简捷 ， 运 算 十 分 简单 ， 算法 复杂 度 是 OC) 量 级 。 而 且 即 使 系数 矩阵 是 退化 的 


情况 ， 它 也 能 顺利 得 到 Q 和 矩阵 和 R 矩阵， 可 以 说 系数 矩阵 的 全 部 信息 都 体现 在 R 和 矩阵 上 ， 
但 它 的 R 矩阵 却 不 是 通过 消 元 法 得 到 的 ， 因 此 QR 分 解法 没有 消去 法 的 各 种 缺点 。 

利用 QR 分 解法 可 以 很 方便 地 判断 线性 方程 组 是 否 有 解 ， 进 而 求 退 化 的 线性 方程 组 的 
通 解 ， 读 者 可 以 自己 试 试 。 


可 以 说 ,直接 法 解 线性 方程 组 的 思路 都 是 最 终 把 系数 矩阵 化 成 三 角 阵 的 形式 ， 高 斯 顺 
序 消去 法 的 适应 性 较 低 ， 一 旦 稀疏 矩阵 的 对 角 元 素 出 现 0 的 情况 ， 它 就 崩 溃 了 ， 因 此 基本 
上 不 用 它 来 求解 线性 方程 组 。 比 较 推荐 的 方法 是 高 斯 - 若 当 消去 法 和 QR 分 解法 。 高 斯 - 共 
当 消 去 法 没有 烦琐 的 行列 交换 ， 因 此 也 常常 用 来 求 矩 阵 的 着 ， 而 QR 分 解法 是 最 强大 的 方 
法 ， 不 仅 适 应 范围 广 ， 而 且 速 度 也 快 ， 是 求解 线性 方程 组 的 首选 方法 ， 即 使 在 不 能 确定 是 
否 有 解 的 情况 下 ，QR 分 解法 也 能 迅速 求 出 方程 组 是 否 有 解 。 
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第 人 2 章 ” 解 线性 方程 组 的 迭代 ; 


前 面 一 章 讨 论 了 线性 方程 组 的 直接 解法 ， 这 章 介 绍 线性 方程 组 的 迭代 解法 。 与 直接 法 
不 同 ， 和 迭代 法 不 是 通过 预先 规定 好 的 有 限 步 算术 运算 求 得 方程 组 的 解 ， 而 是 从 某 些 初始 向 
量 出 发 ， 按 一 定 的 迭代 步骤 逐次 算出 近似 解 向 量 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 求解 线性 方程 组 的 迭代 法 ， 而 且 还 能 误 练 使 用 
MATLAB 编程 来 实现 这 些 算 法 。 


用 本钱 常用 进 代 法 


对 于 款 阶 线性 方程 组 4x = 有 ， 和 迭代 公式 一 般 可 以 写成 如 下 的 形式 ， 
XK+L 三 BXk 十 二 

其 中 xx 为 第 不 次 迭代 的 值 ，r 为 常 向 量 ， 如 称 为 迭代 和 矩 阵 ， 采 用 不 同 的 及 就 得 到 不 同 
的 迭代 法 。 和 迭代 法 是 否 收敛 完全 取决 于 五 的 性 态 。 对 于 无 参数 的 迭代 法 ， 其 收敛 的 充 要 条 
件 是 迁 代 和 矩阵 的 谱 半 径 小 于 1。 

用 从 代 法 求解 线性 方程 组 的 理论 在 20 世纪 50 年 代 就 已 经 形成 ,经 典 的 雅 可 比 和 迭代 法 、 
高 斯 迁 代 法 、 超 松弛 和 迭代 法 等 在 那 时 就 已 经 发 展 得 十 分 成 熟 了 。 而 后 来 出 现 的 梯度 法 ， 再 
结合 预 处 理 技 术 则 后 来 居 上 ， 取 得 了 不 少 成 果 。 


12.1.1 。 理 查 森 迭 代 法 


理 查 森 适 代 法 可 以 说 是 最 简单 的 迭代 法 了 ， 它 采用 的 迭代 公式 如 下 ， 
Xk+l =( 了 一 AI)XK 十 忆 





其 中 7 为 单位 矩阵 。 


在 MATLAB 中 编程 实现 的 理 查 森 迭 代 法 函数 为 ， TS 
功能 : 理 查 森 迭代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xn]=rs(A,b,x0,eps,MD) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ， 
x0: 迭代 初始 向 量 ; 
eps:， 解 的 精度 控制 ( 此 参数 可 选 ); 
M: 和 迭代 步 数控 制 数 可 选 ); | 
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X: 线性 方程 组 的 解 ; 
n: 求 出 所 需 精度 的 解 实际 的 迭代 步 数 。 


理 查 森 迭代 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [xX,nl=rs(A,b,x0,eps,M) 
g 采 用 理 查 森 和 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 : 和 
g 线 性 方程 组 中 的 常数 向 量 : b 
g% 和 迭代 初始 向 量 : x0 
# 解 的 精度 控制 ; epSs 
gs 迭代 步 数控 制 : M 
g 线 性 方程 组 的 解 : x 
g 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 ，n 
if(nargin 一 3) 
eps = 1.0e-6:; seps 表示 迭代 精度 


M = 10000; %M 表示 迭代 步 数 的 限制 值 


elseif (nargin 一 4) 
M = 10000: 
enqQ 
工 =eye(size(A) ); 
D=07 
X=X0 
tol=1， 
g% 和 迭代 过 程 
while (tol>eps) 
X 二 (I-A) xx0+PD; 


mn 一 +1; sm 为 最 终 求 出 解 时 的 迭代 步 数 


tol = morm(X-x0) ; 
X0 = X; 
(nmn>=M) 
disp('wWarning: 人 迭代 次 数 太 多 ， 可 能 不 收 误 |! ，) ; 
TeturDny， 
end 
enQ 


理 查 森 迭代 法 求解 线性 方程 组 应 用 实例 。 用 理 查 森 迭 代 法 求解 线性 方程 


其 中 取 初 始 值 为 [0.0.0]。 


0.8 -0.01 0.12 || 疝 1 

-0.01 0.84 0.0$ xi |=|1 

0.12 0.05 0.88 || 闻 1 
解 ， 用 理 查 森 迭 代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ， 
>> A=[0.8 -0.01 0.12;-0.01 0.84 0.05;0.12 0.05 0.88] 
>> b=[1;171]; 


>> X0O=[0:0;0] 
>> [xx,Dn]=rs( 和 Ab,x0) 
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输出 的 计算 结果 为 : 
X= 1.1268 
1.1493 
0.9174 
输出 的 迭代 次 数 为 ， 
叫 = 12 


经 过 12 步 迭 代 ， 理 查 森 和 迭代 法 求 出 了 方程 组 的 解 。 
对 上 述 迭 代 计 算 结 果 进 行 验证 ， 在 MATLAB 命令 窗口 中 输入 如 下 程序 ， 
>>> 人 入 * 并 
输出 结果 为 : 
ans = 1 .0000 

1.0000 

1.0000 
如 此 就 验证 了 解 的 正确 性 。 一 般 情 况 下 ， 理 查 森 迭代 法 难以 收 你 ， 因 为 要 使 LA 的 谱 

半径 小 于 1， 通常 要 求 A 是 严格 对 角 占 优 的 矩阵。 
理 查 森 欠 代 法 还 有 另外 一 种 带 友 代 参数 的 格式 : 
JE+] 一 (7 一 O4)Xx 二 Op 


其 中 7 为 单位 矩阵 ，ow 为 欠 代 参数 。 


在 MAILAB 中 编程 实现 的 理 查 森 参数 迭代 法 函数 为 ，crs 

功能 ， 理 查 森 参数 迭代 法 求 线性 方程 组 Ax=b 的 解 | 

调用 格式 : [xnl=crs(A,b,x0,weps,M) 

其 中 ，A: 线性 方程 组 的 系数 和 矩阵; 
b， 线 性 方程 组 中 的 常数 向 量 ; 
x0: 和 迭代 初始 向 量 ， 

| w: 迭代 参数 ; | 

eps: 解 的 精度 控制 ( 此 参数 可 选 )， 

M: 迭代 步 数控 制 ( 此 参数 可 选 ) 

x:， 线性 方程 组 的 解 








理 查 森 参 数 迭 代 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [xDnl=crs(RA,b,x0,weps,M) 

g% 采 用 理 查 森 参 数 迭 代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 ,和 

g 线 性 方程 组 中 的 常数 向 量 : b 

% 和 迭代 初始 向 量 : x0 

gs 欠 代 参 数 : W 
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gs 解 的 精度 控制 : eps 

g% 迭 代步 数控 制 : M 

g 线 性 方程 组 的 解 : x 

g 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 : an 


Ift(nargin 一 4) 
epbs = 1.0e-6:; %eps 表示 人 迭代 精度 
M = 10000; gsM 表示 和 迭代 步 数 的 限制 值 
elseif(nargin 一 5) 
M = 10000; 
所 了 对 


TI =eye(size( 有 ) ) ; 

D=0 

X=X0 

toO]=1; 

g% 人 迭代 过 程 

while (tol>eps) 

(I 工 -WwWxA) *XOT+WxD， 

n + 1; sn 为 最 终 求 出 解 时 的 迭代 步 数 


tol = mnorm(X-X0) ; 


葡 


卫 


X0 三 X; 
革 ft (mn>=M) 
qisp('Warning: 迭 代 次 数 太 多 ， 可 能 不 收效 ! ) ; 
returny; 
end 
eDnQ 


理 查 森 参数 迭代 法 求解 线性 方程 组 应 用 实例 。 用 理 查 森 参 数 迭 代 法 求解 下 
列 线性 方程 组 ， 其 中 取 初 始 值 为 [0.0.0]。 


0.8 -0.01 0.12 呈 ] 

-0.01 0.84 0.05 ||xz2 1=|1 

0.12 0.03 0.88 | 加 1 
解 : 用 理 查 森 参数 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ， 
>> A=[0.8 -0.01 0.12;:-0.01 0.84 0.05;0.12 0.05 0.88]:; 
>> bp=[1;:17)1]) 


>> X0=[07070]; 
>> [xnl=crs(RA bx0,1.2) 


输出 的 计算 结果 为 : 
文 = 1.1268 
1 .1493 
0.9174 
输出 的 迭代 次 数 为 : 
= 10 


通过 选取 不 同 的 迭代 参数 ， 可 以 减少 迭代 步 数 。 
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12.1.2 ”广义 理 查 森 和 迭代 法 


广义 理 查 森 迭代 法 引入 了 了 个 友 代 参数 ， 其 欠 代 格式 为 : 
MkH 一 (一 04) 了 以 十 92D 





其 中 了 为 单位 拭 阵 ， 扎 是 由 于 个 迭代 参数 组 成 的 对 角 阵 ， 吕 = diag(ol,aoz，…,on)。 


功能 ; 理 查 森 迭代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xm=grs(A,b,x0, W ,eps, M) 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 
b: 线性 方程 组 中 的 常数 向 量 ; 
xX0: 迭代 初始 向 量 ; 
W: 迭代 参数 矩阵 ; 
eps: 解 的 精度 控制 { 此 参数 可 选 ); 
M: 迭代 步 数 控制 ( 此 参数 可 选 ); 
X: 线性 方程 组 的 解 ; 
n: 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 。 


广义 理 查 森 迭代 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [xDn]=grs(RA,b,x0,W,eps,M) 
g 采 用 理 查 森 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 和 矩阵: & 

g% 线 性 方程 组 中 的 常数 向 量 : b 

gg 迭代 初始 向 量 : x0 

g% 和 迭代 参数 矩阵: W 

gs 解 的 精度 控制 ，eps 

g% 和 迭代 步 数控 制 : M 

g 线 性 方程 组 的 解 : x 

g 求 出 所 需 精度 的 解 实际 的 迭代 步 数 ,mn 


if(nargin 一 4) 
ebps = 1.0e-6; geps 表示 迭代 精度 
M = 10000; sM 表示 和 迭代 步 数 的 限制 值 
elseif (nargin 一 5) 
M = 10000: 
end 
II =eve(sSize(A)) ; 
mn=0， 
X=X0 ; 
Lo]l=11; g 前 后 两 次 欠 代 结果 误差 
% 和 迭代 过 程 
while (tol>eps) 
X = (ITI-WxRA) xx0O+WxD; g% 从 代 公式 
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nm=DTmn+T; sn 为 最 终 求 出 解 时 的 迭代 步 数 
to = morm(X-X0O) ; 
XO0 = X; 
IE (n>=M) 
aisp('Warning: 迭 代 次 数 太 多 ， 可 能 不 收 伊 ! ') ; 
Fetuzny 
eDndq 
end 


刀 1 











广义 理 查 森 迭 代 法 求解 线性 方程 组 应 用 实例 。 用 广义 理 查 森 迁 代 法 求解 下 
列 线性 方程 组 ， 其 中 取 初始 值 为 [0,0.0]。 
1 
-0.01 0.84 0.05 =|1 
0.12 ”0.05 0.88 1 
>> D=[1.1)?1.2;1.21]:， 
>> W=Qiag(D) : 
>> b=[1:1;1]:; 
>> X0=[0;0;0]:; 


0.8 -0.01 四 
解 : 用 广义 理 查 森 迭 代 法 求解 ， 在 MATILAB 命令 窗口 中 输入 求解 程序 : 
>> RM=[0.8 -0.01 0.12:-0.01 0.84 0.05;0.12 0.05 0.88j 
>> [xDn=grs(A,b,x0, 人 ) 


输出 的 计算 结果 为 
广 = 1.1268 
1.1493 
0.9174 
输出 的 迭代 次 数 为 : 
Da = 10 


广义 理 查 森 迭代 法 采取 了 多 个 迭代 参数 ， 因 此 它 比较 容易 收敛 一 些 ， 此 法 收敛 的 条 件 
是 A 对 称 正 定 ， 且 29Q-1 -4 正定 。 


12.1.3 ” 雅 可 比 大 代 法 


如 果 系 数 和 矩阵 4 的 主 对 角 元 全 不 为 0， 取 
有 =7 一 DA43 
= 万 -二 
其 中 刀 是 由 4 的 主 对 角 元 素 组 成 的 对 角 阵 。 则 和 迭代 公式 为 ; 
XeHL = (一 站 -L4)x 二 DD- 功 
这 种 迭代 方法 称 为 雅 可 比 旬 代 法 。 


| 


在 MATLAB 中 编程 实现 的 Jacobi 迭代 法 函数 为 : jacobi 
| 


| 功能: 雅 可 比 欠 代 法 求 线性 方程 组 Ax=b 的 解 | 
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Cretroerotorereemeworrrererereeaerer ee 本 一 一 全 一 


四 调用 格式 : [xn]= jacobi (A,b,x0,eps, MD 
| 其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 
b， 线 性 方程 组 中 的 常数 向 量 ; 
x0: 和 迭代 初始 向 量 ; 
| eps: 解 的 精度 控制 ( 此 参数 可 选 ); | 
M:， 迭代 步 数控 制 ( 此 参数 可 选 ) 
x， 线 性 方程 组 的 解 ， 
n: 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 。 


雅 可 比 返 代 法 的 MATLAB 程序 代码 如 下 所 示 ; 


function [x,nal=jacobi(aA,b,x0,eps,M) 
g 及 用 雅 可 比 迭 代 法 求 线性 方程 组 Rax=b 的 解 

g 线 性 方程 组 的 系数 矩阵 ，A 

g 线 性 方程 组 中 的 常数 向 量 ，b 

g 和 迭代 初始 向 量 : x0 

% 解 的 精度 控制 ; epS 

g% 和 迭代 步 数控 制 ，M 

g 线 性 方程 组 的 解 : x 

g% 求 出 所 需 精度 的 解 实际 的 迭代 步 数 : mn 


if Pargin 一 3 





ebpSs= 1.0e 一 6; 


M = 10000: 
elselif nargin 一 4 
M = 10000: 

enda 


D=diag(diag(aA) ) ; gs 求 RA 的 对 角 和 矩阵 
L=-tril(A,-1) ， g% 求 A 的 下 三 角 阵 


U=-triu(Aa,1) g 求 六 的 上 三 角 阵 
B=DA (CL+U) ; 
f=DANP; 
X=XO0 ; 
n=0; g 途 代 次 数 
to1=1; g 前 后 两 次 迭代 结果 误差 
while tol>=eps 
x = BxxO+E， g% 和 迭代 公式 
也 三 D+1:; 
tol = Porm(x-x0) 
X0 三 X; 
工 E (D>=M) 
aisp('wWarning: 欠 代 次 数 太 多 ， 可 能 不 收 效 | ) ; 
TetuzDny: 
endQ 
enQ 


用 雅 可 比 远 代 法 求解 线性 方程 组 应 用 实例 。 用 雅 可 比 迁 代 法 求解 下 列 线性 方 
程 组 ， 其 中 取 初 始 值 为 [0.0,0]。 


340 外 知 芭 多 


第 4 章 ， 解 线性 方程 组 的 迭代 法 








0.98 -0.05 -0.02 || 六 1 
-0.04 -0.9 0.07 1 和 21=|1 
-0.02 0.09 0.94 玫 和 1 














解 ， 用 雅 可 比 迭 代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ; 


>>A= [0.98 -0.05 -0.02;-0.04 -0.9 0.07;-0.02 0.09 0.94]1; 
>> b=[17)17;:1]; 

>> X0=[0:070]) 

>> [xDnl=jacopbi(A,b,Xx0) 


输出 的 计算 结果 为 : 
X= 0.9904 
一 .0628 
1.1867 
输出 的 迭代 次 数 为 ; 
nm= 8 


雅 可 比 迭 代 法 对 任意 初始 向 量 z 收 敛 的 充 要 条 件 为 B 的 谱 半径 小 于 1。 
12.1.4 ”高 斯 - 赛 德尔 迭代 法 


仍然 设 系数 矩阵 4 的 主 对 角 元 全 不 为 0， 如 果 对 4 作 以 下 分 解 : 
4= 万 - 工 一 忆 7 
其 中 刀 的 意义 同 雅 可 比 迭 代 法 ， 为 下 三 角 矩 阵 ，Q 为 上 三 角 和 矩阵 ， 就 得 到 高 斯 - 赛 
德尔 迁 代 法 ， 它 的 迭代 公式 为 : 





| 功能: 高 斯 - 赛 德尔 迭代 法 求 线性 方程 组 Ax=b 的 解 | 
调用 格式 ，[x,n]= gauseidel (A,b,x0,eps,MD) | 
其 中 ，A， 线性 方程 组 的 系数 矩阵 ， 

b: 线性 方程 组 中 的 常数 向 量 ; 
x0， 和 迭代 初始 向 量 ; 
eps: 解 的 精度 控制 ( 此 参数 可 选 ) | 
M， 闪 代 步 数控 制 ( 此 参数 可 选 } 
x:， 线性 方程 组 的 解 ， 

n:， 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 。 


高 斯 - 赛 尔 德 迭代 法 的 MAITLAB 程序 代码 如 下 所 示 : 


function fx,nj=gauseidel (ADP,x0,eps, MI) 
g 采 用 高 斯 - 赛 德 尔 迭 代 法 求 线性 方程 组 Rx=b 的 解 
g 线 性 方程 组 的 系数 和 矩阵; A 

g% 线 性 方程 组 中 的 常数 向 量 : Pb 
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g% 人 迭代 初始 向 量 : x0 
g% 解 的 精度 控制 ，eps 
g% 和 迭代 步 数控 制 : M 
g 线 性 方程 组 的 解 : x 
g 求 出 所 需 精度 的 解 实际 的 友 代 步 数 : n 
It margin= 一 3 
eps= 1 .0e-6:; 


M = 10000: 
elseiftf nargin 一 4 

M = 10000:; 
endQ 
D=qiag(diag(A) ) ; g 求 A 的 对 角 和 矩阵 
L=-Eril(A, 一 1) g 求 &A 的 下 三 角 阵 
U=-triu(A, LI) ; g 求 R 的 上 三 角 阵 
G=(D-D)AU; 
ft= (D~L) Nb:; 
X=X0 ; 
n=0: g% 和 迭代 次 数 
tol=1; g 前 后 两 次 迭代 结果 误差 
whnile 七 D1>=epSs 

X = GxXx0O+f; g% 人 迭代 公 式 

Dn = 三 mm+1， 

革 ol = morm (X 一 XO) ， 

XO = 区; 

Ift(n>=M) 

disp('Warning: 迭代 次 数 太 多 ， 可 能 不 收敛 ! ' ) ; 
retuzrnm; 
emnaQ 


ena 
高 斯 - 赛 德尔 迭代 法 求解 线性 方程 组 应 用 实例 。 用 高 斯 - 赛 德尔 和 迭 代 法 求解 
下 列 线 性 方程 组 ， 其 中 取 初 始 值 为 [0.0.0]。 
0.98 ” -0.03 -0.02 | 六 1 
-0.04 -0.9 0.07 外 马上 =| 1 
-0.02 0.09 0.94 | 加 
解 : 用 高 斯 - 赛 德 尔 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ， 


>> AAA= [0.98 -0.05 -0.02;-0.04 -0.9 0.07;-0.02 0.09 0.94]:; 
>> b=[1; 1 1 

>> XO=[07;0;0]; 

>> [xDn=gauseiael(A,b,Xx0) 


输出 的 计算 结果 为 : 


X= 0.9904 
一 .0628 
1.1867 


输出 的 迭代 次 数 为 ， 
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nm = 5 
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如 果 对 4 作 以 下 分 裂 : 
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4=(D-oOD-4 一 OO)D+OD) 


其 中 CO、7、 忆 的 意义 与 高 斯 - 赛 德尔 迭代 法 相同 。 


避 是 一 个 事先 选 好 的 常数 ， 称 为 松弛 因子 ， 当 w>1l 时 叫 超 松弛 法 ， 也 叫 SOR 迭代 法 ; 
当 <1 时 叫 低 松弛 法 。 其 迭代 公式 为 : 
=(D-oODrIQ-oD+w]z +aD-oDDTP 


关于 超 松弛 迭代 法 的 收 敛 性 有 如 下 结论 : 


若 系 数 和 矩阵 4 对 称 正定 ， 当 0<c<2，SOR 迭代 法 收敛 。 





r 一 一 一 一 一 


功能 : 超 松弛 和 迭代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xn]= SOR (A,b,x0,weps,M) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 
b:， 线性 方程 组 中 的 常数 向 量 ; 
x0: 迭代 初始 向 量 ; 
w: 松弛 因子 ; 
eps: 解 的 精度 控制 ( 此 参数 可 选 ); 
M: 迭代 步 数控 制 ( 此 参数 可 选 ); 
x: 线性 方程 组 的 解 
n:， 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 。 





超 松弛 迭代 法 的 MATLAB 程序 代码 如 下 所 示 .: 


function [xnl=SOR(A,b,x0,weps,M) 
gs 采 用 超 松弛 人 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 : & 

gs 线性 方程 组 中 的 常数 向 量 : b 
迭代 初始 向 量 : x0 

g 松 弛 因子 : w 

gs 解 的 精度 控制 : eps 

g 和 迭代 步 数控 制 : M 

g 线 性 方程 组 的 解 : x 

g 求 出 所 需 精 度 的 解 实际 的 欠 代 步 数 : mn 


f mnargin 一 4 


eps= 1.0e~6: 


M = 10000: 
elseif nargin 一 5 
M = 10000: 

enaQ 
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It(w<=0 11 w>=2) 

人 ITYOI 7 

工 etUurDm 
emda 
D=dqiag(aiag(A) ) ; g 求 RA 的 对 角 和 天 阵 
L=-Eril(RA, 一 1) g% 求 六 的 下 三 角 阵 
U=-triul(Ra, 1L); g% 求 AR 的 上 三 角 阵 


B=inv(D-Lxw)x*((1-w) xD+wxU) ， 
f=wxinvV( (D-Lxw) ) xD; 


X=X0 : 
Dn=0:; g 和 迭代 次 数 
tol1=1; g 前 后 两 次 迭代 结果 误差 
while tol>=epSs 
区 = Bxx0O+E; # 和 迭代 公式 
了 三 有 +1; 
tol = mozm(X-xX0O) 
X0 三 入 
1E (n>=M) 
disp('Warning: 迭代 次 数 太 多 ， 可 能 不 收敛 ! ') ; 
zetUurTm 7; 
endQ 
Gan 


超 松弛 从 代 法 求解 线性 方程 组 应 用 实例 。 用 超 松 弛 和 迭代 法 求解 下 列 线性 方 


程 组 ， 其 中 取 初 始 值 为 [0,0.0]。 


0.68 001 0.12 | 0 
0.03 -0.54 -0.05|‖ 姑 |=|1 
02 008 074| 妈 | 11 
解 ， 用 超 松弛 和 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 


>> A= [0.68 0.01 0.12;0.03 -0.54 -0.05;0.2 0.08 0.74] 
>> 了 [17171]:; 

>> x0 = [07070]; 

>> [xDnj=SOR(A,b,x0,1.07) 


输出 的 计算 结果 为 : 


X= 1.2851 
-1.8924 
1.2086 


输出 的 迭代 次 数 为 ; 


了 二 7 


超 松弛 和 迭代 法 还 有 一 种 改进 形式 ， 叫 做 对 称 逐 次 超 松弛 和 迭代 法 ( SSOR )， 它 采用 的 是 


两 步 迭 代 公 式 : 
( 忆 -OL) 了 欢 +1U2 三 OLD 十 站 ) 十 (上 - CD)ZDDXK 
(D-OPD)AH=OCLE +D+(-O)Dxkruy2 
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在 MATLAB 中 编程 实 实现 的 对 称 逐 次 超 松弛 和 代 法 函数 为 SSOR 
功能 : 对 称 逐 次 超 松弛 和 迭 代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xm]=SSOR (A,b,x0,weps:MD 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 

b: 线性 方程 组 中 的 常数 向 量 ; 

x0: 迭代 初始 向 量 ; 

w:， 松弛 因子 ; 

eps:， 解 的 精度 控制 ( 此 参数 可 选 ); 

M: 人 迭代 步 数 控制 ( 此 参数 可 选 )， 

和 

: 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 。 





对 称 ; 逐次 超 松弛 送 代 法 的 MATLAB 程序 代码 如 下 厅 二 


tunction [x,nj=SSORI(A,Pb,x0,weps,M) 
g% 采 用 对 称 逐 次 超 松弛 和 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 和 矩阵: & 
g 线 性 方程 组 中 的 常数 向 量 : b 
g% 和 迭代 初始 向 量 ，x0 
gs 松弛 因子 : w 
g 解 的 精度 控制 ， epPS 
g 和 迭代 步 数控 制 ， M 
g 线 性 方程 组 的 解 : x 
g 求 出 所 需 精度 的 解 实际 的 迭代 步 数 : mn 
If nargin 一 4 
epSs= 1 工 .0e-6; 


M = 10000; 
elseif nargin 一 5 

M = 10000; 
enadQ 
工 (WwW<=0 | 1，w>=2 ) 

全 工 ZOLT 

Feturn 
end 
D=daiag(aiag(R&A) ) ; g 求 A 的 对 角 和 矩 阵 
L=-tril(R,-1); g 求 &A 的 下 三 角 阵 
U=-triu(aA,1):， g 求 A 的 上 三 角 阵 
BTI=inV(D-Lxw)x*((1-w) xD+wxU) ， g% 第 一 步 的 迭代 矩阵 
B2=inv(D-Uxw) x((1-w)xD+HwxT) ， g 第 二 步 的 迭代 矩阵 


f1=wxinv((D-DLxw) ) xDp; 

f2=wx*inv( (D-Uxw) ) xD; 

X=X0 

mn=0 1; 迭代 次 数 
tol=1:， 

gs 迭代 过 程 


while tol>=eps 
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X1L = BT1x*X0O+f1; 

X 三 B2xX1+f2:， 

D = mm+1: 

tol = norm(X-XxX0O) ， 

X0 一 和; 

IE (n>=M) 
aisp('Warning: 迭代 次 数 太 多 ， 可 能 不 收敛 ! ') ; 
Teturznmn 

eDnQ 

enmdQ 


对 称 逐 次 超 松弛 从 代 法 求解 线性 方程 组 应 用 实例 。 用 对 称 逐 次 超 松弛 和 迭 代 
法 求解 下 列 线性 方程 组 ， 其 中 取 初始 值 为 [0.0.0]。 





0.68 0.01 0.12 | 六 1 
0.03 -0.54 -0.05|| 妇 |=|1 
0.2 0.08 0.74 |‖| 恩 1 














解 : 用 对 称 逐 次 超 松弛 和 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ， 


>>RA= [0.68 0.01 0.12;0.03 -0.54 -0.05;0.2 0.08 0.74] ; 
>>Dp= [1717;1]7; 

>> xX0 = [070;:0]; 

>> [fx,nl=SSsOR(A,b,x0,1.07) % 松 弛 因子 为 1.07 


输出 的 计算 结果 为 : 
X = 1 工 .2851 
一 1.8924 
1.2086 
输出 的 迭代 次 数 为 ; 
= 7 


上 面 的 两 个 例子 采用 的 是 同一 个 线性 方程 组 ， 且 采用 的 松弛 系数 都 是 1.25， 从 求解 所 
需 的 步骤 来 看 ， 超 松弛 和 迭代 法 比 对 称 逐 次 超 松弛 和 迭代 法 快 一 些 。 


12.1.6，“ 雅 可 比 超 松弛 友 代 法 


雅 可 比 超 松弛 和 迭代 法 采用 如 下 的 迭代 公式 ， 
Xt 二 和 一 ODTOAx 一 站 
mw 为 迭代 参数 , 它 的 大 小 不 但 影响 迭代 法 是 否 收敛 , 而 且 还 影响 着 迭代 法 的 收敛 速度 ， 
建议 取 0<w<2。 








| ”在 MATLAB 中 编程 实现 的 雅 可 比 超 松弛 迭代 法 孙 数 为 ，JOR 
| 动能 ， 雅 可 比 超 松弛 迁 代 法 求 线性 方程 组 Ax=b 的 解 

调用 格式 : [xn]= JOR (A,b,x0,weps,MD 

其 中 ，A， 线性 方程 组 的 系数 矩阵 ， 
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b: 线性 方程 组 中 的 常数 向 量 ; 
x0: 迭代 初始 向 量 ; 
w: 松弛 因子 ; 
| eps:， 解 的 精度 控制 ( 此 参数 可 选 )， 
| M: 迭代 步 数控 制 ( 此 参数 可 选 ); 
x: 线性 方程 组 的 解 
n: 求 出 所 需 精度 的 解 实际 的 迭代 步 数 。 


雅 可 比 超 松弛 和 迭代 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function [x,Dn]=JOR(A,b,xo,weps,M) 

g 采 用 雅 可 比 超 松弛 和 迭代 法 求 线性 方程 组 Rx=b 的 解 
g 线 性 方程 组 的 系数 矩阵 ，& 

8 线性 方程 组 中 的 常数 向 量 : b 

gs 迭代 初始 向 量 : x0 

g 松 弛 因子 : W 

g% 解 的 精度 控制 ，eps 

g% 和 迭代 步 数 控制 : M 

g 线 性 方程 组 的 解 : x 

g% 求 出 所 需 精度 的 解 实际 的 迭代 步 数 : mn 


If mnargin= 一 4 





epPpSs= 1.0e-6: 
M = 10000:， 

elseif nargin 一 5 
M = 10000:， 


emndq 

if (w<=0 11 w>=2) g 收 敛 条 件 要 求 
erTOr， 
FeturDny' 

endQ 


D=daiag(aiag(a) ) ， g% 求 A 的 对 角 抢 阵 


B=wxinv(D) ， 


g 和 迭代 过 程 

X=X0 

n=0; 8 迭代 次 数 
七 D1=1; 

g 和 迭代 过 程 


while 七 DL1>=epSs 
X=X0O-Bx (AxX0O-b) ; 
也 三 D+1: 
tol = norm(x-x0) ; 
X0 三 又 
If (nn>=M) 


Qisp('Warning: 迭代 次 数 太 多 ， 可 能 不 收敛 ，) ， 


etutzDn， 
end 
endq 
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雅 可比 超 松弛 和 迭代 法 收敛 的 条 件 是 4 为 对 称 正定 矩阵 ， 且 2oD-” -4 正定 。 


解 下 列 线性 方程 组 ， 其 中 取 初 始 值 为 [0.0.0]。 


了 
| 





3 


ED 雅 可 比 超 松弛 和 迭 代 法 求 钨 红 件 方程 组 应 用 实例 。 用 雅 可 比 超 松弛 选 代 法 求 
0.68 0.01 0.12 |‖| 六 
0.03 -054 -0.05 | xz 


1 
02 0068 0.74 1 
解 ， 用 雅 可 比 超 松弛 和 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 : 
>>A=10.680.01 .0.12;0.03 -0.54 -0.05;0.2 0.08 0.74]: 
>> pbp= [17;17;1]7 


>> x0 = [07070]:; 
>> [xy,Dn]=JOR(A,P,x0,1.07) 











输出 的 计算 结果 为 ， 
X 一 1 工 .2851 
-1.8924 
1 .2086 
输出 的 迭代 次 数 为 : 
D = 14 


12.1.7 ”两 步 和 迭代 法 


两 步 迭 代 法 的 迭代 公式 如 下 所 示 : 
(D-L)xruv2= Le+P 
(D-DU)xkrl = ZLXk+rl2 十 忆 
其 中 D、、V 的 定义 和 前 面 一 样 。 


功能 :两 步 迭 代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[x:n]= twostep (A,b,x0,eps, MD) 
其 中 ，A， 线 性 方程 组 的 系数 矩阵 ; 
b， 线 性 方程 组 中 的 常数 向 量 ; 
x0， 适 代 初始 向 量 ， 
eps， 解 的 精度 控制 ( 此 参数 可 选 ): | 
M: 迭代 步 数控 制 ( 此 参数 可 选 ) 
| 
| 





x: 线性 方程 组 的 解 
n: 求 出 所 需 精度 的 解 实际 的 迭代 步 数 。 


两 步 迭 代 法 的 MATLAB 程序 代码 如 下 所 示 ; 


function [x,nlj=twostep (ADb,x0,eps,M) 


g% 采 用 两 步 迭 代 法 求 线性 方程 组 Ax=b 的 解 
348 甸 入 入 也 





组 ， 


g 线 性 方程 组 的 系数 矩阵 : A 
g 线 性 方程 组 中 的 常数 向 量 : b 
g% 和 迭代 初始 向 量 : x0 
# 解 的 精度 控制 : ePs 
g 和 迭代 步 数 控制 : M 
sg 线性 方程 组 的 解 : x 
g 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 : mn 
If narg9in 一 3 
epSs= 1.0e-6: 
M = 10000: 
elseif nargin = 一 5 
M = Vararginf1}， 
endq 
D=daiag(diag(A) ) ; g 求 A 的 对 角 和 矩阵 
L=-tril(RA,-1) ; g% 求 &A 的 下 三 角 阵 
U=-LYriu(Aa, 1); g 求 RA 的 上 三 角 阵 
B1=(D-D)ANU; 
B2= (D-U) AD 
fl1=(D-D) Nby; 
f2=(D-U) APp; 
X=X0 
n=01; g% 和 迭代 次 数 
二 ol1=1; 
sg 迭代 过 程 
while 二 ol>=eps 
XL = B1LxXx0O+f1; 
X 一 B2xX1+f2， 


D 三 mn+ly; 

tol = Dorrm(X-x0) ; 

XO = 三 

E (n>=M) 
Qisp('wWarning: 迭代 次 数 太 多 ， 可 能 不 收 你 ! ) ; 
ZeturDn 

enqQ 

enmdQ 
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两 步 迭 代 法 求解 线性 方程 组 应 用 实例 。 用 两 步 迭 代 法 求解 下 列 线性 方程 


其 中 取 初 始 值 为 [0.0.0]。 


9 0 1.2 | 各 1 
0.36 10 -15 之 |=j1 
-2.2 072 8 | 和 1 


解 : 用 两 步 迭 代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ， 


>>A= [901.2;0.36 10 -1.5;-2.2 0.72 8]， 
>>D= [1;:171]: 

>> Xx0 = [0:0;0]， 

>> [X,Dn=JOR(RA,P,x0,1.07) 
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输出 的 计算 结果 为 : 
多 = 0.0925 
0.1176 
0.1398 
输出 的 和 迭代 次 数 为 ; 
mi 三 5 


从 上 面 两 个 例子 可 以 者 出 ， 与 两 步 欠 代 法 比 ，SSOR 迭代 法 稍 快 一 些 。 
12.1.8 ”梯度 法 


梯度 法 相对 于 前 面 几 种 对 系数 矩阵 简单 分 裂 构造 的 迭代 法 而 言 ， 它 无 须 考虑 收敛 的 问 
题 ， 而 且 求解 的 速度 也 相对 较 快 。 下 面 介绍 梯度 法 的 几 种 不 同形 式 。 能 用 以 下 三 种 方法 求 
解 的 条 件 是 系数 和 矩阵 对 称 正 定 。 
12.1.8.1 最速 下 降 法 
最 速 下 降 法 的 基本 思路 是 将 求 线性 方程 组 hx=b 的 解 转 化 为 求 二 次 泛 函 
bo = xz47x 一 207x 的 极 小 值 问题 。 
通常 的 做 法 为 先 任意 给 定 一 个 初始 向 量 ， 然 后 确定 一 个 搜索 的 方向 及 搜索 步 长 ， 如 此 
循环 直到 找到 极 小 值 。 
最 速 下 降 法 采取 的 搜索 方向 是 当前 点 的 负 梯 度 方向 ， 每 次 的 搜索 步 长 都 使 得 泛 函 取 极 
小 值 ， 具 体 的 算法 如 下 : 
迭代 开始 
大 =0,12,… 
挛 一 六 -4xx ; 
,= ( 产 , 产 ) : 
(4 关 , 产 ) 


MXk+1l 二 3 十 CQK 玫 ， 


迭代 结束 






| 在 MATLAB 中 编程 实现 的 最 速 下 降 法 函数 为 ，fastdown 
功能 : 最 速 下 降 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，fxin]= fastdown (A,b,x0,eps) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 
b:， 线性 方程 组 中 的 常数 向 量 ; 
x0:， 迭代 初始 向 量 ; 
eps: 解 的 精度 控制 ( 此 参数 可 选 ); 








350 知 知 知 


多 


组 ， 


第 14 章 解 线性 方程 组 的 迭代 法 


x， 线 性 方程 组 的 解 
n: 求 出 所 需 精 度 的 解 实际 的 途 代步 数 。 


最 速 下 降 法 的 MATLAB 程序 代码 如 下 所 示 : 
function [xnl= fastaqaown (Ab,xXx0,eps) 
g% 采 用 最 速 下 降 法 求 线性 方程 组 Ax=b 的 解 
g% 线 性 方程 组 的 系数 和 矩阵， 
g 线 性 方程 组 中 的 常数 向 量 : b 
g 和 迭代 初始 向 量 : x0 
gs 解 的 精度 控制 :eps 
g% 线 性 方程 组 的 解 : x 
gs 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 : n 
if(nargin 一 3) 
eps = 1.0e 一 6; 


endQ 

X=XO 

D=0 

七 DT=1; 

while(tol>eps) g% 以 下 过 程 可 参考 算法 流程 


二 D-Ax*xXx0: 
Q = aot(rr)/dot(Ax*r,r)， 
X 一 X0O+QxT， 
七 D1 三 morm(X-x0) ; 
XO 一 入 
D 一 商 十 工 : 
endQ 


最 速 下 降 法 求解 线性 方程 组 应 用 实例 。 用 最 速 下 降 法 求解 下 列 线性 方程 


其 中 取 初 始 值 为 [0,0,0]。 


9 0 1.2 9 T 
0.36 10 -1.5|z 妇 21=|1 
-2.2 0.72 8 | 加 1 


解 ， 用 最 速 下 降 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 : 


>> 入 [9 0 1.2;0.36 10 -1.5;-2.2 0.72 8]: 
>> 了 [1;1;1]， 

>> x0 三 [0;0;01]; 

>> [xDnl=fastaown (AP XxO0) 


引 贞 


输出 的 计算 结果 为 : 
X = 0.0925 
0.1176 
0.1398 
输出 的 迭代 次 数 为 ， 
了 三 9 
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当 系 数 矩 阵 为 病态 矩阵 时 ， 最 速 下 降 法 收 信 极 慢 ， 因 此 在 实际 中 很 少 直 接 用 它 ， 比 较 
常用 的 是 由 它 衍 生出 来 的 下 面 两 种 方法 。 


12.1.8.2” 共 斩 梯 度 法 
共 斩 梯 度 法 是 从 整体 来 寻找 最 佳 的 搜索 方向 。 它 的 思路 是 第 一 步 仍然 取 负 梯度 方向 作 
为 搜索 方向 ， 对 以 后 各 步 ， 是 在 过 当前 点 由 负 梯 度 向 量 和 上 一 步 的 搜索 向 量 组 成 的 平面 内 
寻找 最 佳 的 搜索 方向 ， 因 此 它 比 最 速 下 降 法 快 。 具 体 的 算法 如 下 : 
邦 = 一 Axo,Ppo 三 力 
迭代 开始 
大 = 0,12,…. 
w, = (天 ,天 ) . 
(4pk ,Pr) 
XK+L 二 XK 十 CKPDK; 
天 4 三 让 一 CADK; 
(天 +1 六 +1) . 
放 oo 
PH 三 六 1+ 有 PE 
大 人 结束 
| ”在 MATLAB 中 编程 实现 的 共 斩 梯 度 法 函数 为 ，conjgrad ] 
功能 : 共 力 梯度 法 求 线性 方程 组 Ax=b 的 解 
”调用 格式 ，[xn]= conjgrad (A,b,x0) 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 
b:， 线性 方程 组 中 的 常数 向 量 ; 
x0: 迭代 初始 向 量 ; 
Xx:， 线 性 方程 组 的 解 
n: 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 。 








共 斩 梯 度 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [x,nl= conJjgraaQ (Ab,x0) 
sg 采用 共 斩 梯 度 法 求 线性 方程 组 ax=b 的 解 

g 线 性 方程 组 的 系数 矩阵 : 和 

g% 线 性 方程 组 中 的 常数 向 量 : b 

gs 人 迭代 初始 向 量 : x0 

g% 线 性 方程 组 的 解 : x 

g% 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 : mn 


D = 工 1 

mn 一 0); 

for 1=1:rank(A) g% 以 下 过 程 可 参考 算法 流程 
if(aot(p,RArp) < 1.0e-50) g 循 环 结束 条 件 


Dreak: 
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end 

alLpha = qot(rl,rl)y/vadot(P,AxPp) ， 

X 三 X0O+ alLpPhaxD: 

xz2 = 工 1 一 IDpPhaxRAxDp; 

if(r2 < 1.0e-50) g% 循 环 结束 条 件 
break:; 

endQ 

belta = dqot(r2,r2)VdGot(r1L,Yr1) 

D = 工 2+beltaxPp: 

三 刀 十 工 : 

emd 


共 斩 梯度 法 求解 线性 方程 组 应 用 实例 。 用 共 斩 梯 度 法 求解 下 列 线性 方程 


组 ， 其 中 取 初 始 值 为 [0.0,0]。 


9 0 1.2 | 加 1 
0.36 10 -1.5|z21=|1 
-2.2 0.72 8 | 和 工 


解 : 用 共 斩 梯 度 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 : 


>>A= [9301.2;0.36 10 -1.5;-2.2 0.72 8]: 
>>DbD= [1?17;1]; 
>> X0O = [0;0;0]， 
>> [xn]= conjgraQ(A,Pb,XO0) 
输出 的 计算 结果 为 : 
又 = 0.0906 
0.1186 
0.1445 
输出 的 迭代 次 数 为 ; 
D= 3 





共 斩 梯度 法 理论 上 只 要 人 迭代 半 步 ， 就 能 得 出 方程 组 的 解 ， 但 是 由 于 存在 计算 误差 ， 即 分 
数 向 小 数 转化 时 存在 舍 入 误差 ， 很 难保 证 在 第 半 步 时 得 到 准确 解 。 因 此 在 实际 使 用 中 ， 当 第 
正 步 还 没 得 到 要 求 精度 的 解 时 ， 继 续 迭 代 下 去 ， 程 序 只 需 稍微 修改 循环 的 结束 条 件 即 可 


七 D1=1， 
whjile(tol>eps) g 以 下 过 程 可 参考 算法 流程 
tol = norm(X-x0) : g 前 后 两 次 欠 代 解 的 差 值 


共 斩 梯 度 法 求解 的 速度 非常 快 ， 比 最 速 下 降 法 提高 了 好 几 个 数量 级 。 
12.1.8.3 ” 预 处 理 共 斩 梯 度 法 
当 4x=5 为 病态 方程 组 时 ， 共 斩 梯 度 法 会 收敛 得 很 慢 。 预 处 理 技术 是 在 用 共 斩 梯 度 法 
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求解 之 前 对 系数 矩阵 做 一 些 变换 再 迭代 求解 。 


设 M = .897 ， 在 方程 组 两 边 都 乘 以 一 个 非 奇异 和 矩阵 8$ -1 ， 令 


yy 一 S7x 
c=39 
有 =S 4S 
则 原 方 程 组 可 写成 : 
BU =C 


网 ATLAB 语言 常用 算法 程序 集 ~ 


再 对 上 面 的 线性 方程 组 用 共 斩 梯 度 法 求解 。 预 处 理 共 斩 梯 度 法 的 整个 算法 过 程 如 下 ， 


站 = 忆 一 4xo,zo =M mpo=20 
欠 代 开始 
天 三 0,12,… 
,一 (zzb) . 
(4Pk ,Pr) 
MXK+L 二 2 十 CKPDK， 
关 +1 二 次 一 CD 
zt 三 有 7 
有 -Ce ze， 
(zx 
Prl= zk+l 二 应 Pi 


_ 途 人 结束 


在 MATLAB 中 编程 实现 的 预 处 理 共 斩 梯 度 法 函数 为 : preconjgrad 


功能 : 预 处理 共 斩 梯 度 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 : [xn]= preconjgrad (A,b,x0,M,eps) 
其 中 ，A: 线性 方程 组 的 系数 矩阵 ; 

b: 线性 方程 组 中 的 常数 向 量 ; 

Xx0: 迭代 初始 向 量 ; 

M:， 预 处 理 德 阵 ; 

eps:， 精度 控制 ( 可 选 参数 ); 

x: 线性 方程 组 的 解 


预 处 理 共 斩 梯 度 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [x,Dn]= precon]jgraaQ (Ab,x0,M,eps) 
g 采 用 共 斩 梯 度 法 求 线性 方程 组 Ax=b 的 解 

g 线 性 方程 组 的 系数 矩阵 : 和 

g 线 性 方程 组 中 的 常数 向 量 : b 

g 和 迭代 初始 向 量 : x0 

g 预 处 理 矩 阵 : M 

g% 精 度 控制 : ebpS 
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g 线 性 方程 组 的 解 : x 
#% 求 出 所 需 精度 的 解 实际 的 迭代 步 数 : n 
function [xn]=preconjgrad(A,b,x0,M,eps) 
if nargin 一 4 
epSs = 工 .0e-6; 
endQ 
T1L = DPp-AxXxO0; 
1IM = inv(M) ; 


Z1 = IIMxr1; 
P = 2Z1; 
mm = 0 
tol= 1: 


whjile tol>=eps 
引 lpPpha = Qqot (TY1,，z1)V/aot(P,RAxp) ; 
X = X0 二 + alphaxp' 
r2 = IT1 一 alphaxAxp; 
Z2 二 1IMxr2; 
belta = qot(r2,z2)/dot(r1,z1)， 
D = Z2+beltaxp; 


D = 贡 +1:; 
tol = Dorm(x-x0) ; 
XO = 广 ; g 更 新 迭代 值 
1 = T2:; 
Z1 = Z2; 
end 


预 处 理 对 收敛 性 的 改善 主要 是 通过 和 矩阵 M 实现 的 ， 因 此 M 的 选择 就 比较 重要 了 。 一 
般 情 况 下 ，M 有 以 下 三 种 选择 方式 ， 

。 选取 1 为 A 的 对 角 元 素 组 成 的 对 角 阵 ， 这 种 方法 简单 ， 但 是 收敛 效果 不 理想 ， 

。 将 4 作 不 完全 乔 列 斯 基 分 解 为 4= Zr -R， 取 M = ZL ， 此 种 方法 是 比较 常用 的 

ICCG 法 ; 
。 取 M 为 对 称 超 松弛 和 迭代 法 的 预 处 理 阵 M = SS7 ， 其 中 
S=[@o(2-ao) (CD 一 or)D2-V2 

经 过 这 样 的 预 处 理 ， 能 够 显著 改善 收敛 速 度 ， 特 别 是 当 @ = 1 时， 预 处 理会 有 很 好 的 

效果 。 


预 处 理 共 珀 梯度 法 求解 线性 方程 组 应 用 实例 。 用 预 处 理 共 斩 梯 度 法 求解 
下 列 线 性 方程 组 ， 其 中 取 初 始 值 为 [0.0.0]。 
90 0 1.2 || 向 ] 
0.36 100 -1.5|xz =|1 
-2.2 0.72 80 | 加 1 
解 : 用 预 处 理 共 三 梯度 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 


>> 入 [90 0 1.2;0.36 100 -1.5;-2.2 0.72 801]， 
>> Pb [1717?1]; 
>> Xx0 = [0;070]， 
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>> D=dqiag(dqiag(&A) ) ; 

>> L=(-tril(A)+2xD)xSsSGTrL(D) 

>> M=LxD' ; 

>> [xn]= precon]jgrad(A,Pp,x0,M) 


输出 的 计算 结果 为 : 


X= 0.0109 
0.0102 
0.0127 


输出 的 和 迭 代 次 数 为 ; 
也 三 5 


如 果 预 处 理 憩 阵 W 取得 适当 的 话 , 能 很 好 地 改善 系数 矩阵 的 条 件数 , 因此 在 处 理 病态 
和 矩阵 方面 ， 预 处 理 技术 的 效果 是 十 分 明显 的 。 


12.1.9” 块 迭 代 法 
当 系数 矩阵 的 阶 数 比较 大 时 ， 可 以 先 将 它 分 块 ， 再 进行 迭代 求解 。 


4 2 An 
4 各 各 
4 An2 机 Am 


其 中 Ah42，…4m 为 方 阵 。 
再 将 系数 矩阵 写成 如 下 的 形式 : 
4=Da 一 Lp 一 Lp 
其 中 ， 
Da =diag( 4 4 4n) 
0 
421 0 
Le=-| 4 4 0 


4 Ap2 Ana3 | 0 


0 4 h43 … nm 
0 43 … 4onm 
Lp5 三 一 0 : 
0 
0 


当然 也 要 将 x 和 请 作 相应 的 分 块 : 
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及 1 bi; 

入 b 
X 一 “ 小三 了 

又 六 bw 


下 面 是 几 种 常用 的 块 迭 代 法 ， 当 然 分 块 后 的 线性 方程 组 可 以 使 用 各 种 迭代 法 进行 求 
解 。 
12.1.9.1 块 雅克 比 迭 代 法 
块 雅 克 比 迭代 法 的 块 迭 代 公 式 如 下 所 示 : 
xl = Da +TUe)X 二 DB 
写成 分 量 形式 如 下 所 示 ， 


于 
(K+1HD) 一 天 
人 一 以 一 > 47 

jl 

7 








功能 ， 块 雅克 比 迭 代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[xN]= BJ (A,b,x0,eps, d,eps,MD) 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 
b:， 线性 方程 组 中 的 常数 向 量 ; 
x0:， 迭代 初始 向 量 ; 
d， 系 数 矩 阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ); 
eps: 解 的 精度 控制 ( 此 参数 可 选 ); 
M:;， 和 迭代 步 数控 制 ( 此 参数 可 选 ); 
x: 线性 方程 组 的 解 | 
N， 求 出 所 需 精度 的 解 实际 的 迭代 步 数 。 














块 雅 克 比 迭代 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [x,N]= BJ(A,P,x0,dq,eps,M) 
g% 采 用 块 雅克 比 和 迭代 法 求 线性 方程 组 ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 ;和 A 

g 线 性 方程 组 中 的 常数 向 量 : b 

# 迭 代 初 始 向量 ，x0 

g 系 数 矩 阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ) : Q 
s% 解 的 精度 控制 :eps 

g% 迭 代步 数控 制 : MK ， 

gs 线性 方程 组 的 解 : x 

g 求 出 所 需 精度 的 解 实际 的 大 代 步 数 : N 
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If nargin= 一 4 
epSs= 1.0e-6; 
M = 10000:; 
elseif nargin<4 
erIOL 
CetuUrDn 
elseif nargin 一 5 
M = 10000; g% 人 参数 的 默认 值 
end 
NS = Size(A)， 
nn=NS(1, 1): 
Ift(sum(d) ~= 卫 ) 
aisp ( ' 分 块 错误 | '); 
returny; 
enqQ 
bnum = Length (Q) : 
bs = ones (bnum,1) ; 
for IIi=1: (bpnum-1) 
bs(i+1,1)=sum(Q(1:) ) 
g% 获 得 对 角 线 上 每 个 分 块 全 阵 元 守 索 引 的 起 始 值 
end 
DB = Zerogs (mn,n) ; 
for =1:bnum 
endqb = bs(i,1)+Q(I,1) 一 1， 
DB(bs(i,1):enab,bs(i,1):endb)=Albs(i,1):engb,bs(i,1):endqb):; 
g% 求 A 的 对 角 分 块 矩 阵 
enQ 
for =1:bnum 
engb = bs(i,1)+Q(i，1) 一 1; 
invDB(bs(i,1L):endb,bs(i,1):endb)=inv(DB(bs(i,1):enab,bs(i,1):enaqb)): 


g 求 A 的 对 角 分 块 矩阵 的 逆 矩 阵 

endQ 

N=0; 

tol = 工 ; 

while 巧 olL>=eps 

X = invDBx (DB-A) *X0+invVDBxDb， g 由 于 LB+DB=DB- 和 A 

N = N+1; gs 和 迭代 步 数 

tol = norm(x-x0) ， g 前 后 两 步 迭 代 结 果 的 误差 

XO = X; 

工 (N>=M) 
disp('Warning: 友 代 次 数 太 多 ， 可 能 不 收敛 ! ') ; 
Teturny; 

endQ 

endQ 


块 雅克 比 迭 代 法 求解 线性 方程 组 应 用 实例 。 用 块 雅克 比 和 迭代 法 求解 下 列 
线性 方程 组 ， 其 中 取 初 始 值 为 [0.0,0.0.0]。 
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2.6934 0.6901 0.3997 0.6010 0.4390 || 加 
0.6901 2.8784 0.8799 0.3$978 0.4514 |‖| 2 
0.3997 0.8799 3.3216 0.4673 0.8282 | xz | = 
0.6010 0.5978 0.4673 2.8412 0.5511 || xz 
0.4390 0.45$14 0.8282 0.5511 2.8704 || 2 1 


解 ， 用 块 雅 克 比 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 ; 


>> R=[2.6934 0.6901 0.3997 0.6010 0.4390: 
0.6901 2.8784 0.8799 0.5978 0.4514: 
0.3997 0.8799 3.3216 0.4673 0.8282:; 
0.6010 0.5978 0.4673 2.8412 0.5511:; 
0.4390 0.4514 0.8282 0.5511 2.8704]:; 

>> Qq=[1;272]7 

>> [xDnl=BJ(A,b, [00000]' 9) 


PP 


X= 0.2260 
0.1735 
0.1482 
0.2036 
0.2047 

mn= 23 

>> G=-[14:1]:; 

>> fx,nl=BJ(A,b,， [0000019) 

xX= 0.2260 
0.1735 
0.1482 
0.2036 
0.2047 

了 二 13 

>> [xnal=jacobi(A,b,[00000] 

X= 0.2260 
0.1735 
0.1482 
0.2036 
0.2047 

mn = 一 66 


从 上 面 的 例子 可 以 看 出 ， 分 块 的 方式 决定 了 块 雅克 比 和 迭代 法 收敛 的 快慢 。 最 快 经 过 13 
步 迭 代 就 得 到 了 解 ， 而 最 慢 的 则 花 了 66 步 ( 不 分 块 的 雅 可 比 迭 代 法 是 块 雅 克 比 迭代 法 的 
退化 情况 )， 根 据 上 例 d 的 分 块 情况 可 以 得 出 一 个 规律 ， 即 分 得 越 散 ， 收 敛 速度 越 慢 。 因 
此 ， 块 不 宜 分 得 太 多 。 
12.1.9.2” 块 高 斯 - 赛 德尔 迭代 法 

块 高 斯 - 赛 德尔 迭代 法 的 块 送 代 公 式 如 下 所 示 : 

WiH=(Da 一 Z) sx +(Ds 7) 
写成 分 量 形式 如 下 所 示 : 
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[一 阮 
(+H) 天 十 1 天 
4 = 忆 一 > 407 一 》， 和 


7=1 Jj= 计 1 


在 MATLASB 中 编程 实现 的 块 高 斯 - 赛 德尔 迭代 法 函数 为 , BGS 
功能 ， 块 高 斯 - 赛 德尔 迭代 法 求 线性 方程 组 Ax=b 的 解 
调用 格式 ，[xN]j- BGS (Ab, x0,eps, diepsMD) | 
其 中 ，A:， 线性 方程 组 的 系数 矩阵 ; 

b， 线 性 方程 组 中 的 常数 向 量 ; 

x0: 迭代 初始 向 量 ， 

d:， 系数 和 矩阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ); 

eps: 解 的 精度 控制 ( 此 参数 可 选 ); 

M， 和 迭代 步 数 控制 ( 此 参数 可 选 ) 

x， 线 性 方程 组 的 解 ， 

N， 求 出 所 需 精 度 的 解 实际 的 迭代 步 数 。 





块 高 斯 - 赛 德 尔 迭 代 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [x,N]= BGS(RA,b,x0,dQ,eps,M) 
gs 采 用 块 高 斯 - 赛 德尔 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵 ,和 
g 线 性 方程 组 中 的 常数 向 量 ;: b 
gg 迭代 初始 向 量 : x0 
g 系 数 和 矩阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ) : Q 
sg 解 的 精度 控制 ，eps 
g 和 迭代 步 数控 制 : M 
g% 线 性 方程 组 的 解 : x 
g 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 : N 
if nargin=4 
eps= 1.0e-6: 
M = 10000:， 
elseit nargGin<4 





GTLOL 
returDn 

elseift nargin 一 5 
M = 10000: 

endQ 

NS = size(A):; 

= NS(1,1):; 

bnum = Lengthl(G) ， 

bs = ones (bnum,1) : 

for 1=1: (Pnurm-1I1) 
bs(i+l,1)=sum(Q(1:1I))+1; 
g 获 得 对 角 线 上 每 个 分 块 矩阵 元 素 索 引 的 起 始 值 

end 

DB = Zeros (ny mn) :; 

for 1=1:bnurm 
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enqb = bs(i,1)+Q(I ,TI) 一 1 
DB(bs(i,i):endb,bs(i,1):enab)=Albs(i,1):enaqb,bs(i,1):enqb); 


g 求 &A 的 对 角 分 块 矩阵 
emnd 
LB = -tril(A-DB) ); g% 求 A 的 下 三 角 分 块 阵 
UB = -triu(RA-DB) ; g% 求 太 的 上 三 角 分 块 阵 
N=0:; 
tol = 三 1; 


while 七 D1>=eps 
invDTL = inv(DB-LB) ; 


x = invDDxUBxx0+invDLxD; g 块 迭代 公式 

N = N+1:; 

tol = mnhorm(X 一 XO) ; 

X0 = 三 往 ; 

IE (N>=M) 
disp(wWarning: 迭代 次 数 太 多 ， 可 能 不 收效 ! ，) ; 
etUTD 

end 


emnQ 
块 高 斯 - 赛 德尔 迭代 法 求解 线性 方程 组 应 用 实例 。 用 块 高 斯 - 赛 德尔 迭代 
法 求解 下 列 线性 方程 组 ， 其 中 取 初 始 值 为 [0.0.0,0.,0]。 


2.6934 0.6901 0.3997 0.6010 0.4390 | 硬 ] 
0.6901 2.8784 0.8799 0.5978 0.4514 || z 1 
0.3997 0.8799 3.3216 0.4673 0.8282 |‖| 妇 1=|1 
0.6010 0.5978 0.4673 2.8412 0.5511 || 和 1 
0.4390 0.4514 0.8282 0.5311 2.8704 || x6 [ 


解 ， 用 块 高 斯 - 赛 德 尔 迭 代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 : 


>> RM=[2.6934 0.6901 0.3997 0.6010 0.4390: 
0.6901 2.8784 0.8799 0.5978 0.4514:; 
0.3997 0.8799 3.3216 0.4673 0.8282:; 
0.6010 0.5978 0.4673 2.8412 0.5511:; 
0.4390 0.4514 0.8282 0.5511 2.8704]: 

>> q=[1;27;2])， 

>> [xnl=BGS(A,b,[00000]9) 


X= 0.2260 
0.1735 
0.1482 
0.2036 
0.2047 

nm= 8 


在 上 面 的 例子 中 ， 只 需要 经 过 8 步 迭 代 就 得 到 了 解 ， 比 块 雅 可 比 迭 代 法 更 进 了 一 步 。 
但 是 从 计算 量 来 说 ， 块 雅 可 比 迭 代 法 只 需要 求 一 个 对 角 和 矩阵 的 逆 即 可 ， 而 块 高 斯 - 赛 德尔 
和 迭代 法 要 计算 一 个 下 三 角 矩 阵 的 关 ， 显 然 比 求 对 角 和 矩阵 的 逆 复 杂 。 
为 了 避免 求 首 ， 可 以 采取 下 面 的 迭代 公式 : 
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次 三 Up 大 十 忆 
(Da 一 ZLB)Xk+l 二 其 


其 中 第 二 个 方程 可 以 用 第 15 章 中 的 求解 下 三 角 系 数 和 矩阵 线性 方程 组 的 函数 求解 ， 读 


者 可 以 自己 把 程序 写 出 来 。 


12.1.9.3 块 逐次 超 松弛 和 迭代 法 

块 逐次 超 松弛 和 欠 代 法 的 块 闪 代 公 式 如 下 所 示 : 

Mrl= (De -OLe) (1-O)DPe+OUs)A +OCDe -OFe) 世 
写成 分 量 形 式 如 下 所 示 ; 
4i 人 = 一 oO)4 奈 +O( 一 全 Aixb 一 人 已 太 ) 
产 ]1 ji+1 

在 MATLAB 中 编程 实现 的 块 逐次 超 松弛 和 迭代 法 函数 为 ， BSOR 
功能: 块 逐 次 超 松弛 和 迭代 法 求 线性 方程 组 Ax=b 的 解 
| 调用 格式 : [xN]= BSOR (A,b, x0,eps, diweps,M) 
| 其 中 ，A: 线性 方程 组 的 系数 矩阵 ， 
b: 线性 方程 组 中 的 常数 向 量 ， 
x0: 和 迭代 初始 向 量 ; 
d， 系 数 矩 阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ); 
w: 松弛 因子 ; 
| eps: 解 的 精度 控制 ( 此 参数 可 选 ); 
M: 迭代 步 数 控制 ( 此 参数 可 选 ); 
x: 线性 方程 组 的 解 


块 逐次 超 松弛 和 迭代 法 的 MATLAB 程序 代码 如 下 所 示 ; 


function [x,N]= BSOR(A,b,x0,dq,weps,M) 
g 采 用 块 逐次 超 松弛 迭代 法 求 线性 方程 组 Ax=b 的 解 
g 线 性 方程 组 的 系数 矩阵: 
g% 线 性 方程 组 中 的 常数 向 量 : b 
从 代 初 始 向 量 : x0 
g 系 数 矩 阵 沿 对 角 线 的 分 块 向 量 ( 列 向 量 ) : Q 
g% 松 弛 因子 ，w 
#* 解 的 精度 控制 : eps 
g% 和 迭代 步 数控 制 : MX 
g 线 性 方程 组 的 解 ， x 
g% 求 出 所 需 精度 的 解 实 际 的 迭代 步 数 : N 
It nargin 一 5 
epDS= 1.0e-6; 
M = 10000: 
elSselif nargin<5 
eITLOL 
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eturDn 
elseif nargin = 一 6 
M = 10000; sg 参数 默认 值 
emndQ 
NS = Size(A) ; 
Da =NS(1,1):; 


bnum = length(da) ; 
bs = ones (bnum,1) ; 
for 1I=1: (bnurm 一 1) 
bs(i+1,1)=sum(Q(1:I))+1; 
g 获 得 对 角 线 上 每 个 分 块 矩 阵 元 素 索 引 的 起 始 值 
end 
DB = Zeros (nyD) ， 
for 1=1:bnum 
enqb = bs(i,1L)+Q(I,1)=-1; 
DB(bs(i,1):endb,bs(i,1):endqb)=Albs(i,1l):enqb,bs(i,1):endqdb); 


g 求 A 的 对 角 和 矩阵 
enaQ 
LB = -tril(RA-DB) g 求 &A 的 下 三 角 阵 
UB = -triu(aA-DB) : gs 求 &A 的 上 三 角 阵 
N= 0:; 
tol 三 1; 
iw 三 1 一 w:; 


while tol>=eps 
invDL = inv(DB-wxLB) ， 
X = InvDLx (wxDB+wxUB) *Xx0O+wxinvDLxD: g% 块 迭代 公式 
N = NT+1: 
tol = morm(X-X0) ; 


X0O = 一 X7 

E(N>=M) 
aisp('Warning: 旬 代 次 数 太 多 ， 可 能 不 收效 ! ，) ; 
return; 

endQ 


emdQ 


块 逐次 超 松弛 和 迭代 法 求 线性 方程 组 应 用 实例 。 用 块 逐次 超 松弛 和 迭代 法 求 
解 下 列 线性 方程 组 ， 其 中 取 初 始 值 为 [0.0,0,0.0]。 


2.0934 0.6901 0.3997 0.6010 0.4390 | 六 ] 
0.6901 2.8784 0.8799 0.5978 0.4514 || z2 1 
0.3997 ”0.8799 3.3216 0.4673 0.8282 | 妇 1=|1 
0.6010 0.5978 0.4673 2.8412 0.55$11 || zx 1 
0.4390 0.4514 0.8282 0.55311 2.8704 || xz 工 


解 ， 用 块 逐 次 超 松弛 和 迭代 法 求解 ， 在 MATLAB 命令 窗口 中 输入 求解 程序 


>> A=[2.6934 0.6901 0.3997 0.6010 0.4390: 
0.6901 2.8784 0.8799 0.5978 0.4514:; 
0.3997 0.8799 3.3216 0.4673 0.8282: 
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0.6010 0.5978 0.4673 2.8412 0.5511: 
0.4390 0.4514 0.8282 0.5511 2.8704]: 
>> q=[1:272]:; 


>> [fx,nli=BSOR(A,b,I00000]d,1.1) g% 松 弛 因子 取 1.1 
x = 0.2260 

0.1735 

0.1482 

0.2036 

0.2047 
mm= 8 


为 了 避免 求 逆 运 算 ， 同 样 可 以 采取 块 高 斯 - 赛 德尔 迭代 法 的 改进 做 法 。 


和 迭代 法 显著 的 特点 是 算法 简单 ， 因 此 程序 实现 起 来 也 比较 简单 ， 它 是 解 大 型 线性 方程 
组 的 有 效 方法 。 

古典 的 迭代 法 思路 很 简单 ， 用 到 的 知识 不 多 ， 但 是 适用 范围 不 广 ; 由 于 存储 技术 的 进 
步 ， 现 代 的 迭代 法 则 注重 算法 的 适用 性 和 收敛 性 ， 追 求 适用 范围 广 ， 收 敛 性 好 ， 收 敛 速 度 
快 ， 预 处 理 技术 就 是 其 中 的 一 个 方向 ， 将 预 处 理 技 术 与 一 些 特殊 的 迭代 法 相 结 合 往往 能 收 
到 很 好 的 效果 。 
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不 管 是 在 计算 机 编程 ， 还 是 网 站 设计 、 分 析 实际 问题 ， 随 机 数 都 有 广泛 的 应 用 。 本 章 
首先 讨论 生成 0~ 1 之 间 均 匀 分 布 随机 数 的 一 些 算法 ， 进 而 给 出 了 由 0 ~ ! 之 间 均 匀 分 布 生 
成 指数 分 布 、 正 态 分 布 、 泊 松 分 布 、 二 项 分 布 等 常用 分 布 的 一 般 算 法 。 

通过 本 章 ， 读 者 不 仅 能 掌握 常见 的 随机 数 生成 算法 ， 而 且 还 能 熟练 使 用 MATLAB 纺 
程 来 实现 这 些 算法 。 


用 平方 取 中 法 


把 一 个 2k 位 : 进 制 的 数 平方 ， 再 把 平方 之 后 的 数 去 头 截 尾 取 中 间 2k 位 数 作为 一 个 新 
的 随机 数 ， 重 复 上 述 过 程 ， 则 得 到 一 列 随机 数 ， 递 推 公式 为 ， 


Xn 一 和- (mod 10 入 ) 
” | 10x 


7 一 10- 称 xn 严 一 1,2,…. 


数列 站 , 疡 … 为 [0.0] 上 均匀 分 布 的 随机 数列 。 


在 MATLAB 中 编程 实现 的 平方 取 中 法 的 函数 为 ; PFQZ 
功能 : 用 平方 取 中 法 产生 随机 数列 

调用 格式 :,T= PFQZ(cx0.n) 

其 中 ，k: 随机 数 种 子 位 数 的 一 半 ; 

x0: 随机 数 种 子 ; 

n: 产生 的 随机 数 个 数 ; 

r: 产生 的 随机 数 序列 。 























平方 取 中 法 产生 随机 数列 的 MATLAB 程序 代码 如 下 所 示 : 


function rr = PEFQZ(K,x0,Dn) 
sg 随机 数 种 子 位 数 的 一 半 : K 
g% 随 机 数 种 子 : x0 
g% 产 生 的 随机 数 个 数 : nm 
g% 产 生 的 随机 数 序列 : 
format 1ong ; 
z = Zeros (ny TI) : 
X = Zekros (mn 1) : 
X(1) = X0; 
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zr(1) = X(1)V/ (1L002^K) ， 
for 工 =2 :DTn 


X(I) = moaf(x(i-1)^2 /7/(10^K)，100^K) g 平 方 取 中 
cr(i) = x(i)/(100^K) ; g% 转 换 到 区 间 [0 ,11] 


endQ 
format Short : 


平方 取 中 法 产生 随机 数列 应 用 实例 。 用 平方 取 中 法 产生 10 个 随机 数 。 
解 : 在 MATLAB 中 输入 下 列 命 令 ; 


>> 上 = PFQ2(2,3456,10) 
Cr = 0.3456 
.9439 
.1015 
-0306 
.0935 
.8738 
.3593 
.9077 
.3892 
.了 449 


可 以 用 如 下 的 程序 检验 产生 的 随机 数 是 否 是 [0.]] 上 均匀 分 布 的 随机 数列 : 


加 加 吕 串口 呈 避 喇 


function numDist = test(k,x0,N) 
numDist = Zeros(10,1): 

X = PEFOZ(K,xo,N) 

for 1=1:N 


Y=X(*10; 

J = floor(y):; 

numDist(]J+1) = mnumDist(J+1) + 1:; 
enmdq 
七 =1 :10; 
bar (tnumDist) ; 


在 MATLAB 中 输入 下 列 命令 : 


>> mnum = test(2,5466,5000) 

Dum = 492 
516 
480 
520 
503 
486 
472 
485 
506 
540 


而 且 可 以 用 如 图 13-1 所 示 的 直方 图 明显 看 出 来 : 
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图 13-1 平方 取 中 法 产生 的 随机 数 的 分 布 图 














在 图 13-1 所 示 的 直方 图 中 ， 横 坐标 表示 随机 数 所 落 在 的 区 间 ， 例 如 1 表示 区 间 
[0.0,0.1 ，6 表示 区 间 [0.$,0.6] ， 依 此 类 推 ; 纵 坐 标 表示 对 应 区 间 的 随机 数 的 个 数 。 从 直方 
图 上 可 以 看 出 ，5000 个 随机 数 ， 基 本 上 平均 分 布 在 区 间 {0,HU 上 。 


吴 线性 同 余 法 


线性 同 余 法 简称 为 LCG 法 ， 它 利用 数论 中 的 同 余 运算 原理 产生 随机 数 ， 它 又 可 分 为 
混合 同 余 法 、 乘 同 余 法 等 。 线 性 同 余 法 的 一 般 公 式 为 ， 
j =(ax +c) mod AM 
一 JUAf 
其 中 zx 为 初 值 ，M 为 模 ， 第 二 个 公式 的 作用 是 将 产生 的 随机 数 变换 到 区 间 [04] 上 。 
当 c=0 时 为 乘 同 余 法 , 当 c>0 时 为 混合 同 余 法 。 因 此 , 当 提供 初始 值 ( 也 可 叫 种 子 ) xzo 后 ， 
就 可 以 通过 递 推 公式 产生 一 随机 数列 各 ,加 ，…zo。 
13.2.1 “混合 同 余 法 
混合 同 余 法 的 递 推 公 式 为 : 
jx 一 (ar _1+c) mod Mc>0 
撒 一 Ja 
通过 取 不 同 的 M 、a、c 、xo 可 得 到 不 同 的 随机 数列 ， 但 是 产生 的 随机 数列 是 周期 随 
机 数列 ， 而 且 存 在 常数 ， 使 得 
MT = 和、 (=01 2…) 
如 果 7 了 = MK ， 则 称 此 随机 数列 为 满 周期 随机 数列 。 
一 般 情 况 下 ， 人 参数 的 选取 可 遵循 下 述 原则 : 
e。 M=27， 
e。 4a=4c+lLa 为 任意 整数 ; 
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e。 c=268+18 为 任意 整数 

e。 3 为 任意 非 负 整数 。 

常用 的 两 种 混合 同 余 法 公式 如 下 所 示 :; 
=(31415$9269x，!; + 453806245) mod 231 


记 二 贡 or /231 
。 | =($5x +D mod 235 
记 二 如 1235 


功能 : 用 混合 同 余 法 产生 随机 数 
调用 格式 , T= MixMOD(x0,n,type) 
其 中 ，x0: 随机 数 种 子 ; 
n; 产生 的 随机 数 个 数 ; 
CR 
: 产生 的 随机 数 序列 。 


混合 合同 余 法 的 MATLAB 程序 代码 如 下 . 


function 上 = MIXMOD(X0,n,type) 
sg 随 机 数 种 子 ，x0 

g 产 生 的 随机 数 个 数 : mn 

g 采 用 的 混合 同 余 法 的 公式 类 型 : type 
gg 产生 的 随机 数 序列 : 上 

format' 1ong， 

M1L = DOower (2，31) ; 

M2 = Power (2,，35) 

al = 314159269:， 

a2 = Power(5,，15) ; 

cC1 = 453806245， 


C2 = 1; 

= Zekros (ny,1) ; 

X = Zeros (n+1,， 1) : 

X(1) = X0:; 

if type == 1 工 sL 为 31 的 混合 同 余 法 


for =2:n+1l 
YY = alLxX(i--L)+CL; 
X(I) = mod(y，M1)， 
rt(i-1) = X(I1)7VML: 
enQ 
else g%L 为 35 的 混合 同 余 法 
for 二 =2:m+1 
YY = a2xX(i-1)+Cc2: 
X(i) = mod(t(y，M2): 
rr(i-1) = X(I)VM2: 
endq 
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end 
forrmat Short : 


混合 同 余 法 产生 随机 数列 应 用 实例 。 用 混合 同 余 法 产生 10 个 随机 数 。 
解 : 在 MATLAB 中 输入 下 列 命令 : 


>> = MixMOD(0,10，1) 
= 0.2113 
0.0102 
0.4809 
0.6091 
0.3940 
0.7675 
0.6389 
0.7911 
0.8903 
0.6004 
>> 工 = MixMOD(1,10,2) 
上 = 0.8882 
0.0258 
0.8719 
0.3734 
0.1676 
0.8227 
0.3805 
0.9149 
0.2939 
0.5816 


可 以 用 如 下 的 程序 检验 产生 的 随机 数 是 否 是 [0.1] 上 均匀 分 布 的 随机 数列 : 


function mumDist = Lest(X0,N) 
numDist = Zeros(10,1) 
X = MixMOD(xXx0O,N,，2) : 
for 1=1:N 
YY=X(I)r*10; 
Jj = floor(y):; 
numDist(]j+l) = numDist (J+l1) + 1 
endQ 
七 = 工 :10; 
bar(t,numDist) : 


在 MATLAB 中 输入 下 列 命令 


>> num = test(3345,100000 ) 
num = 9975 

10017 

10015 

9988 

10027 

9987 

9998 


吉 二 本 可 369 


MATLAB 语言 常用 算法 程序 集 


10004 
9992 
9997 


而 且 可 以 从 如 图 13-2 所 示 的 直方 图 中 明显 看 出 来 : 


12000 





10000 上 


8000 上 











图 13-2 ”用 混合 同 余 法 产生 的 随机 数 的 分 布 图 





13.2.2 ” 乘 同 余 法 
乘 同 余 法 的 递 推 公式 为 : 


妃 二 2 AM 
一 般 情 况 下 ， 参 数 的 选取 有 两 种 方法 。 
。 取 M =27 ， 为 任意 正 整数 ; 
4a=8ax+5$,a 为 任意 整数 ; 
和 =48+18 为 任意 整数 。 


攻 = _l mod AM 








在 MAILAB 中 编程 实现 的 乘 同 余 法 1 的 函数 为 ， MulMOD1 
功能 : 用 乘 同 余 法 1 产生 随机 数列 
调用 格式 : T= MulMOD1(L,alpha,betam) 
其 中 ,L: 模 的 早 参 数 
alpha， 乘 数 的 参数 ; 
beta， 随 机 数 种 子 的 参数 ; 
n:， 产生 的 随机 数 个 数 ; 
T: 产生 的 随机 数 序列 。 


乘 同 余 法 1 的 MATLAB 程序 代码 如 下 所 示 : 


function rr = MuLMOD1 (LT ,alphaybetay,Dn) 
g% 模 的 宕 参数 : 工 

g 乘 数 的 参数 :alpha 

g% 随 机 数 种 子 的 参数 : beta 
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g% 产 生 的 随机 数 个 数 : nm 
sg 产 生 的 随机 数 序列 : = 


rr = Zetrtos (mn ,1) ; 

X = Zeros(tny,1):， 

M = Powetr (2,L) : 

aa = 8xalpha + 5) 
X(L) = 4xbeta + 工 : 
(1) = X(1L)7VM; 


for 1=23:Dn 
Y = axX(I-1); 
xti) = modqty,M);  % 乘 同 余 法 
r(i) = X(i)VMI; g 转 换 到 区 间 [0,11] 


enaQ 
乘 同 余 法 1 产生 随机 数列 应 用 实例 。 用 乘 同 余 法 1 产生 10 个 随机 数 。 
解 : 在 MATLAB 中 输入 下 列 命令 : 


>> = MulMOD1(13,64,1024,10) 
上 = 0.5001 
.5631 
.1281 
.2028 
.8263 
.1940 
,2823 
.9742 
.6837 
.481T 


为 了 使 产生 的 随机 数 更 均匀 ， 有 尽量 取得 大 一 些 。 
@ 取 M =27， Q@=S23+1 ， 且 满 足 $2s+1 <2L <S243 。 
常用 的 参数 数值 如 表 13-1 所 示 。 


表 13-1 乘 同 余 法 2 产生 随机 数 的 常用 参数 取 值 表 


加 加 吕 口 吕 吕 忆 口 呈 


全 
1953125 








48828125 





1220703125 





30517578125 





762939453125 











19073486328125 











在 MATLAB 中 编程 实现 的 乘 同 余 法 2 的 函数 为 : MulMOD2 
功能 ， 用 乘 同 余 法 2 产生 随机 数列 

| 调用 格式 : r= MulMOD2(Lsx0m 

| 其 中 ，L， 模 的 圭 参 





育才 可 是 371 





， 乘 数 的 参数 ， 

x0， 随机 数 种 子 ; 

n: 产生 的 随机 数 个 数 ， 
: 产生 的 随机 数 序列 。 


乘 同 余 法 2 的 MATLAB 程序 代码 如 下 所 示 ， 


functiocon 工 
s 模 的 宪 参 数 : 
s 乘 数 的 参数 : 
gs 随机 数 种 子 ， x0 
gs 产 生 的 随机 数 个 数 : nm 
g 产 生 的 随机 数 序列 : 


MuLMOD2 (LS x0,Dn) 


本 


六 


上 = Zekros(nmn,，1): 

X = Zeros (mn 1 

M = Power (2 

已 = powert5， 2 

X(1) = X0; 

(1) = X(1L)7VM 

for 1=2:Dn 
Yy = axxX(I 一 1) 
xf(i) = modq(ty,M) 
(tiI) = X(I) 7VM 


ena 





乘 同 余 法 2 产生 随机 数列 应 用 实例 。 用 乘 同 余 法 2 产生 10 个 随机 数 。 


解 : 在 MATLAB 中 输入 下 列 命令 ， 


>> =MULIMOD2(28,5,34539223 ,10) 
上 = 0.1287 
-0644 
-1853 
.8784 
.2951 
.4643 
.1820 
.2545 
.95979 
.2226 


CD 串口 口 呈 吓 


13.2.3 “素数 模 同 余 法 


素数 模 同 余 法 不 是 取 模 M =27 ， 而 是 取 模 为 小 于 24 的 最 大 素数 。 


发 生 器 介绍 如 下 。 
e。 取 二 =35 ， 此 时 M =25 -31， 适 合 的 wC=3125 ， 


即 


=3125x， mod (235 -3 


六 三 和 /025 -31) 
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e 取 世 =31， 此 时 M =231-1， 适 合 的 ae=16807 ， 即 
刀 =16807x， 1 mod (231 -TD 
方 = 如 2 一 


在 MATLAB 中 编程 实现 的 素数 模 同 余 法 的 函数 为 : PrimeMOD 
功能 ， 用 素数 模 同 余 法 产生 随机 数列 
调用 格式 : T= PrimeMOD(x0,n,type) ， 
其 中 ，x0:， 随机 数 种 子 ; 
n;， 产生 的 随机 数 个 数 ; 
type:， 采用 的 公式 类 型 ， 
r: 产生 的 随机 数 序列 。 


素数 模 同 余 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function rr = PrimeMOD(x0,ntype) 
sg 随 机 数 种 子 ，x0 

sg 产生 的 随机 数 个 数 : mn 

g 采 用 的 公式 类 型 ， type 

g% 产 生 的 随机 数 序列 : 上 

function 上 = PrimeMOD(X0,n,tyPpe) 
format Tong:; 

M1L = Power (2,，35) 一 31; 

M2 = power(2,，31) 一 1; 


al = 3125:， 

a2 = 16807:; 

T = Zeros (mn ,1T) ; 

X = Zeros (n+5，1) ， 

X(1) = X0; 

if type == sL 为 35 的 素数 同 余 法 


for 1=2:n+5 
YY = alLxX(i1): 
X(I) = modQ(y，M1):， 


enmdQ 
= X(6:(n+5))7VML: 
else %TD 为 31 的 素数 同 余 法 


for 1=2:mn+5 
Y = a2xX(I-IL): 
xl(i) = modqlty，M2): 


上 = X(6:(n+5))7/M2: 


endq 
format SnRort 


素数 模 同 余 法 产生 随机 数列 应 用 实例 。 用 素数 模 同 余 法 产生 10 个 随机 数 。 
解 : 在 MATILAB 中 输入 下 列 命令 : 


>> TY = PrimeMOD(2,10,1) 
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z = 0.7754 
0.1846 
0.8683 
0.5567 
0.5730 
0.6115 
0.0296 
0.4294 
0.9797 
0.6095 

>> TY = PrimeMOD(4,10,2) 

= 0.1311 
0.8758 
0.1882 
0.7155 
0.7172 
0.7388 
0.5340 
0.0777 
0.3239 
0.1383 





间 数 分 布 的 概率 密度 函数 为 
工 
JoOD=18 


产生 指数 分 布 的 随机 数列 的 算法 介绍 如 
僵 产生 [0.1] 上 均匀 分 布 的 随机 数 r 。 
-四 计算 x=-Plnr， 则 数列 {z} 为 均值 为 有 ， 方差 为 太 7 的 指数 分 布 随机 数列 。 
在 MATLAB 中 编程 实现 的 指数 分 布 的 函数 为 ，PowerDist 
功能 : 产生 指数 分 布 的 随机 数列 
调用 格式 ，x = PowerDist(x0,n,beta) 
其 中 ，x0: 随机 数 种 子 ; 
n: 产生 的 随机 数 个 数 ; 
beta， 指 数 分 布 参数 ; 
X; _ 产生 的 随机 数 序列 。 


L_ 本 _- - 
产生 指 数 分 布 的 随机 数列 的 MATLAB 程序 序 代码 如 下 所 示 ， 


function X = PowerDist (x0,nybetal) 


gs 随机 数 种 子 ，x0 
产生 的 随机 数 个 数 : nm 
g% 指 数 分 布 参数 : beta 
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列 。 


g% 产 生 的 随机 数 序 列 : x 


format Long; 
X = Zeros(ny, IT) ， 
for 工 =1 :了 
r = MixMOD(x0,2,1); g% 用 混合 同 余 法 产生 随机 数 
g 防 止 产生 坏 的 随机 数 


K = ; 
rz(2) = Power(2,K); 
上 = MixMODI(C(2) ,2，1) 


X(i) = -betax1log(r(2) ) ; 
x0 = X(I); 

enQ 

format Short 
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产生 指数 分 布 的 随机 数列 应 用 实例 。 产 生 均值 为 10 的 指数 分 布 的 随机 数 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X =PowerDist (4,10,20) 
X= 1.0913 
3.6977 
0.7623 
2.8843 
23 .3382 
12.0544 
9.1600 
8.8944 
29.0235 
5.0186 
14.9359 
10.8064 
11.1164 
7.3646 
26.7678 
5.5437 
13.2125 
2.6454 
29.0697 
3.5730 


可 以 检验 上 面 产生 的 随机 数 的 分 布 情况 ， 
& 求 数列 x 的 均值 


>> ]Jjz = mean(X) 
jz = 11.0480 
>> fc -= var(x) g 求 数列 x 的 方差 


ftc = 84.6023 


检验 的 结果 表明 ， 产 生 的 随机 数 序列 的 均值 为 11.0480， 方 差 为 84.6023， 而 两 者 的 理 
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论 值 为 10 和 100， 当 产生 的 随机 数 个 数 越 多 的 时 候 ， 随 机 数列 越 接近 理论 分 布 。 





拉 普 拉 斯 分 布 的 概率 密度 函数 为 


产生 拉 普 拉 斯 分 布 的 随机 数列 的 算法 介绍 如 下 : 
锚 产生 [0.H] 上 均匀 分 布 的 随机 数列 和 请 。 
@@ 计算 
_ | -pind- 产 ) 政和 志 0.5 
1 放 > 0.5 
则 数列 {z} 为 均值 为 0 ， 方 差 为 28? 的 拉 普 拉 斯 分 布 的 随机 数列 。 


| 在 MATLAB 中 编程 实现 的 拉 普 拉 斯 分 布 的 函数 为 ，LaplaceDist 

功能 : 产生 拉 普 拉 斯 分 布 的 随机 数列 
调用 格式 : x= LaplaceDist(x0,xl,n,beta) 
其 中 ，x0， 随 机 数 种 子 ; 

xl:， 随机 数 种 子 

n， 产 生 的 随机 数 个 数 ; 

beta， 拉 普 拉 斯 分 布 参数 ， 

x， 产生 的 随机 数 序列 。 





产生 拉 


function X = LaplaceDist(x0,x1,n,betay) 


g% 随 机 数 种 子 : x0 

g% 随 机 数 种 子 ， x1 

g% 产 生 的 随机 数 个 数 : mn 

g 拉 普 拉 斯 分 布 参数 ,beta 
g% 产 生 的 随机 数 序列 : x 


format 1ong; 


X = Zeros (ny，1L): 
for 工 = 工 :DT 
r = MixMOD(x0,10,1) ; gg 用 混合 同 余 法 产生 随机 数 
U = MiXxMODI(x1,10,2) 
KK = 0; 
while (fr(10) == 0 1| ul(10) == 0) g 防 止 产生 坏 的 随机 数 
K=K+ 工 ; 


xz(10) = Power(2,K) ; 

ul(10) = Power (2, Power (2,Kk)) ; 
TY = MIXxMODI(T(10)，2，1) ， 

Uu = MixMOD(u(10),，2,，2); 
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GD 
if xr(10) <= 0.5 
X(I) = -betaxlogl(1-ul(10))， 
elSe 
X(i) = betaxlogfu(10)) 
endQ 
XO = X1: 
X1 = X(I)， 
endQ 


fotrmat Short : 


产生 拉 普 拉 斯 分 布 的 随机 数列 应 用 实例 。 产 生 均 值 为 0， 方差 为 8 的 拉 普 
拉 斯 分 布 的 随机 数列 。 


解 : 在 MATLAB 中 输入 下 列 命 令 : 


>> X = LaplaceDist(23,671,2,20) 
X = -0.4220 
2.0087 
下 .0257 
-0.5790 
-0.3408 
0.6032 
一 .1900 
0.8356 
-0.9209 
0.4567 
0.1985 
一 8 .1181 
--2.5313 
1.8108 
1.7130 
4.2364 
5.6092 
7.8711 
2.7976 
6.1938 


可 以 检验 上 面 产生 的 随机 数 的 分 布 情况 ; 


>> jz = mean(x) g% 求 数列 x 的 均值 
2 = 0.3994 
>> fc = var(x) g% 求 数列 x 的 方差 
fc = 12.7462 


从 结果 可 以 看 出 ， 方 差 有 点 偏 大 ， 说 明 数 据 分 布 有 点 分 散 。 





瑞 利 分 布 的 概率 密度 函数 为 
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2 


JaD= 二 ee25 xx>0 
G 


产生 瑞 利 分 布 的 随机 数列 的 算法 介绍 如 下 : 
仁 产生 [0.1 上 均匀 分 布 的 随机 数 r 。 
全 计算 y=-2inr。 


轩 计算 z*= cy , 则 数列 {x} 为 均值 为 cj 方差 为 (2 -27 的 瑞 利 分 布 随机 数列 。 


关 - 一 一 
] 


| 

| 功能， 产生 瑞 利 分 布 的 随机 数 到 
调用 格式 : xx = RelayDist(x0,sigman) | 
| 其 中 ，x0， 随机 数 种 子 ， 
| sigma:， 瑞 利 分 布 的 参数 ; 
n: 产生 的 随机 数 个 数 ; | 
x: 产生 的 随 初 数 序列 。 


产生 瑞 利 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 : 


function Xx = RelayDist(x0,sigma,m) 
g% 随 机 数 种 子 : x0 
g% 瑞 利 分 布 的 参数 ，sigma 
g% 产 生 的 随机 数 个 数 : mn 
g% 产 生 的 随机 数 序列 : x 
format 1ong:; 
X = Zeros (ny,，1): 
for 工 = 工 :DT 
r = MixMOD(x0,10,1); g 用 混合 同 余 法 产生 随机 数 
KK = 0 
while xx(10) == 0 g 防 止 产生 坏 的 随机 数 
K=K+ 工 ; 
xz(10) = Power(2,K) ; 
上 = MIXMODI(T(10)，2，1)， 
enQ 
六 --2x*1og(r(10) ) ; 
六 SigmaxSsGrt(y) ， 


i) = 
= X(I); 


( 
X0 
enmQ 
forrmat Short ， 


有 产生 利 分 布 的 随机 数列 应 用 实例 。 产 生 瑞 利 分 布 的 随机 数列 ， 其 中 


G=2o。 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X = RelayDist(71,2,10) 
X = 4.7972 
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.2460 
- 工 31 
.1889 
.3208 
.6432 
.6000 
.0933 
.0495 
.7259 


ku 人 whNowo 必 ON 


产生 柯 西 分 布 的 随机 数列 





柯 西 分 布 的 概率 密度 函数 为 
有 


/GO 
产生 柯 西 分 布 的 随机 数列 的 算法 介绍 如 下 : 
代 产生 [0.1] 上 均匀 分 布 的 随机 数 r 。 


图 计算 xz=w- 一， 则 数列 {f]} 为 柯 西 分 布 的 随机 数列 。 
tan(rTr) 


有 B>0 





- 和 下 交 呈 的 DR 


功能 : 产生 柯 西 分 布 的 随机 数列 
调用 格式 : x = CauthyDist(x0,alpha,beta.n) 
其 中 ，x0: 随机 数 种 子 ; 

alpha， 柯 西 分 布 的 参数 ; 

beta， 柯 西 分 布 的 参数 ; 

n; 产生 的 随机 数 个 数 ; 

x: 产生 的 随机 数 序列 。 


function x = CauthyDist(x0,alpha,beta,Dn) 
g 随 机 数 种 子 : X0O 


g 柯 西 分 布 的 参数 ， alpha 
g% 柯 西 分 布 的 参数 : beta 
gs 产生 的 随机 数 个 数 : mn 

g% 产 生 的 随机 数 序列 : x 
format 1ong' 

Di = 3.1415926535:， 
X = Zeros (DT): 

for =1 :DT 


r = MixMOD(x0,10,1) ; g% 用 混合 同 余 法 产生 随机 数 

KK = 0; 

while r(10) == 0 g% 防 止 产生 坏 的 随机 数 
kk=k+1; 
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产生 柯 西 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 :; 
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rr(10) = Power(2,，K) ; 
T = MixMOD(E(10) ,2，1); 
enaQ 
YY = tan(z(10)*Pi)y， 
X(1I) = alpha 一 beba/y: 
x0 = X(I); 
enaQ 
format Short : 


产生 柯 西 分 布 的 随机 数列 应 用 实例 。 产 生 柯 西 分 布 的 随机 数列 ， 其 中 
2X=1，p=3。 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X = CauthyDist(23,1,3,，10) 
X = 2.6907 
-0.1731 
5.1708 
一 3.8144 
3.8492 
1 .4792 
-2.6032 
2.3259 
4.2820 
2.9695 


爱 尔 朗 分 布 的 概率 密度 函数 为 
一 下 1 
几 二 。6 
FOD=10CDT2 >0A>0 
0 X<0 
产生 爱 尔 明 分 布 的 随机 数列 的 算法 介绍 如 下 ， 
从 产生 六 个 [0.] 上 均匀 分 布 的 相互 独立 的 随机 数 m。 


四 通过 变换 zx= -Bin([T，) ， 则 数列 {r} 为 爱 尔 朗 分 布 的 随机 数列 。 
1 一 1 


在 MAILAB 中 编程 实现 的 爱 尔 朗 分 布 的 函数 为 ， AELDist 
功能 : 产生 爱 尔 朗 分 布 的 随机 数列 
调用 格式 : X= AELDist(x0,m,beta.n) 
其 中 ，x0， 随机 数 种 子 ， 
m:， 爱 尔 朗 分 布 的 参数 ; 
beta， 爱 尔 朗 分 布 的 参数 ; 
n: 产生 的 随机 数 个 数 ， 
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可 X: x， 产 生 的 随机 数 序 列 。 
“产生 爱 尔 朗 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 ， 


function X = ARELDiSst (xX0,mybeta,Dn) 
ss 随机 数 种 子 : x0 
gs 爱 尔 朗 分 布 的 参数 : m 
gs 爱 尔 朗 分 布 的 参数 : beta 
g 产 生 的 随机 数 个 数 : n 
g 产 生 的 随机 数 序列 : x 
format ong ; 
X = zeros (ny 1L): 
U = Zeros (my, 工 ) ; 
for 1= 工 :mn 
for JJ=1:n 


r = MixMOD(x0,10,1); 用 混合 同 余 法 产生 随机 数 
K = 0 
while r(10) == 0 sg 防止 产生 坏 的 随机 数 
K=K+ 1: 
zz(10) = Power (2,K) ; 
rr = MixMOD(T(10)，2，1) ; 
endQ 
ul() = <(10) 
x0 = ul):; 
x(i) = XI) 一 betaxlog(tu(J))， 
enmdQ 
x0 = X(1L) 
enda 
fEormat Short 
产生 爱 尔 朗 分 布 的 随机 数列 应 用 实例 。 产 生 爱 尔 朗 分 布 的 随机 数列 ， 


中 疙 =3 有 B=2。 
解 : 在 MATLAB 中 输入 下 列 命令 


>> X = AEBLDist(21,3,，2,10) 
X= 1.3607 
.9061 
.4967 
-0211 
.6140 
.6806 
.8945 
-1019 
.3486 
.1543 





户 
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3 产生 正 态 分 布 的 随机 数列 


正 态 分 布 也 叫 高 斯 分 布 ， 正 态 分 布 的 概率 密度 函数 为 
泛 通 二 可 381 
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一 1 一 (x-A0)2712G? 
J 三 (0 本 e 
产生 正 态 分 布 的 随机 数列 的 算法 介绍 如 下 。 
人 产生 12 个 [00] 上 均匀 分 布 的 相互 独立 的 随机 数 请， 仿 


12 
?= 之 和 
人 @ 通过 变换 -4+ay ， 风 数 轩 是 多 值 为 凡 ， 方 兰 为 5? 的 正 态 分 布 随机 数列 。 


在 MATLAB 中 编程 实现 的 正 态 分 布 的 函数 为 ，GaussDist 
功能 : 产生 正 态 分 布 的 随机 数列 

调用 格式 : xx= GaussDist(x0,mu,sigma,n) 

其 中 ，x0: 随机 数 种 子 ; 

mu:， 正 态 分 布 的 参数 ; 

sigma， 正 态 分 布 的 参数 ; 

n: 产生 的 随机 数 个 数 ， 

X: 产生 的 随机 数 序列 。 


产生 正 态 分布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 ， 


function xX = GaussDist(x0,muy sigma,Dn) 


g% 随 机 数 种 子 ，x0 

% 正 态 分 布 的 参数 : mu 

gs 正 态 分 布 的 参数 : sigma 
g% 产 生 的 随机 数 个 数 : mn 

g 产 生 的 随机 数 序列 : x 


format 1ongy; 





| 
| 
j 


X = Zeros (ny,1):; 
U = Zeros (12 ,1) 
fotr 工 =1:Tn 


Yy = 一 60; 
for ]J=1:12 
上 = MixMOD(x0,10,1) gs 用 混合 同 余 法 产生 随机 数 
K = 0; 
while r(10) == 0 g% 防 止 产生 坏 的 随机 数 
K=K+ 1 
(10) = Power (2,K) : 
上 = MiXxMOD(E(10)，2，1); 
enDd 
ul(j) = 工 (10); 
x0 = ul); 
yY=Yy+u(J); 
emG 
X(i) = mu + SigrmaxY; 
X0 = X(I): 


endQ 
format Short : 


382 拓 径 条 





解 : 在 MATLAB 中 输入 下 列 命令 ; 


GaussDist(31,5,2,10) 
,4708 
.2467 
-4921 
.1306 
.3621 
.4796 
-4703 
-7963 
.2649 
.6933 


了] 
上 
1 
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产生 正 态 分 布 的 随机 数列 应 用 实例 。 产 生 正 态 分 布 的 随机 数列 ， 其 中 
几 =5，G=2 


可 以 用 如 下 的 程序 检验 产生 的 随机 数 是 否 满足 &W=S$，a=2 的 正 态 分 布 : 


function numDiest = est(x0,N) 

X = GaussDist (31,5,2,10000) ; 

mi = floor(min(x) ) ， 

ma = Cell(max(X) ) ， 

numDist = Zeros (ma-mi,1): 

for 1=1:N 
] = floor(Xx(i)) 一 mi， 
DumDist(j+l) = numDist(J+1) + 1; 

endQ 


=1: (mami) ， 
bpar(t,numDist) : 


在 MATLAB 中 输入 下 列 命令 : 


>> num = test(41,10000) 
num = 18 
40 
215 
380 
920 
1612 
1884 
1860 
1493 
882 
502 
154 
31 
4 


而 且 可 以 从 如 图 13-3 所 示 的 直方 图 中 明显 看 出 来 : 


所 本 本 古 383 
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2000 





1800 上 


1600 


1400 上 


1200 上 


1000 上 上 
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图 13-3 ”用 正 态 分 布 法 产生 的 随机 数 的 分 布 图 


产生 韦伯 分 布 的 随机 数列 


韦伯 分 布 的 概率 密度 函数 为 





























JCD= xz>0o.8>0 
0 X<0 

产生 韦伯 分 布 的 随机 数列 的 算法 介绍 如 下 : 

舍 产生 [0.] 上 均匀 分 布 的 随机 数 r 。 

僵 计算 x= 8(-n7m 7 ， 则 数列 {x} 为 记 伯 分 布 的 随机 数列 。 


功能 : 产生 韦伯 分 布 的 随机 数列 
调用 格式 : xx= WBDist (x0,alpha,beta,n) 
. 其 中 ，x0: 随机 数 种 子 ; 
alpha， 韦 伯 分 布 的 参数 ， 
beta: 韦伯 分 布 的 参数 ; 
n: 产生 的 随机 数 个 数 ; 


| x 产生 的 随 人 数 训 。 
产生 韦伯 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 : 


function X = WBDist(X0,alpha,beta,DTn) 
g 随 机 数 种 子 : x0 

g 韦 伯 分 布 的 参数 ，alpha 

g 亡 伯 分 布 的 参数 : beta 

g 产 生 的 随机 数 个 数 : n 

g% 产 生 的 随机 数 序列 : x 

format 1ongy; 

X = Zeros(mn,1) :; 
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for 1=1:mn 





z = MixMOD(x0,10,1); gs 用 混合 同 余 法 产生 随机 数 
kk = 0:; 
while r(10) == 0 g 防 止 产生 坏 的 随机 数 

K = 和 K+ IT; 


Cr(10) = Power(2,，K) ; 
rr = MixMOD(E(10)，2，1) ， 


enQ 
芋 = 1 /alphay; 
Y = -Log(r(10) ) 
X(I) = betaxbower(y, 七 ) ; 
Xx0O = X(i); 
end 


format Short : 


产生 韦伯 分 布 的 随机 数列 应 用 实例 。 产 生 韦伯 分 布 的 随机 数列 ， 其 中 
2X=2，p8=2。 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X = WBDist(71,2,2,10) 
X= 3.3921 
.7214 
.2474 
-0062 
.6637 
.7105 
.4223 
.5681 
.5539 
.4819 


MD 口上 有 有 上 





泊 松 分 布 的 概率 密度 函数 为 
亢 _ 一 人 
JOD= 生 exe(01… 思 
X! 


产生 泊 松 分 布 的 随机 数列 的 算法 介绍 如 下 : 
命令 0=1，i=0。 

全 产生 [0.1] 上 均匀 分 布 的 随机 数 /， 。 

合 仿 25=bxr。 

鲍 如 果 0 > e “ ， 那 么 令 1=1+1， 转 @。 

什 取 z*=;i ， 则 数列 {x} 为 泊 松 分 布 的 随机 数列 。 


在 MATLAB 中 编程 实现 的 泊 松 分 布 的 函数 为 ，PoisonDist 
_ 习 能 : 产生 泊 松 分 布 的 随机 数列 


声明 晤 可 385 
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产 一 一 一 一 一 一 一 一 一 -一 


调用 格式 ，x = PoisonDist Cx0， lamda 四 
其 中 ，x0:， 随机 数 种 子 ; 
lamda:， 泊 松 分 布 的 参数 ; 
n: 产生 的 随机 数 个 数 ; 
: 产生 的 随机 数 序 列 。 


产生 ; - 泊 松 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 ， 


function X =PoisonDist(x0, Lamda,mn) 
sg 随机 数 种 子 ，x0 
g 泊 松 分 布 的 参数 ， lamaqa 
g 产 生 的 随机 数 个 数 : n 
g% 产 生 的 随机 数 序列 : x 
format ong; 
X = Zexros (DT):; 
for 开 = 工 : 
D = 工 ， 
tol = 1 
K = 0); 
while 上 ol == 
r = MixMOD(x0,10,1) ; gs 用 混合 同 余 法 产生 随机 数 
D = pxr(10); 
if b < exp(-lamqa) 
tol = 0 :; 
X(I) = K; 
人 Se 
K = K+1; 


enaQ 

X0 = X0O + 31; 
enQ 
format Short : 


产生 泊 松 分 布 的 随机 数列 应 用 实例 。 产 生 泊 松 分 布 的 随机 数列 ， 


4=2。 
解 : 在 MATLAB 中 输入 下 列 命令 


>> 六 PoisonDist(11,，2,，10) 


X= 2 
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产生 贝 努 里 分 布 的 随机 数列 





贝 努 里 分 布 的 概率 密度 函数 为 : 
己 X=] 
7- 们 ， 0 
其 中 0 和 pp 和 1。 
产生 贝 努 里 分 布 的 随机 数列 的 算法 介绍 如 下 
从 产生 [0.1] 上 均匀 分 布 的 随机 数 r 。 
四 如 果 r 乏 pp ， 则 令 x=1， 否 则 令 x=0。 


在 MATLAB 中 编程 实现 的 贝 努 里 分 布 的 函数 为 ， BenuliDist 
， 功能, 产生 贝 努 里 分 布 的 随机 数列 
调用 格式 : x= BenuliDist (x0, pn) 
其 中 ，x0， 随 机 数 种 子 ; 
P: 贝 努 里 分 布 的 参数 ; 
n: 产生 的 随机 数 个 数 ; 
x: 产生 的 随机 数 序列 。 


产生 贝 努 里 分 布 的 随机 数列 的 MAILAB 程序 代码 如 下 所 示 : 





function x =BenuliDist(x0,P,Dn) 
g 随 机 数 种 子 ，x0 

g 贝 努 里 分 布 的 参数 ， 了 

g 产 生 的 随机 数 个 数 : nm 

g 产 生 的 随机 数 序列 : x 


format Long 





X= Zeros (ny,， 工 ) ; 
for 工 = 工 :了 
r = MixMOD(x0,10,1); g% 用 混合 同 余 法 产生 随机 数 
if xr(10) <= P 
X(i) = 工 ; 
elLSse 


X(I) = 0) 
emnd 
X0 = 2xXO: 
endQ 
totrmat Short 


ER 产生 贝 努 里 分 布 的 随机 数列 应 用 实例 。 产 生 贝 努 里 分 布 的 随机 数列 ， 其 
中 P=0.5。 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X = BenuliDist(33,0.5,10) 


塌 通 可 可 387 
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户口 口 口 广 虽 记 上 上 上 





产生 贝 努 里 -高 斯 分 布 的 随机 数列 


贝 努 里 -高 斯 分 布 的 随机 变量 为 贝 努 里 分 布 与 正 态 分 布 的 随机 变量 的 乘积 。 
产生 贝 努 里 -高 斯 分 布 的 随机 数列 的 算法 介绍 如 下 : 

侠 产生 贝 努 里 分 布 的 随机 数 ，。 

舍 产生 正 态 分 布 的 随机 数 。 。 

图 计算 zx= yxz ， 则 数列 {x 为 贝 里 -高 斯 分 布 的 随机 数列 。 








， 在 MATLAB 中 编程 实现 的 贝 努 里 -高 斯 分 布 的 函数 为 ，BGDist 
功能 : 产生 贝 努 里 -高 斯 分 布 的 随机 数列 
调用 格式 : x= BGDist(x0,p,mu,sigma,n) 
其 中 ，x0:， 随机 数 种 子 ; 
p: 贝 努 里 -高 斯 分 布 的 参数 
mu: 贝 努 里 -高 斯 分 布 的 参数 
Sigma: 贝 努 里 -高 斯 分 布 的 参数 
n: 产生 的 随机 数 个 数 ; 
x: 产生 的 随机 数 序列 。 


产生 贝 努 里 -高 斯 分 布 的 随机 数列 的 MATLAB 程序 代码 如 下 所 示 ， 


function X =BGDist(x0,p,mu,sigma,n) 


g 随 机 数 种 子 : x0 

g 贝 努 里 -高 斯 分 布 的 参数 ，p 

8 贝 努 里 -高 斯 分 布 的 参数 ， mu 

g 贝 努 里 -高 斯 分 布 的 参数 sigma 
gs 产 生 的 随机 数 个 数 : nm 

g% 产 生 的 随机 数 序列 : x 


format ongy; 





X = Zeros (mnD，1) ; 
for 工 =1:DTn 
Yy = BenuliDist(x0,Dp,10): 


Z = GaussDist(2xx0,mu,sigma,10) ， 
Xx(i) =yY(10)xz(10) 
X0 = 2xX0: 


388 各 因 若 知 
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end 
format Short 


产生 贝 努 里 -高 斯 分 布 的 随机 数列 应 用 实例 。 产 生 贝 努 里 -高 斯 分 布 的 随 
机 数列 ， 其 中 D=0.3， 有 =1， G=2o 
解 : 在 MATLAB 中 输入 下 列 命令 ， 


>> X = BGDist(85,0.3,1,2,12) 





二 项 式 分 布 的 概率 密度 函数 为 


JOD=Czpxz 一 Dr YE (002 


1 
其 中 Cz = 一 … _ ，0 和 p 世 1。 
2 一 2)1 


产生 二 项 式 分 布 的 随机 数列 的 算法 介绍 如 下 : 
舍 产生 贝 努 里 分 布 的 随机 数 m,m… 


Sx- y ， 则 数列 {x} 为 二 项 式 分 布 的 随机 数列 。 


在 MATLAB 中 编程 实现 的 二 项 式 分 布 的 函 郴 数 为 :， TwoDist 
功能 ， 产生 二 项 式 分 布 的 随机 数列 
调用 格式 ， x = TwoDist (x0,p,n,N) 
其 中 ，x0: 随机 数 种 子 ; 
p: 二 项 式 分 布 的 参数 

n:， 二 项 式 斯 分 布 的 参数 ， 
N: 产生 的 随机 数 个 数 ; 

X:; : 产生 的 随机 数 序 和 列 。 


产生 二 项 式 分 布 的 随机 数列 的 MATLAB B 程序 款 代 码 如 下 所 示 ， 


function xX =TwoDist (x0,Dp,nyN) 


授 通 本 可 389 
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g 随 机 数 种 子 : X0 
s 二 项 式 分 布 的 参数 : p 
g% 二 项 式 分 布 的 参数 : mn 
g 产 生 的 随机 数 个 数 : N 
g 产 和 后 的 随机 数 序列 : x 
format 1ongy; 
X = Zeros (N,1): 
ftor 1=1:N 
Yy = BenuliDist(x0,p,n): 
xl(i) = Sum(y); 
X0 = 2*xX0: 
endq 
format Short : 


产生 二 项 分 布 的 随机 数列 应 用 实例 。 产 生 二 项 式 分 布 的 随机 数列 ， 其 中 
DP=03，m=10。 


解 : 在 MATLAB 中 输入 下 列 命令 : 


>> X =TwoDist(31,0.5,10,10) 
X = 7 


~]1o co ~、 o 


几乎 每 一 种 编程 语言 都 提供 自己 的 随机 数 生成 函 数 ， 不 管 它们 的 性 能 如 何 ， 随 机 数 的 
基本 算法 还 是 同 余 法 ， 因 为 同 余 法 不 但 实现 简单 ， 而 且 产生 的 随机 数 序列 均匀 性 好 。 


390 外 逢 入 知 


第 人 4 章 特殊 函数 计算 


特殊 函数 是 指 一 些 类 似 三 角 函 数 及 伽 玛 函数 、 贝 塞 尔 函 数 等 超 几 何 数列 函数 ， 具 有 特 
殊 的 性 质 和 特点 ， 在 现实 中 得 到 大 量 的 运用 的 函数 。 对 这 些 函 数 的 研究 并 不 在 一 般 数 学 分 
析 或 实 函数 分 析 范 畴 之 内 ， 传 统 上 对 特殊 函数 的 分 析 主 要 基于 对 其 的 数值 展开 基础 上 。 

通过 本 章 的 学 习 ， 读 者 不 仅 能 掌握 数理 方程 中 常用 的 特殊 函数 的 算法 ， 而 且 还 能 熟练 
使 用 MATLAB 编程 来 实现 这 些 算法 。 





伽 玛 函 数 的 定义 如 下 : 

FOOD = ed (>0) 
伽 玛 函 数 T(o) 的 一 般 算 法 介绍 如 下 。 
个 如 果 2<x 近 3， 苇 傅 ; 否则 


a) 如 果 0<x<g1， 用 公式 TCD = < 进 生 变换 ， 


b) 如 果 1<x 芝 2 ， 用 公式 TO = 工 G+D 进行 变换 ; 
大 


c ) 如 果 x>3， 用 公式 TOoO =(z-Dx-2…(x-DTGz-DD 进 行 变换 ， 直 到 2<x-i 和 3。 
即 ; 是 满足 下 面 不 等 式 的 整数 : 
X-3 委 i 所 一 2 
例 计算 TOo = 六 at - 2) ， 其 中 
i=0 

co = 0.0000677106,ci = -0.0003442342 
co = 0.0015397681,c3 = -0.0024467480 
cd = 0.0109736958,c5 = -0.0002109075 
ce = 0.0742379071cr = 0.0815782188 
cg =0.4118402518,ce = 0.4227843370 
cio =1.0000000000 

算法 结束 。 


-一 去 二 二 和 和 下 :二 二 二 二 全 -一 一 一 
功能 : 用 逼近 法 计算 人 徊 玛 函 数 的 值 
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调用 格式 : function gx = gamafun(x) 
其 中 ，x:， 自 变量 的 值 ; 
奴 : 自 变量 取 x 值 时 的 伽 玛 函数 值 。 








计算 伽 玛 函数 值 的 带 近 法 的 MATLAB 程序 代码 如 下 所 示 ; 
function Gx = Gamaftun(Xx) 

g 自 变量 的 值 : x 

s 自 变量 取 x 值 时 的 伽 玛 函数 值 : gx 


format 1ong; 


it XxXx< 0 
disp('x 必须 大 于 01 ，); 
zetUuzn7 
@1Se 
了 E X<= 工 
gx = gf(x+2)/x/(x+L) ; g% 公 式 变 换 
elSse 
了 荆 X< 一 2 
gx = gf(x+l1) 7/x; g 公 式 变 换 
elLSse 
EX<=3 
gx = gf(X) 7 
@Se g% 公 式 变 换 
K = floor(x) 一 2; 
CC 一 工 
for 工 =] : 攻 
C = Cx{(X-) ; 
emnd 
GX 一 Crxgf(X-K) ， 
enQ 
enGQ 
end 
endQ 
function tx = gG9f(X) g 伽 玛 函 数 的 多 项 式 副 近 


forrmat ong: 

C= [0.0000677106;-0.000344234270.0015397681: 
-0.0024467480;0.0109736958;-0.0002109075: 
0.074237907170.0815782188;0.4118402518:; 
0.42278433707;1.00000000] 

tX = 0 

for 1i=1:11 
txX = 上古 X 二 Ci)xPpower(x-2,，11 开 ) ， 

endaQ 


伽 玛 函数 TOo 的 Lanczos 算法 介绍 如 下 。 


TOGz+D= (x+Y+05) ee 
XwNV2T(ao 十 和 十 4 十 … :十 LN ) 
X 十 1] ZX 十 2 X 二 N 


一 般 情 况 下 ， 采 用 的 是 yY=5，N=6， 系 数 为 : 
392 罗 基 知 和 











第 1 入 章 ”特殊 函数 计算 


ao =1.000000000000000, ai = 76.18009172947146 

a2 = 一 86.30532032941677,a3 = 24.01409824083091 

24 = 一 1.2317393724501533,as = 0.1208650973866179e -2 
a6 = -0.5395239384953e 一 5 


在 MATLAEB 中 编程 实现 的 计算 伽 玛 函数 的 自然 对 数 的 Lanczos 算法 函 数 为 : ngama ， 
功能 : 用 Lanczos 算法 计算 伽 玛 函 数 的 自然 对 数值 
调用 格式 : function Tx = Ingama(x) 
其 中 ，x: 自 变量 的 值 ; 

_Tx: 自 变量 取 x 值 时 的 伽 玛 函数 值 的 自然 对 数 。 


计算 伽 玛 函 数值 的 Lanczos 算法 的 MATLAB 程序 代码 如 下 所 示 


function Tx = lngama(Xx) 
g% 自 变量 的 值 : x 
g 自 变量 取 x 值 时 的 伽 玛 函数 值 的 自然 对 数 : Tx 
if Xx < 0 
disp('x 必须 大 于 01 '); 
eturDn， 
end 
format 1ongy; 
cC = [76.180091737;-86.50532033;24.01409822， 
-1.231739516;0.00120858003;-0.000005363821]; sLanczos 算法 中 的 系数 
const1 = SGYL (2xpi)， 
T1T = (x-0.5)x1og(x+4.5): 
T2 = 1; 
ftor 1=1:6 
T2 = T2+ci)V/(x-L+ILT) ， 
end 
TX=TL 一 X 一 4.5 + log(consLt1xT2); 
TxX = VPa(TX,，8) 


由 伽 玛 函数 计算 阶乘 的 公式 如 下 所 示 : 
174= 工 (2 十 ]) 











在 MATLAB 中 编程 实现 的 由 伽 玛 函数 计算 阶乘 的 函数 为 : actbygama 
: 用 伽 玛 函数 求 阶乘 

有 格式 ，function y= factbygama (Cn) 

其 中 ,，n: 自然 数 ， 
y: 0 的 阶乘 。 


伽 玛 函 5 数 计算 阶乘 的 Lanczos 算法 的 MATILAB 程序 代码 如 下 
function Y = factbygama (nm) 

sg 自然 数 ，n 

g 阶 乘 值 : 了 


format 1ong:， 
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exp (LIngama (mn+1) ) ; 
enaQ 


贝塔 函数 的 定义 如 下 : 


g% 先 求 阶乘 的 自然 对 数 ， 再 求 阶乘 


B( (fl wy-l 
xD)= 上 | (-D7drocy>0) 


贝塔 函数 的 计算 方法 为 ， 


且 3 一 
(xc, y) FCTy 


在 MATLAB 中 编程 实现 的 计算 贝塔 函数 值 的 函数 为 ，Beta 


功能 : 用 伽 玛 函数 计算 贝塔 函数 的 值 
调用 格式 : BF = Beta(x,y) 
， 其中，x:， 自 变量 的 值 ， 
y: 第 二 个 自 变 量 的 值 ; 
BF， 贝塔 函数 值 。 


function BF = Beta(xv,y) 
g% 自 变量 的 值 ， x 

g 第 二 个 自 变量 的 值 . y 

g 贝 塔 函数 值 : BF 





ifXx<=0 1l|Yy<= 0 
disp('x,y 必须 大 于 01 ')， 
zeturDny 

enaQ 


format 1Long; 

也 X exp(1LIngama(X) ) ; 

By = exp(lIngama(y)) ; 
Bxy = exp(1lngama (x+y) ) ; 
BF = BXxBY/VBXY:， 


伽 玛 函数 应 用 实例 1。 计 算 x= 0.1.0.2， 
自 带 的 伽 玛 函数 Gamma 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 


>> for 1i=1:10 


my(1iIi) = Gamafun(I/V10):， 
Sy(I) = Gamma(I/10) :; 
1y(I) = expb(lngama(I/1L10) ) ; 


emnaQ 
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TOOLCy) 


计算 贝塔 函数 值 的 MATLAB 程序 代码 如 下 所 示 ; 


…,1 时 的 伽 玛 函数 值 ,并 与 MATLAB 
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将 结果 列 成 表格 比较 如 下 : 










gamafun(x) 









9.513507698226600 9.313507698668730 
4.590843711998800 


2.991568987520560 2.991568987687590 



















9.513507698750150 









4.390843713141700 4.590843711763810 





2.991568998925080 








2.218159602303030 


2.218159543623710 
1.7724538S0790530 
1.489192248709680 
1.2980SS332S$2100 
1.164229713634820 
1.068628702031910 


MATLAB 系统 采用 的 是 更 精确 的 算法 ,但 是 本 节 中 的 两 个 通 近 函数 都 达到 了 10 的 精 
度 ， 在 一 般 的 计算 中 已 经 足够 。 


伽 玛 函数 应 用 实例 2。 计 算 靖 = 30,31…,38 时 的 阶乘 , 并 与 MATLAB 自 带 
的 阶乘 函数 factorial 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 : 





1.77245S4059230470 





1.489192831970880 





1.298056716682360 





1.164232626305490 
















1.068634296052830 




















1.000009999750000 0.999999999914230 


>> for 1=1:9 
mf(i) 
sf(I) 


factbygama(I+29) ; 
factorial(i+29) 


enQ 


将 结果 列 成 表格 比较 如 下 ; 


factbygama(nm) factorial(m) 








2.652328598121910e+032 2.652528598121910e+032 


8.222838654177922e+033 8.222838654177922e+033 
2.631308369336935e+035 2.631308369336935e+035 
8.683317617196106e+036 8.683317618811886e+036 


2.952327989852689e+038 2.95232799039604tie+038 


























1.033314796450539e+040 1.033314796638614e+040 








3.719933267229548e+041 3.719933267899012e+041 








1.376375308877653e+043 1.376375309122634e+043 








5.230226173745393e+044 5.230226174666010e+044 





从 上 表 的 比较 结果 可 以 看 出 ， 当 " 乏 32 时 ， 函 数 factbygama 计算 得 到 的 阶乘 结果 与 
MATFLAB 系统 得 到 的 结果 是 一 样 的 , 当 关 > 32 时 , 两 者 算出 的 结果 有 差别 , 可 以 预计 MATLAB 
系统 在 乏 32 时 可 能 采用 本 书 中 的 方法 计算 阶乘 ， 而 当 产 > 32 时 采用 了 其 他 的 方法 。 
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而 尼 吾 < 列 贝塔 函数 应 用 实例 。 计 算 
X=1.2.1.4,1.6 
y=2.2,2.4,2.6 
时 的 贝塔 函数 值 ， 并 与 MATLAB 自 带 的 贝塔 函数 beta 相 比 较 。 
解 : 在 MATILAB 命令 行 输入 下 列 命令 : 


>> for II=13:3 


for ]j=1:3 
mb(i,j) = Betal(ixr0.2+1，JjJx0.2+2) 
spbl(i, JJ) = petal(ix0.2+1,]jx0.2+2) ， 
eDnd 
enq 
将 结果 列 成 表格 比较 如 下 








0.339339335353010 | 0.306837165965250 | 0.306837165965250 | 0.279630990623950 | 0.279630990623950 
0.263003285113070 | 0.234787177953980 | 0.234787177953980 | 0.211409023948420 | 0.211409023948420 








0.209723242967960 | 0.184982895954870 | 0.184982895954870 | 0.164682559636530 | 0.164682559636530 





可 以 看 出 ， 两 者 结果 完全 一 样 。 


不 完全 仰 玛 函 数 


不 完全 伽 玛 函数 的 定义 如 下 所 示 : 
P(Q，X) 


Fa,z) = 一 一 一 ,QQ>0x>0 
工 (C 


其 中 
Pa, 癌 = 人 ec-ldr 


不 完全 伽 玛 函数 Ta,za 的 算法 介绍 如 下 。 
盒 如 果 x<w+1， 有 
CC S To)z 
CD 之 CAT 
镭 如 果 x>aw+1， 有 
Ca, 


T(a,z) =1 一 
(C 交 ) Fo 


CQX>0X>0 
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eXC 
QQ, 切 = T 
券 十 】 
人 一 
2 
1 十 
严 一 CQ 
X 二 … 十 一 一 一 
1 十 
大 十 





在 MATLAB 中 编程 实现 的 计算 不 完全 伽 玛 函 数值 的 函数 为 ，gamap 

功能 ,用 逼近 法 计算 不 完全 伽 玛 函数 的 值 

调用 格式 : function gp = gamap(x,alpha) 

其 中 ，x: 自 变量 的 值 ; 
alpha， 参数; 
gp: 自 变量 取 X 值 时 的 不 完全 伽 玛 冰 数值 。 





计算 不 完全 伽 玛 了 数值 的 逼近 法 的 MATILAB 程序 代码 如 下 所 示 ， 


function gp = 9amap (X,alphal) 

g 自 变量 的 值 ，x 

gg 参数: alpha 

g 自 变量 取 x 值 时 的 不 完全 伽 玛 函数 值 : gp 
function gp = gamap (X,aLphal) 
fotmat 1ong: 


if X <=0 11 alpha<=0 
aisp(':x 和 alpha 不 能 小 于 01 7) 
上 return' 

end 


C = exp (-X) xPOwer (X, alLpPhal) : 
IE X<albha+I 
gp = c/exp(lngama (alpha+]l) ) ， 
tol 三 1; 
研 = 工 ; 
while tol 一 工 
T1 = exp(lngama(alpha+1+i) ): 
GP = Cxpower (x, 工 ) VDT1， 


if qP/gp < 1.0e-20 g 精 度 控制 
tol = 0: 

elLSse 
gp = gpP + GP 


enQ 
elSe 
tmp1l1 = gamafun(alpha) ; 
员 三 10; 
while 工 
tl1 = 1fs(n,Xx,alPpha) ， 
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t2 = 1fs(n+lL,xy alpbha) ; 
if abs(t2-t1)< 1.0e-20 
gp = 开 一 Cy* 二 /mpl; 


Preak:; 
el1Se 
mL = 一 十 工 ; 
enQ 
enaQ 
enGQ 


function qd = 1fs(ny,x,alphal) gs 连 分 数 求 值 函 数 
format Tongy; 
G 二 Di; 
for 1=n: 一 1:2 
qL = x+ (ialpha)/ (1 + Gd) 7; 
G=1+ (LI-1)7/Gl， 


endQ 
G=X+ (1-alpha)y/G; 
GL = 工 /di 


不 完全 伽 玛 函 数 应 用 实例 。 计 算 x=1.11.2,…,2， 且 w= 0.5 时 的 不 完全 伽 
玛 函 数值 ， 并 与 MATLAB 自 带 的 不 完全 伽 玛 函数 gammainc 相 比较 。 
解 ， 在 MATLAB 命令 行 输入 下 列 命令 : 


>> for 1=1:10 
mp(i) = gamap(1+i/10,0.5)) 
sp(i) = gammainc(1+i/10,0.5) 


endaQ 


将 结果 列 成 表格 比较 如 下 ， 经 过 比较 可 以 看 出 本 方法 还 是 有 一 定 的 误差 。 


gamap(X) 


gammainc (X) 





0.861989262512380 


0.861989262431340 





0.878664749726410 


0.878664749641520 





0.893136283095220 


0.893136285006620 





0.905735693250950 


0.905735693158790 





0.915955963174010 


0.916735483336450 





0.925738289144700 


0.926361729879690 





0.934302367600680 


0.934803580921870 





0.941815570182830 


0.942220428876400 





0.948418973856030 


0.948747417142630 











0.954232226443370 


不 完全 贝塔 函数 的 定义 如 下 所 示 : 
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0.954499736103640 
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Bo 有 = 本 ic-10 一 Dp-1di 


(2,B >0,0 乏 x 坟 TD 
不 完全 贝塔 函 数 已， (Q， 有 ) 的 算法 介 台 召 妇 下 。 


国 当 *< 一 +L 时 ， 
CQ 








++2 
XXX( 一 2 有 
Br(a, 有 )= 二 一 一 世 
(o, 有 ) X5(D) 0(2) 
1 
1 四 
1+- 2 
1+.… 
其 中 
， (C++ 有 +TP)Z 
和 (&+21)(c +27+]) 
， - PK(B 一 7m)X 
27 一 


(+27-D(x+27) 


因 当 :> 了 和 时 用 公式 Bee 肋 - 1 一 6,on 进行 变换 再 转 @ 进 生计 备 


“在 MATLAB 中 编程 实现 的 计算 不 完全 贝塔 函数 值 的 函数 为 ，betap 


功能 : 用 逼近 法 计算 不 完全 贝塔 函数 的 值 

调用 格式 ，function bp = betap(x,a,b) 

其 中 ，x: 自 变量 的 值 ， 
a， 第 一 个 参数 ， 
b: 第 二 个 参数 ; 
bp: 自 变量 取 x 值 时 的 不 完全 贝塔 函数 值 。 


计算 不 完全 贝塔 了 数值 的 逼近 法 的 MATLAB 程序 代码 如 下 所 示 ， 


二 


function bp = betap(x,ayDb) 

自 变 量 的 值 : x 

g 第 一 个 参数 : a 

g 第 二 个 参数 P 

g 自 变量 取 x 值 时 的 不 完全 贝塔 函数 值 ，bp 
format 1ong; 

if aa <=0 11 b<=0 

disp('a 和 Pb 不 能 小 于 0! ') 





Ge 


FeturDn， 

emnd 

if X= 一 0 11x 一 1 工 
bp = 三 0 

enqQ 


C1 = Power (X，a) ; 
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C2 Power (1-X,b) 
c3 = Betalarbp):; 
IE x<((a+l)/(a+b+2) ) 
刀 一 1; 
while 工 
fl1 = fi(2xny,X ay D): 
f2 = fi(2xn+2,X,ay pb): 
if abs(f2-f1)<1.0e-30 g 连 分 数值 的 精度 控制 
bp = f2xclxc2/a/c3: 
break: 
elLSe 


endQ 
elSse 
If x = 一 0.5 && aa 一 b 
pbpP =0.5; 
@Se 
阅 二 工 ; 
while 1 
fl1 = fi(2xn,，1-X,Pb,a)， 
f2 = fi(2xn+2,，1-XPb,a); 
if abs(f2-fl)<1.0e-30 s 连 分 数值 的 精度 控制 
PP = 1-t2x*xc1lxc2/D/c3， 
breaky; 
elSse 


endQ 


function RE = fi(N,Xx,avb) % 连 分 数 求 值 函 数 
format ongy; 


了 二 NV21; 

FE = 0; 

for 1=m:-1:1 

cmepU = (a+2xi 一 1L)*x(a+2xi)， 

S2 = ix(p 一 工 )*xX/LmDU; 

F1 = S2/(LI+E); 

cmopbV = (a+2x*i-2)x(a+2x1i 一 1) ; 

S1 = 一 (a+i-1)* (b+a+i 一 1L) xx/LmDV 


全 


PR = S1L/(L+EF1L) ， 





end 
已 = IT/ (L+EF): 


不 完全 贝塔 函数 应 用 实例 。 验 证 不 完全 贝塔 函数 值 ， 


并 与 MATLAB 自 带 
的 不 完全 贝塔 函数 betainc 相 比 较 ， 其 中 参数 的 取 值 如 下 表 所 示 : 
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>> 昌 = [0.5;0.5 
>>b= [0.5;1;0. 
5 


?510;107;20;20;750;507100] 
571:275;10;:10;8720;50] ; 
1;*0.4;0.9;0.1;0.3;0.5;0.7;0.2;0.4;0.6;0.8]， 


>>X= [0.170.5; 7 

>> for 1=1:14 

mbp (1) betap(xX(i)va(i)v,b(i))， 
Sbp (I) betainc(x(i)，al(i)，,bli))，; 
emndq 

将 结果 列 成 表格 比较 如 下 


betap 





0.204832764699130 
0.707106781186550 





0.020851637639020 





0.010000000000000 








0.640000000000000 


betainc 





0.204832764699130 





0.707106781186550 
0.020851637639020 





0.010000000000000 
0.640000000000000 





0.316642915020010 





0.316642915020010 





0.000010000000000 





0.000047239200000 





0.089782714843750 





0.635$995918928060 





0.000010000000000 





0.000047239200000 





0.089782714843750 





0.635$995918928060 





0.000000015753450 





0.000000015753450 





0.000000000000100 


0.000000000000100 





0.021479401354680 





0.021479401354680 





0.999926936386330 


0.999926936386330 
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从 结果 可 以 看 出 ，betap 得 出 的 结果 和 MATLAB 得 出 的 结果 是 完全 一 样 的 。 


第 一 类 7 阶 ( z 为 整数 ) 贝 塞 尔 函 数 的 积分 表达 式 为 : 
1 (X) -二 人 CosS(HL 一 XSint)dt 
区 一 泡 
Ja09= 卫 CD-yraG 


其 中 .Jo 与 万 Co 的 计算 公式 如 下 : 
命 当 才 <8 时 ， 有 : 





h40+ 册 和 二 41 二 1 二 44 嫩 二 AL 
/Jo0D= 6 0 
Bo+PBx +B +B3x 十 P4x 二 DB5x 
JiCD = X(C0 十 Cr- 十 Cox- 十 Cox 十 Cox 十 Csxl0) 
Do+DPxz2+PDoxz4+Daxe+D4x8+D5xzl0 
其 系数 的 具体 值 如 下 : 
40 = $7568490574.0， 由 = -13362590354.0， 
42 = 651619640.7，“” 4 = -11214424.18， 
44 =77392.33017，” 45 = -184.9052456 
Bo =57$68490411.0， Bi=1029532985.0， 
有 ;=9494680.718， 3=S9272.64853， 
B4=267.8532712， 有 5=1.0 
Co =72362614232.0， “Ci = -7895059235.0， 
C2 = 242396853.1， C3 = -2972611.439， 
C4 =15704.4826， Cs = -30.16036606 
Du =144725228443.0， 方 = 2300535178.0， 
D, =18583304.74， Da = 99447.43394， 
D4 =376.9991397， Ds =1.0 


全 当 才 8 时 ， 有 : 





Jo(z) = -< [RUzycos8 一 zS9(z)sinO] ， 
| 


.1(X) 三 -< [Placeose --zC(z)sinp],x>0 
4 | 村 ， 
ji- 癌 = 一 Oo,XY<0 


3 
.= 鸭 -于 @= 国 - 亚 ， 且 有 


4 


其 中 z= 
lx 
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8 
尽 (za 二 帮 十 六 Z2 十 户 z4 十 话 Z6 十 斑 
2 4 6 8 
S(z)=Sso+SIZ 十 92Z 十 93Z 十 34Z 
2 夺 6 8 
P(z)= po+Ppz +p2z 十 PD3Z 十 P4Z 


O(zJ)=go+giz2Tqaz4 十 93z6 十 04 


其 系数 的 具体 值 如 下 : 
骨 =1.0， 万 三 -0.0010986286217， 
户 = 0.00002734510401， 站 =-0.000002073370639， 
= 0.0000002093887211 
50 三 -0.01362499995， 51 = 0.0001430488765， 


9 = -0.6911147651x105， 53 = 0.7621095161x10， 


54 二 -0.934935152xX10- 
Po =1.0， Di = 0.00183105， 


Pa = -0.3516396496x10， ”六 = 0.2457520174x10”， 


D4 =-0.240337019x101 
do = 0.04687499995， di = -0.0002002690873， 


dz = 0.8449199096x10-， d3 = -0.88228987x10“， 
ga4 = 0.105787412x10- 


在 MATLAB 中 编程 实现 的 计算 第 一 类 整数 阶 贝 塞 尔 函 数值 的 函数 为 : bessel 
功能 :用 逼近 法 计算 伽 玛 函数 的 值 
调用 格式 ，function 区 = bessel(n,x) 
其 中 ，n: 第 一 类 贝 塞 尔 函 数 的 阶 ; 
x: 自 变 量 的 值 ; 
JJx: 自 变量 取 x 值 时 的 第 一 -类 整数 阶 贝 塞 尔 函数 的 值 。 


求 第 一 一 类 过 数 阶 由 塞 尔 函数 值 的 MAILAB 程序 代码 如 下 所 示 : 


function Jx = bessel(n,X) 
g 第 一 类 贝 塞 尔 函 数 的 阶 ; nm 
g% 自 变量 的 值 ，x 
自 变量 取 x 值 时 的 第 一 类 整数 阶 贝 塞 尔 函 数 的 值 ，Jx 
format ong: 
if n 一 0 ss 零 阶 贝 塞 尔 函 数 
a = [5.7568490574e10;-1.3362590354e10;6.516196407e8 ; 
-1.211442418e7;7.739233017e4;-1.849052456e2]; 
b = [5.7568490411e10;1.029532985e9;9.494680718e6 ; 
5.927264853e4;2.678532712e2;1.0]:; 
r =[1.0;-0.1098628627e-2;0.2734510407e-4， 
-0.2073370639e-5;0.2093887211e-61]: 
s =[-0.1562499995e-1;0.1430488765e-371-0.6911147651e-5 7 
0.7621095161e-6;-0.934935152e-7]; 
if abs(x) < 8 g% 自 变量 绝对 值 小 于 8 的 计算 公式 











oe 
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J0O_u=a(IL); 
J0_Q bp(1)， 
for ji=2 :6 
JoOu=JUJou+a)xpower(x， 2x*(i-L1))， 


J0 9q=J0 GT+Ppi)xpowet(X,2x*(IiI-1))， 


JU0O = J0_uv/J0_d; 

else g% 自 变量 绝对 值 不 小 于 8 的 计算 公式 
Z = 8/abs(X) ; 
Sjita = abs(xX) 一 DPI/4， 


RO = 工 (1) 7 
SO =S(1)， 
for 1=2:5 


RO = RO +TTLTII)xpDpower(z,，2*(1i-1)); 
3S0 =S0+S(I)x*xpower(zy 2x(i-1)); 


J0 = (ROxcos (Sita) 一 zx*S0Ox*rsSin(SsSita))xsdGztrt (2/pPiVabs(X) ) ， 


ifn 一 1 sg 一 阶 贝 塞 尔 函 数 

C= [7.2362614232e10;-7.895059235e97;12.423968531e8: 
-2.972611439e6;1.570448260e4;-3.016036606e11]: 

Q= [1.44725228443e1l1;2.300535178e9;1.858330474e7: 
9.944743994e4)3.769991397e27;1.0]; 

D=fL.0;0.183105e-27;-0.3516396496e 一 4; 
0.2457520174e-5;-0.240337019e-6]:; 

Gd= [0.4687499995e-17;-0.2002690873e 一 3 7 
0.8449199096e-5;-0.88228987e-6; 
0.105787412e-6]:; 

if abs(x) < 8 gs 自 变 量 绝对 值 小 于 8 的 计算 公式 
J1u=c(1L):; 
J1LQq=Q(1L):， 
for 1i=2:6 

J1u=Jlu+c)xpower(x， 2x(i-1))， 
) 





地 


J1 QQ=J1 ar+GQ(i)xpower(Xxy， 2x*f{i-1)):， 
end 
J1 = XxJl1_uU/J1L dr; 
else s 自 变量 绝对 值 不 小 于 8 的 计算 公式 
Z=8/abs(Xx):， 
fi = aps(xX) 一 3xpi/4: 
PE = 了 DO1L):; 
QL =G(1) 7 
for ii=2:5 


P1 =P1+Ppixpower(z， 2*x(i-1))， 
ol1 =QlL + Ga)*power(z, 2*(1i-1))， 


enmd 
JJ 一 (Plxcos(fi)-zxolxsin(fti))xsqrt(2/pi/abs(x) ); 
If x<0 
J1 = 一 JI1; 
enmQ 
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elSe 
ft abs(X) > 呈 

Yy = 27/X; 

bess1 = bessel1(0,X) ; 

bess2 = bessel(1,X) ; 

for ]Jj=13:n 一 
JX = jx*xy*bess2 一 bessL1L:， g 递 推 公式 
bessl = bess2:; 
bess2 = JX; 


else g% 反 递 推 公式 
M= 2xfloor(((n + Eloor(sdGrt(40*n))))72)， 
JS = zexros (M+2 ，1) ; 
JS(M+2) = 0 
JS(M+1) = 工 ; 
YY 二 2/X; 
PSum = 0; 
for K=M: 一 1L: 工 
JS (Kk) = JS(k+L)xyxK 一 JS(K+2) 
emndaQ 
BK = JS(1) 
for KkK=1:floor(M/2) 
BK = BK 二 2xJS(2*K+1) 


JX = JS (n+1) VBK; 


enmdq 


第 一 类 0 阶 贝 塞 尔 函数 应 用 实例 。 计 算 当 x= 0,1.2,3,…,10 时 的 第 一 类 0 
阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 bessejj 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 ， 


>> X=0:10:; 
>> for 1=1 :1 
mbsl(Ii) = bessel(0,xf(i)) 
Sbsl(i) = bessel1j(0,x(IL ，， 
enaQ 


将 结果 列 成 表格 比较 如 下 : 


bessel besselj 











1.000000002831410 1.000000000000000 





0.765197683754860 0.765197686557970 








0.223890781908570 0.223890779141240 








一 0.260051957719930 -0.260051954901930 

















-0.397149807173850 -0.397149809863850 
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-0.177596774112340 -0.177596771314340 








0.150645259491850 0.150645257251000 





0.300079273614110 0.300079270519560 








0.171630807172190 0.171650807137550 


-0.090333611192270 -0.090333611182880 
-0.245935764488980 -0.245935764451350 


第 一 类 1 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 x = 0,12,3,…,10 时 的 第 一 类 1 
阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 bessejj 相 比 较 。 


解 : 在 MATILAB 命令 行 输入 下 列 命令 : 








>> X=0:10; 
>> for JI=1:11 
mbs1l(i) = bessel(1,Xx(I) ) ; 
Spbpsl1(Ii) = besselj(1,x(I)); 
end 
将 结果 列 成 表格 比较 如 下 


0.000000000000000 0.000000000000000 





0.44005058S674120 0.440050585744930 
0.576724807891120 0.576724807756870 





0.339058958261630 0.339058958525940 





-0.066043327950040 -0.066043328023S50 





-0.327579138422380 -0.327579137391470 


-0.276683858856970 -0.276683858127570 


-0.004682825716460 -0.004682823482350 





0.2340636346821090 0.234636346853910 
0.245311786552800 0.245311786573330 





0.043472746150770 0.043472746168860 


局 本 攻 芭 : 痢 第 一 类 5 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 x=12,3,…,10 时 的 第 一 类 5 阶 
贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besselj 相 比较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 : 





>> X=1:10; 
>> for 1=1:10 
mbs1l(i) = bessel1(5,xX(I) ); 
Sbs1l(i) = bessel1j(5,Xx(I)); 
end 
将 结果 列 成 表格 比较 如 下 : 
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0.000249757730210 0.000249757730210 


0.007039629755870 0.007039629755870 
0.043028434877050 0.043028434877050 


-0.055038855683040 -0.055$0388S5669510 
-0.234061528230490 -0.234061528186790 


由 于 采用 的 是 近似 公式 ， 因 此 误差 是 不 可 避免 的 。 

































第 二 类 整数 阶 贝 塞 尔 函数 


第 二 类 阶 ( 7 为 整数 ) 贝 塞 尔 函数 的 递 推 公式 如 下 所 示 ， 
yi00= 开 PCD-Y CD xz>0 
上 


其 中 矶 (xz) 与 蕊 (9) 的 计算 公式 如 下 所 示 : 
全 当 | 对 <8 时 ， 有 : 
40 十 和 十 2X4 十 La 十 44X8 十 45200 
已 0 十 盏 X? 十 盏 2X4 十 3x6 十 PB4x8 十 已 ;xl0 
X(Co +Ci 二 Co +C 二 Ce +Csxr ) 1 217 oomx 
Do+PDX +PDox +PD3x 二 TD4X 二 2D5 十 D6X 开 万 
其 系数 的 具体 值 如 下 : 

40 =57568490574.0， ”由 = -13362590354.0， 

42 =65$1619640.7， 43 =-11214424.18， 

44 =77392.33017， 45 =-184.9052436 


Bo = 37568490411.0， 再 =1029532985.0， 








2 妇 (zx) 三 + 二 oODinx 


到 (0) = 


忆 2=9494080.718， 有 B3=39272.04853， 
了 4=267.8$32712， 8B5=1.0 
Co =72362614232.0， ”CI = -7895039235.0， 
C2 =242396853.1， C3 =-2972611.439， 
C4 =15704.48206， C5 =-30.16036606 
Do =144725228443.0， Di = 2300535178.0， 
D2 =18383304.74， Da = 99447.43394， 


D4 =3760.9991397， D5 =1.0 
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会 当 过 8 时 ， 有 : 
J0(x) = 寡 CRGsne+z3toeosg， 
2 
及 (2X) 三 吉 so9 +ZG@(z)cospD]， 
8 天 3 区 
其 中 < 同一 站 -下 9 国 - 本 ， 且 有 





4 6 
民 (z) = 轴 十 1z 十 户 z 十 访 z6 十 玫 2 
S(z)=sSo+Siz2 十 922 十 9376 十 5478 
2 4 6 8 
P(z)= po+Pz 二 pPa2z 二 1D3zZ 十 P4Z 


C(z)=qo+gqiz +g2z 十 gazc 二 9428 


其 系数 的 具体 值 如 下 
邦 =1.0， 二 =-0.001098628627， 
户 = 0.00002734510407， 站 = -0.000002073370639， 
方 =0.0000002093887211 
50 = -0.01562499995， 51 = 0.0001430488765， 


5 = -0.6911147651x10-， 53 =0.7621095161x10 飞 ， 


54 =-0.934935152x10… 
Po =1.0， Di =0.00183105， 


pa =-0.3$16396496x104， ma = 0.2457520174x10-， 


有 4 =-0.240337019x10- 
do = 0.04687499995， di =-0.0002002690873， 


d2 =0.8449199096x10-， ad =-0.88228987x10“， 
qdq4 =0.105787412x10 有 


在 MATLAB 中 编程 实现 的 计算 第 二 类 整数 阶 贝 塞 尔 函 数值 的 函数 为 


功能 : 用 逼近 法 计算 第 二 类 整数 阶 贝 塞 尔 函 数值 
调用 格式 ，function Jx = bessel20n,x) 
其 中 ，n: 第 二 类 贝 塞 尔 函 数 的 阶 ; 

x: 自 变 量 的 值 ; 

共 ， 自 变量 





整数 阶 贝 塞 尔 尔 数 的 值 。 


求 第 二 类 整数 阶 贝 塞 尔 函 数值 的 MAITLAB 程序 代码 如 下 所 示 ， 


function Jx = bessel2 (mn,X) 

g 第 二 类 贝 塞 尔 函 数 的 阶 ; nm 

自 变 量 的 值 : x 

自 变 量 取 x 值 时 的 第 二 类 整数 阶 贝 塞 尔 函 数 的 值 : jx 
Crmat 1ong ， 


En 一 0 g 阶 数 为 零 


oo 





HP hh ooe 
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a = [-2.957821389e9;7.062834065e9;-5.123598036e8 : 
1.087988129e7;-8.632792757e4;2.284622733e21]:; 
pb= [4.0076544269e1077.452499648e8;7.189466438e6: 


4.744726470e4;2.261030244e2;1.0]: 

rr =f1.0;-0.1098628627e-2;0.2734510407e-4; 
-0.2073370639e-5;0.2093887211e-6]:; 

s =[-0.1562499995e-1;0.1430488765e-3;-0.6911147651e-5; 
0.7621095161e-67;-0.934945152e-71]; 

if abs(x) < 8 g% 自 变量 绝对 值 小 于 8 的 计算 公式 


JO_u=al(1I): 
JO QQ=Dbl1l):; 
for 1=2:6 
JO_u = JUJ0u+a(ix*rpower(Xx， 2x*(1i-1L)): 
JO aa=Jo ad+PDbpli)xrpower(X 2*(i1))， 
enmQ 
J0 = J0_u/vJT0_d+2xbessel(0,X)xTIog(X) /Pi 
else g 自 变量 绝对 值 不 小 于 8 的 计算 公式 
Z = 8/abs(Xx) ; 
Sita = abs(X) 一 PiIV/4: 
RO = 工 (1); 
3S0 =S(1); 
for 1I=2:5 


RO = RO +T(LxpPpower(z, 2x(i-1)) 


了 


3S0 =3S0+S(I)r*rpower(z, 2x*(1I-1)): 


了 


enaQ 
J0 = (RO*Sin(Ssita)+zZxS0Ox*rcos (sita))*xsSdGtt (2/Pi/vabs(X) ) : 
enaQ 
JX = J0: 
elSse 
ifn 一 1 gs 阶 数 为 一 
c = [-4.900604943e127;1.275274390e12;:-5.153438139el10: 


7.439264551e8;-4.237922726e678.511937935e3]: 

Q={2.499580570e1374.244419664e11;3.733650367e9 ; 

2.245904002e7;1.020426050e5;3.549632885e2 

1 .0]:; 

D= [1.0;0.183105e-27;-0.3516396496e-4; 

0.2457520174e-5;-0.240337019e-6]:; 

Gd= [0.4687499995e-17;-0.2002690873e-3 
0.8449199096e-5;-0.88228987e-6; 
0.105787412e-6]:; 





ifx<8 g 自 变量 小 于 8 的 计算 公式 
Jl1u=c(L)， 
J1 da=Q(1):，; 
for 1i=22:6 
J1 ua=JlUu+c(I)rxrpower(x， 2x*(i-1)): 


J1_Qq 
endQ 
J1Qqa=JLa+aQl7)xpower(xy， 12): 

J1L = XxJ1L_uU/UJ1L_QG+2* (besse]l(1,X)x*1og(X)-17VX) VDPI; 


J1 QQ+Q)x*power(Xxy， 2x*(1iI-1)):; 


elLSe g 自 变量 不 小 于 8 的 计算 公式 
Z = 8/apbps(Xx) ; 
fi = abs(x) 一 3xpi/4:; 


二 二 可 本 409 
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J1 = (P1LxSin(fi)+zZxOolxcos(ti)) 


P1 = 了 P(L): 
QT G(1) ， 
for 1i=2 :5 
P1 = P1 + 了 P 
QL =Ql+GS 
emnd 
emnaQ 
JX 三 J1:; 
名 Se 
Yy = 27/X; 


bess1 = bessel21(0， 
pess2 = Dessel12 (1 , 芭 


for 了 =1 :mn 一 1 


JX = jxyxbess2 一 bessl:; 


bess1l = bess2:; 
DesSs2 三 JX; 
eDdq 
end 
end 


第 二 类 0 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 x=12,3,. 
贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 bessely 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命 令 


>> X=1:10: 
>> for 1=1:10 
mbsl(i) = bessel21(0， 
Sbpsl(i) = pessely(0, 藉 
emnd 
将 结果 列 成 表格 比较 如 下 : 


besse 


1 )xPpower(zZ,，2*x(i-1) 


*SqGrt (2/Pi/vabs (x) ) ; 


bessely 


…,10 时 的 第 二 











0.088256971397710 





0.510375666794060 





0.376850014994620 


0.088256964215680 


类 0 阶 





0.310375672649750 





0.376850010012790 








-0.016940744755700 


-0.016940739325060 








-0.308517623137120 


-0.308$17625249030 








-0.288194690986530 


-0.288194683981580 








-0.023949755373020 
0.223321489417640 





-0.023949743967210 





0.223521489387570 











0.249936698302900 


0.249936698285020 





0.055671167298830 


从 上 表 的 比较 结果 可 以 发 现 ， 随 着 x 值 的 增 大 ， 两 者 的 误差 有 变 小 的 趋势 。 


亲本 区 机 [让 第 二 类 1 阶 贝 塞 尔 函 
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数 应 用 实例 。 计 算 当 xx=12,3,. 


0.055671167283600 


…,10 时 的 第 二 





类 1 阶 


SS 


贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 bessejj 相 比 较 。 
心 、 
令 


解 : 在 MATLAB 命令 行 输入 下 列 命 


>> X=1:107 
>> for 1=1:10 
mbsl1(1I) = bessel2(1,X(I)); 
Sbpsl(I) = bessely(1,x(I) ) ; 
enaQ 


将 结果 列 成 表格 比较 如 下 


二 


章 
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bessely 





-0.781212467324530 








-0.781212821300290 








-0.106989373953970 


-0.107032431540940 








0.325S349996686910 


0.324674424791800 





0.402415602299720 


0.3979257105537100 





0.166204791116460 





0.147863143391230 








-0.120662531398230 
-0.175101759554330 
-0.158060461691270 





-0.175010344300400 





-0.302667237024180 





-0.158060461731250 








0.1043143575187440 





0.249013424165000 





0.104314575196720 











0.249015424206950 


从 上 表 的 比较 结果 也 可 以 发 现 ， 随 着 x 值 的 增 大 ， 两 者 的 误差 有 变 小 的 趋势 。 
ES 第 二 类 5 阶 贝 塞 尔 函 数 应 用 实例 。 计算 当 x=12,3,…,10 时 的 第 二 类 5 阶 


贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besselj 相 比较 。 


解 : 在 MAILAB 命令 行 输入 下 列 命令 : 


>> X=]1:10: 
>> for ii=1:10 
mbs]l(i) = bessel2(5,X(I) )， 
Sbs1(i) = pessely(5,X(IL)): 
endQ 
将 结果 列 成 表格 比较 如 下 


bessel 


bessely 








一 260.405757124166 





一 260.405866625812 





-9.935687619971 


-9.935989128482 








一 1.907472261387 





一 1.905945953829 





-0.804831204599 








-0.795851421114 





-0.476908010027 











-0.433694822491 





-0.235305653075 





-0.197060888064 








0.024226524554 





0.063702235249 


蓝本 可 411 
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续 表 
0.256401064990 


0.285$117778411 
和 上 面 的 例子 一 样 ， 随 着 x 值 的 增 大 ， 两 者 的 误差 有 变 小 的 趋势 ， 说 明 当 | 对 > 这 8 时 ， 
近似 公式 的 精度 比 | 二 <8 时 的 公式 更 高 一 些 。 











bessel 












0.256401065023 













0.285S117778429 





0.135403047691 





变型 的 第 一 类 整数 阶 贝 塞 尔 函数 


变型 的 第 一 类 半 阶 ( ma 为 整数 ) 贝 塞 尔 函 数 的 定义 如 下 所 示 : 
疡 (00=(-D” 7 
其 中 i 为 虚数 单位 ， 刀 (ix) 为 冉 阶 第 一 类 贝 塞 尔 函 数 ，1o00 与 站 (09 的 计算 公式 如 下 所 





缠 


伟 当 





对 <3.75 时 ， 有 ; 
10(O=ao+ay+ay2+a+ady +a5 交 +a6y6 


站 Oo0= xfco+ciy+cayz+csy+c4y4+cs 六 +c6y) 
其 中 ?= 了 3) ， 系数 的 具体 值 如 下 : 


ao =1.0， al =3.31560229， 
a2 =3.0899424， 9a3 =1.20607492， 
a4 =0.2639732， 4a5 = 0.0360768， 
4a6 = 0.0045813 
co = 0.5， cl = 0.87890594， 
c2 = 0.51498869，cs = 0.15084934， 
c4 = 0.026S8773，c5 = 0.00301532， 
c6 = 0.00032411 








全 当 | 站 >3.75 时 ， 有 ， 
10( c ye 
OAX 机 各 天 尼 
四 8 
= 届 dztxr>0 
区 | 类 =0 
一切 三 一 0 
3.75 二， 
其 中 z= 二 一 ， 系 数 的 具体 值 如 下 ， 


加 


412 芝 取 条 
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2o =0.39894228， 书 = 0.013285392， 
2 = 0.00223319， za = -0.00157509， 
zs = 0.00916281， 25 = -0.02057706， 
2&6 =0.02035537，” 态 =-0.01647633， 
2s = 0.00392377 
do = 0.39894228， dl =-0.039880214， 
2 = -0.00362018， d3 = 0.00163801， 
d4 = -0.010315535， d5 = 0.02282901/， 
d6 = -0.02895312， 0d7 = 0.01787651， 
ds =-0.00420059 
在 计算 疡 (2 的 时 候 ， 用 的 是 如 下 的 逆 递 推 关 系 式 : 


2 
711( 可 = 王 六 OOTTGOo>2 


在 MATLAB 中 编程 实现 计算 变型 的 第 一 类 整数 阶 贝 塞 尔 函数 值 的 函数 为 ，besselm | 
功能 ， 用 通 近 法 计算 变型 的 第 一 类 整数 阶 贝 塞 尔 函数 值 
调用 格式 : function Jx = besselm(n,x) 
其 中 ，n: 变型 的 第 一 类 整数 阶 贝 塞 尔 函 数 的 阶 ; 
x: 自 变量 的 值 ， 
Jx， 自 变量 取 x 值 时 的 变型 的 第 一 类 整数 阶 贝 塞 尔 函 数 的 值 。 


求 变型 的 第 一 类 整数 阶 贝 塞 尔 函 数值 的 MATLAB 程序 代码 如 下 所 示 : 


function JUJxX = besselm(ny,X) 
sg 变型 的 第 一 类 贝 塞 尔 函 数 的 阶 ; nm 
g 自 变量 的 值 : x 
gs 自 变量 取 x 值 时 的 变型 的 第 一 类 整数 阶 贝 塞 尔 函 数 的 值 ，Jx 
format 1ong:; 
if n 一 0 g% 阶 数 为 零 
a= [1.0;3.5156229;3.0899424;1.2067492 1; 
0.2659732;0.0360768;0.0045813]: 
bp= 10.39894228;0.01328592;0.00225319 ; 
-0.00157565;0.00916281;-0.02057706; 
0.02635537;-0.016476337;0.003923771]:， 
if abs(x) < 3.75 g 自 变量 绝对 值 小 于 3 .75 的 计算 公式 
yy = X^27/3.7573.75; 
JO =a(1):; 
for =2:7 
JO = J0 +ali)*power(y，(Ii-1L)): 
emQ 
else sg 自 变 量 绝对 值 不 小 于 3 .75 的 计算 公式 
zZ = 3.75/aps(X) ; 
JO = 了 (1) 7 
for 1I=2:9 
J0 = JUJ0 +Pbli)x*power(z，(i-1L))， 
endQ 
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J0 = JOxexpl(aps(x))VSGLE (abs (X) ) ; 








enaQ 
JX = J0: 
人 Se 
ifn 一 1 g 阶 数 为 一 
a= [0.5;0.87890594;0.51498869 ; 
0.15084934;0.026587737;0.00301532;0.000324111:， 
b= [0.39894228;-0.03988024;-0.00362018 ， 
0.00163801;-0.01031555)0.02282967:; 
-0.02895312;0.017876547)，-0.00420059] ; 
if abs(x) < 3.75 g% 自 变量 绝对 值 小 于 3 .75 的 计算 公式 
Y = X^273.757/3.75; 
JO = al(1L); 
for 1I=2 :7 
JO =J0 +alixpower(y， (II-L)):; 
enaQ 
J0O 三 XxJO: 
Else g% 自 变 最 绝对 值 不 小 于 3 .75 的 计算 公式 
Z=3.75/abs(X):; 
JO = Jp(1); 
for :=2:9 
JO0 = J0+Dpli)xpower(z，(i-1))， 
enaQ 
J0 = JOxexp(abs (X) ) /SGYL (abs (X) ) ; 
enmd 
JXxX = J0: 
e1Se 
M = 2x*floor(l(tn + floor(SGrt(40*n))))7V2) 1， 
JS = Zeros (M+2 ，1) 
JS(M+2) = 0); 
JS(M+1) = 1， 
Yy 一 27/X; 
for k=M: 于 :1 工 
JS(k) = JS(k+l)xyxk + JS(k+2) ; % 递 推 公式 
end 
JUX = besselm(0,Xx)xJS(n+l1)/VJIS(L) 
emq 
endq 


亲本 攻 酚 世 肖 变型 的 第 一 类 0 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 x=12,3,…,10 时 的 变型 
的 第 一 类 0 阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besseli 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 : 


>> X=1:10:; 

>> for 1=1:10 
mjpsl(iy) pesselm(0,X(Ii)) ， 
Sbsl(i) = besselli(0,xf(Ii)):; 


emnaQ 


将 结果 列 成 表格 比较 如 下 


414 因 基 荐 入 


besselm 
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besseli 





1.266065848030 


1.266065877750 





2.279585307300 





2.279585302340 





4.880792565030 


4.880792585870 





第 一 类 1 阶 贝 塞 尔 函 


11.301922170200 
27.239871894390 





67.234407236460 


11.301921952140 





27.239871823600 
67.234406976480 





168.593907766980 


168.593908510290 





427.564125313700 


427.564115721800 





1093.588388270760 





1093.588354511370 


2815.716664804150 2815.716628466260 


从 比较 结果 看 ， 显 然 当 * 越 来 越 大 时 ， 本 节 中 的 近似 公式 的 误差 也 是 会 越 来 越 大 。 


型 的 第 


>> X=1:10:; 
>> for 1=1:10 


mbsl(I) = pesselm(1,X(I)) ， 
Sbsl(i) = besseli(1,Xx(I))， 
end 
将 结果 列 成 表格 比较 如 下 


besselm 





0.565159097590 





1.390636862500 





3.953370418470 


类 1 阶 贝 塞 尔 函 数 应 用 实例 。 计算 当 关 =12,3,… 
数值 ， 并 与 MAILAB 自 带 的 函数 besseli 相 比 较 


解 : 在 MATLAB 命令 行 输入 下 列 命令 ; 


,10 时 变型 的 


besseli 








9.759465157390 





24.335641845710 


0.565159103990 
1.590636854640 
3.953370217400 
9.759465153700 
24.335642142450 





61.341936937310 


156.039096545800 


61.341936777640 








156.039092869960 





399.873134789590 





第 一 类 5$ 阶 贝 塞 尔 函 


1030.914708653490 





2670.988320559250 
从 比较 结果 看 ， 变 型 的 第 一 


变型 的 第 一 





399.873136782560 
1030.914722516960 











2670.988303701260 


阶 贝 塞 尔 函 数 的 近似 公式 的 精度 大 概 为 6 位 数字 。 


类 5 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 =12,3，… 
数值 ， 并 与 MATLAB 自 带 的 


解 : 在 MATLAB 命令 行 输入 下 列 命令 ， 


.10 时 变型 的 
函数 besseli 相 比 较 。 
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>> X=1L:10; 
>> for ji=1:10 
mbsl (1i) = jbesselm(5,X(I) ) 
sbsl(i) = besseli(5,x(I) ); 
enaQ 


将 结果 列 成 表格 比较 如 下 


一 em Te | 


由 于 当 阶 数 大 于 1 时 ,变型 的 第 一 类 贝 塞 尔 函 数 采用 逆 递 推 公式 ,因此 随 着 x 的 增 大 ， 
误差 会 越 来 越 大 。 



















变型 的 第 二 类 整数 阶 贝 塞 尔 函 数 


变型 的 第 二 类 盖 阶 ( ”为 整数 ) 贝 塞 尔 函 数 的 定义 如 下 所 示 : 
玉 r (2) = 林 [JaGoD+i(i xx>0 
其 中 ; 为 虚数 单位 ，Jr(iz) 为 环 阶 第 一 类 贝 塞 尔 函 数 ， 丈 (2 为 半 阶 第 二 类 贝 塞 尔 函 数 。 


其 中 Ko(z) 与 Ki(z) 的 计算 公式 如 下 所 示 ， 
使 当 对 <2 时 ， 有 : 








6 
Ko = > wx 天 -CD 
K=0 2 


1 6 大 大 
Ri(OD = 一 cr 六 十 厂 COIn 二 
X 0 2 
其 中 y= (7 ， 系 数 的 具体 值 如 下 : 
ao = -0.57721566， al = 0.4227842， 
a2 = 0.23069756， a3 = 0.0348859， 


ad4 = 0.00262698， as = 0.0001075， 
a6 = 0.0000074 


416  P 因 色 





C0 = 三 1.0， 


C2 =-0.07278579， 
c4 =-0.01919402， 


c6 = -0.00004686 


=0.13$443144， 


c3 = -0.181536897， 
C5 = -0.00110404， 











全 当 才 关 2 时 ， 有 : 
ko = 所 
V =0 
天 1(X) = 
wx 站 =0 
其 中 = ， 系 数 的 具体 值 如 下 


zo =1.23331414， 
2 = 0.02189568， 
2 = 0.00587872， 
&6 = 0.00053208 
=1.25331414， 
ad2 =-0.0365562， 


d4 =-0.00780353， 


D =-0.07832358， 
=-0.01062446， 
25 = -0.0025154， 


di =0.23498619， 
das = 0.01504268， 
d5 = 0.00325614， 





d6 = -0.00068245 
在 计算 玉 。(x) 的 时 候 ， 用 的 是 如 下 的 递 推 关系 式 : 


Ki(D= 守 k (可 十 天 (9 





在 MATLAB 中 编程 详 击 计 丰 区 天 的 第 二 类 整数 阶 贝 塞 尔 函数 值 的 函数 为 besselm2 | 


功能 : 用 逼近 法 计算 变型 的 第 二 类 整数 阶 贝 塞 尔 函 

调用 格式 ， function Jx = besselm2(n,x) 

其 中 ，n: 变型 的 第 二 类 整数 阶 贝 塞 尔 函 数 的 阶 ; 
x: 自 变量 的 值 ; 


数值 


IJx， 自 变量 取 x 值 时 的 变型 的 第 二 类 整数 阶 贝 塞 尔 函 数 的 值 。 








第 1 条 章 ， 特 殊 函 数 计算 


| 


本 


求 变型 的 第 二 类 整数 阶 贝 塞 尔 函 数值 的 MATLAB 程序 代码 如 下 所 示 ， 


function JxX = besselm2 (了 ,X) 
g 变 型 的 第 二 类 贝 塞 尔 函 数 的 阶 ,mn 
g% 自 变量 的 值 : x 
g 自 变量 取 x 值 时 的 变型 的 第 二 类 整数 阶 贝 塞 尔 函 
format ong:; 
in 一 0 gs 阶 数 为 零 

己 = [-0.57721566;0.4227842;:0.23069756; 

0.0348859;0.00262698;0.0001075;0.00000741; 

[1.253314147;-0.07832358;0.02189568:; 
-0.01062446;0.005878727;-0.0025154;0.000532081]， 
if X <= 2 g% 自 变量 小 于 等 于 2 的 计算 公式 


数 的 值 ; 可 入 


bD 
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for 1=2:7 
JO = J0O ++Tai)xpower(y，(I-L))- 


enaQ 
J0 = J0 + besselm(0,X)x1og(27/Xh) ; 
else g% 自 变量 大 于 2 的 计算 公式 
Z 三 27/Xr; 
J0 = 了 Dbp(1L): 
for 1=2:7 
JO = J0 +pbli)xpower(z，(i-1) ): 
emnd 
J0 = JOxexp(-X) /sdrt(X) ， 
enqQ 
JX = 一 JU0:; 
人 Se 


ifn= 一 1 g% 阶 数 为 一 
aa= [1.0:0.15443144;-0.67278579 
-0.18156897;-0.01919402;-0.00110404;-0.000046861]:; 
bpP= [1.25331414;0.23498619;-0.0365562 
0.01504268;-0.0078035370.00325614;-0.00068245]j 
if x<=2 g% 自 变量 小 于 等 于 2 的 计算 公式 
Y 三 X^274; 
JO 三 (1L)7/X; 
Eor =23:7 
J0 = J0 +al(I)xpower(y，(1I-1) )V/X; 
enaQ 
J0O = JUJ0 -besselml(1T,X)x1log(27X) : 
else g% 自 变量 大 于 2 的 计算 公式 
Z = 27/Xx; 
J0O = 了 p(1L) 
for 1=2 :7 
J0O = JI0 +Dbli)xpower(z，(Ii-1) ); 





JO = JOxexp (-X) VSGFL (X) : 


K1 = besselm2 (0 ,和 ) ; 
K2 = besselm2 (1 工 , 生 ) ; 
for =13:n 开 


JX 一 2xJjxk2/X 十 K1; 
kK1 = K2)， 
K2 = JX7 
endaQ 
enQ 
emqQ 


亲本 尼 酚 攻 变型 的 第 二 类 0 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 上 =123……,10 时 变型 的 
第 二 类 0 阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besselk 相 上 比较 。 


418 知 若 多 
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解 : 在 MATLAB 命令 行 输入 下 列 命令 : 


>> X=1:10; 
>> for 1=1:10 
mbsl(i) = besselm2(0,X(I) ) 
sbs1l(i) = besselk(0,x(I)):; 
emnQ - 
将 结果 列 成 表格 比较 如 


besselm2 besselk 








0.421024421083420 
0.113893880000000 








0.034739504399300 





0.421024438240710 
0.113893872749530 





0.034739504386280 





0.0111S$9676099470 











0.003691098381960 





0.001243994326710 





0.000424795734120 





0.000146470701180 
0.000050881311530 





0.0111S$9676085850 





0.003691098334040 
0.001243994328010 





0.000424795741870 
0.000146470705220 
0.000050881312960 














0.000017780061930 0.000017780062320 


从 比较 结果 看 ， 变 型 的 第 二 类 0 阶 贝 塞 尔 函 数 的 近似 公式 的 精度 约 为 7 位 数字 。 


机 区 本 [5 汪 变 型 的 第 二 类 1 阶 贝 塞 尔 函 数 应 用 实例 。 计 算 当 z=12,3,…,10 时 变型 的 
第 二 类 1 阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besselk 相 比 较 。 
解 : 在 MATLAB 命令 行 输入 下 列 命令 : 


>> X=1:10:， 
>> for 1=1:10 


mbsl1l(I) = besselm2(1,X(I) ) 
Sbsl(1I) = besselk(1, xf(I) )，; 
enG 
将 结果 列 成 表格 比较 如 下 : 
















besselm2 





besselk 









0.601907231659820 0.601907230197230 
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0.139865880000000 











0.040156431243920 






0.012483498888160 














0.004044613383210 








凡人 ATLABB 语言 常用 算法 程序 集 


从 比较 结果 看 ， 变 型 的 第 二 类 1 阶 贝 塞 尔 函 数 的 近似 公式 的 精度 约 为 8 位 数字 。 


变型 的 第 二 类 5 阶 贝 塞 尔 函数 应 用 实例 。 计 算 当 x=12,3,…,10 时 变型 的 
第 二 类 5 阶 贝 塞 尔 函 数值 ， 并 与 MATLAB 自 带 的 函数 besselk 相 比 较 。 


解 : 在 MATLAB 命令 行 输入 下 列 命令 : 


>> X=1:10: 
>> for 1i=1:10 
mbs1lL(i) = besselm2 (5,X(I) ); 
sbsl(i) = besselk(5,X(I)); 
endQ 


将 结果 列 成 表格 比较 如 下 


besselm2 
9.431049240000 9.431049100596 


0.008023718973 0.008023718980 
0.002160199418 0.002160199413 
0.000619358014 0.000619358011 


0.000185696205 0.000185696204 
0.000057541850 0.0000S7541850 


当 x=10 时 ，besselm2 函数 和 MATLAB 的 系统 函数 besselk 得 出 的 结果 是 一 样 的 。 


































误差 函数 的 定义 为 : 
efoo= -二 “ed 


去 
误差 函数 可 以 用 数值 积分 的 各 种 公式 来 计算 。 





在 MATLAB 中 编程 实现 的 计算 误差 函数 值 的 函数 为 : ErrFunec 
功能 : 用 高 斯 积分 计算 误差 函数 值 
调用 格式 :function erf = ErrFunc(x) 
其 中 ，x:， 自 变量 的 值 ; 
erf:， 自 变量 取 x 值 时 的 误差 函数 值 。 











求 误 差 函数 值 的 MATLAB 程序 代码 如 下 所 示 : 


function erf = ErrEunc(X) 
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gs 自 变量 的 值 : x 
g 自 变量 取 x 值 时 的 误差 函数 值 ，erf 
format 1 ong 
Pi =3.1415926535; 
mm 一 卫 ; 
= 1 
while tol > 1.0e-6 g 积 分 值 的 精度 控制 
S1 = SUDERFI(X,m) ; 
S2 = SUbERR(X,Im+T) ; 
tol = abs(sS1 一 S2):; 
弄 三 Inx27; 
enaQ 
etrf = (S1+S2)V/SGLEL(PI) ， 
function tmpF = SubERE(x,m) g% 用 高 斯 公式 计算 积分 值 
SYImS 七 
了 = XXXm; 
tmeP = 0; 
for 1=1:m 
tmpE = tmpE 二 InLGauss('exp( 下 xt) nxih, nx 5) 
endQ 
正 态 分 布 函数 的 定义 为 : 


(9 





1 革 加: 
PoecnD=Tr 上 “ dr 
正 态 分 布 函数 可 以 用 误差 函数 来 计算 : 
元 一 过 





P(a,OG,zY)=0.3+0.Serf( ) 


v26 


纪 罗 严 本 [ 痢 误 差 了 数 应 用 实例 。 计 算 当 x*= 0.10.5,12,$,10 时 的 误差 函数 值 ， 并 与 
MATLAB 自 带 的 函数 erf 相 比 较 。 


解 : 在 MATILAB 命令 行 输入 下 列 命令 : 


>>X=[ 0.170.5)17;275710]:， 
>> for 1=1:6 
mef (ii) = BrrFunc (X(I)) 
Sef(i) = erf(X(I)): 
eng 


将 结果 列 成 表格 比较 如 下 


0.842700847 0.842700793 
一 mm 
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因为 ErrFunc 函数 中 用 到 了 Fr 的 近似 值 ， 而 且 还 有 循环 的 精度 控制 ， 因 此 计算 出 来 的 


结果 和 MATLAB 系统 函数 得 出 的 结果 是 有 误差 的 。 





正弦 积分 、 余 弦 积 分 和 指数 积分 


正弦 积分 的 定义 为 : 


SO0= dr x>0 


正弦 积分 的 结果 可 以 用 高 斯 积分 求 得 。 





功能 ， 用 高 斯 积分 计算 正弦 积分 值 
调用 格式 ，function si = SIx(Co) 
其 中 ，x: 自 变量 的 值 ; 
Si 自 变 量 取 x 值 时 的 正弦 积 分 值 。 


用 高 斯 积分 求 正 弦 积 分 值 的 MATLAB 程序 代码 如 下 所 示 。 


function S1 = SIX(X) 

g% 自 变量 的 值 ，x 

g 自 变量 取 x 值 时 的 正弦 积分 值 : si 

if Xx< 0 
disp('x 必须 大 于 0! 7) 


Fetutrn 





end 
format ong; 
m 一 工 ; 
二 oO 三 1; 
while tol > 1.0e-6 % 积 分 值 的 精度 控制 
S1 = SubSIX(X,m) ; 
S2 = SubSIX{(X,Im+l) 
tol = abs(s1 一 S2):; 
m 三 Prx2; 
emndQ 
S1 = (sS1+S2)7/2; 
function tmpSs = subSsIx(x,m) gs 用 高 斯 公式 计算 积分 值 
Syms 七 ， 
了 = X/Amy; 
tmpS = 0; 
for 工 =1:m 
tmpbSs = tmp3S + IntGauss('Ssin(t) /hxIhnhhxi 5)， 


end 
余弦 积分 的 定义 为 : 
CEI) 三 站 一 - SoSLd X>0 


422 知 区 径 多 


_ ER 天 :7 云 一 一 


| 


余弦 和 


再 用 高 斯 积分 求 | 


xz 一 cost 1 





只 分 的 求法 是 ， 先 把 余弦 积分 化 为 


rr 





xz 一 COSt 


dt 
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， 其 中 7 为 欧 拉 常 数 ，y = 0.57721566490153286060651 。 





在 MATLAB 中 编程 
功能 : 
调用 格式 ，function ci = 
其 中 ，x:， 自 变 量 的 值 ; 


二 
用 高 斯 积分 计算 余弦 积分 值 
CIX(X) 


Sci: 自 变 量 取 x 值 时 的 余弦 积分 值 。 


function cd = CIXI(X) 


g 自 变量 的 值 ，x 


g 自 变量 取 x 值 时 的 余弦 积分 值 : ci 


function ci = CIXI(X) 

if XxX< 0 
Qispl 
returny; 

enmd 

forrmat 1ong:; 


Ex =0.57721566490153286060651:; 


ci=L 上 十 1og(Xx):， 

m 一 工 ; 

七 DO 三 工 ; 

while tol > 1.0e-6 
cl = SuUbCIX(X,m) ; 


c2 = SubpCIX(X,m+1L) ; 
1 一 Cc2): 


tol = abs(c 
m 三 Inx2: 
enmd 


ci= ci 一 (cl+c2)72; 


function tmpC = SubCIX(X，,m) 用 高 基 


SYmS 七 
= X/my' 
tmpbC = 0; 
for 工 =1:m 


tmpC = tmpC 二 IntGausSs 


end 


间 数 积分 的 定义 为 : 


计算 指数 积分 有 两 种 方法 : 


从 用 下 面 的 公式 。 


必须 大 于 041 7) 


ee 1 
已 (Co) = -| 一 


(1-cos (七 ) ) /f ， 


R 分 值 的 函数 为 ,CIx 


用 高 斯 积 分 求 余 弦 积 分 值 的 MATLAB 程序 代码 如 下 所 示 ， 


斯 公式 计算 积分 值 


X>0 


hxi-nhyv nxiyv 5); 
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dr 





Bi(D=Y+x- 人 一。 


1 一 





人 dr ， 其 中 为 欧 拉 常数 。 


再 用 高 斯 积分 求 | 





在 MATLAB 中 编程 实现 的 计算 指数 积分 值 的 函数 为 ， EIx 
功能 : 用 高 斯 积分 计算 指数 积分 值 
调用 格式 ;function ei = EIx (x) 
其 中 ，x: 自 变 量 的 值 ; 
ei: 自 变量 取 x 值 时 的 指数 积分 值 


用 高 斯 积分 求 指数 积分 值 的 MATLAB 程序 代码 如 下 所 示 : 


function ed = EIX(X) 











g% 自 变量 的 值 : x 
% 自 变量 取 x 值 时 的 指数 积分 值 : ei 
if Xx< 0 
disp('x 必须 大 于 0!:); 
zetUuLzDn 
end 


format 1ong ， 
Z =0.57721566490153286060651; 
el = 工 二 1og(x):; 
mm 三 工 
tol = 1: 
while tol > 1.0e-6 
el = 三 .SuUDPEIXI{(X,m) ; 
e2 = SUbEIXI(X,Im+1) ; 
tol = abs(el 一 e2); 
下 二 Fix2， 
enmd 
el = ei 一 (el+e2)/2; 
function tmpE = subEIX(X,m) g 用 高 斯 公式 计算 积分 值 
SYymSs 七 ; 
了 = XXXm; 
tmpE = 0; 
for 工 =1:m 
tmpE = tmpE + IntGauss(' (1-exp ( 下 ) ) /nx*i-h hx 5); 
endQ 


@ 用 副 近 法 。 
当 0<x<1 时 ， 
忆 (O=Inx 一 (el+e2xz+… 二 +e625) 
其 中 的 系数 如 下 ， 
el =-0.$7721566， e2 = 0.99999193 
e3 三 -0.2499105S5， e4 = 0.09319968 
e5 三 -0.00976004， e6 = 0.00107857 


424 色色 基因 
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当 大 之 【 时 ， 
， e 月 十 亡 X 十 访 X2 十 网 和 十 和 
天 (= 一 一 一 (一 下 ) 
X 8 引 十 3S2X 十 8S3X 十 8S4X 十 郊 
其 中 的 系数 如 下 : 
请 = 0.2677737343， PP =8.6347608925 
为 =18.039016973， 由 一 8.$733287401 
SI1 一 3.9984969228， S2 一 21.0996530827 
5 三 25$.6329S61486， 84 一 9.373322345S4 








在 MATLAB 中 编程 实现 的 计算 指数 积分 值 的 函数 为 ，EIC2 
功能 : 用 逼近 法 计算 指数 积分 值 

调用 格式 :function ei = EIx2 (x) 

其 中 ，x: 自 变量 的 值 ， 





求 指数 积分 值 的 MATLAB 程序 代码 如 下 所 示 : 


function el = 忆 IX2(X) 








# 自 变量 的 值 : x 
g% 自 变量 取 x 值 时 的 指数 积分 值 : ei 
IEX< 0 
aisp('x 必须 大 于 0!); 
TetUurDn 7 
end 


format 1ong:; 

cof = [-0.57721566;0.99999193;-0.24991055; 
0.05519968;-0.0097004;0.00107857]:; 

cr = [0.26777373437;18.6347608925118.0590169731; 

8.57332874017;1.0]:; 

[3.9584969228;21.09965308277;25.6329561486; 

9.57332234547;1.0]; 

if x<1 g% 自 变量 小 于 1 时 的 计算 公式 


el = log(x) ; 


名 
外 


for =1:6 
ei = ei 一 cof(i)x*Ppower(X,i-1) : 
enqQ 
else g# 自 变量 不 小 于 1 时 的 计算 公式 
el = 一 eXp (一 X) /X: 
ER = 10; 
ES = 0; 
for 1i=1:5 


ER = ER + cr(i)*power(X,i 开 ) 
ES = ES + cs(I)xpower(x,I-1):， 
endQ 
eli = elixER/ES: 
endq 
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正弦 积分 函数 应 用 实例 。 计 算 当 x*=10 时 的 正弦 积分 值 。 
解 ， 在 MATLAB 命令 行 输入 下 列 命令 : 


>> msin = SIX(10) 
msin = 1.65834776232614 


用 MATLAB 自 带 的 正弦 积分 函数 sinint 求 得 的 结果 如 下 所 示 : 


>> msin = Sinint(10) 
msijin = 1.65834759421887 


余弦 积分 函数 应 用 实例 。 计 算 当 x= 10 时 的 余弦 积分 值 。 
解 : 在 MATLAB 命令 行 输入 下 列 命令 ， 


>> mcos = CIX(10) 
mcos = -0.04545666829043 


用 MATLAB 自 带 的 余弦 积分 函数 cosint 求 得 的 结果 如 下 : 


>> Incos = cosint (10) 
mcos = -0.04545643300446 


数 积分 应 用 实例 。 用 两 种 方法 计算 当 x*= 2 时 的 指数 积分 值 。 
解 : 在 MATLAB 命令 行 输入 下 列 命令 ， 

>> mexpb = EIX(2) 

mexpP = -0.04890055114497 


>> Imexpb = EIX21(2) 
mexp 三 -0.04890050998053 


两 种 方法 算出 来 的 结果 稍微 有 点 误差 。 


第 一 类 椭圆 积分 


第 一 类 椭圆 积分 的 定义 为 : 


FOD= 人 | 





d6 0 志 上 乏 10 任 意 


1 
VI-K2sin26 
当 





外 > 二 时 ， 有 如 下 关系 式 , 


天 (Kmnr 土 O)= 2nF(.) 二 F(K,O) 
第 一 类 椭圆 积分 可 以 用 高 斯 积分 公式 来 求 o 
一 一 
功能 : 用 高 斯 积分 计算 第 一 类 椭圆 积分 值 
调用 格式 , y= Ellipint1(x,Jo) 
其 中 ，x:， 自 变 量 的 值 ; 
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一 
 __y 自 变量 取 x 值 时 的 第 一 类 椭圆 积分 值 。 


求 第 一 类 椭圆 积分 的 MATLAB 程序 代码 如 下 所 示 : 


function yY = 
g% 自 变量 的 值 : x 
g% 积 分 参数 ;kk 

gs 自 变量 取 x 值 时 的 第 一 类 椭圆 积分 值 : y 


format ongy， 


E1L1ipIintT(X,K) 





mm 一 2; 

tol = 工 ; 

tol > 1.0e-6 g 积 分 值 的 精度 控制 
一 SUbE11iPI(X,Km) ; 

Y2 = SuUbE1L1LiP(X, Kmx2) 7 

tol = aps(y1l 一 Y2):; 

Im 一 mx2; 


while 
YI 





endq 
Y = (Y1L+y2)7/2; 
function tmpS 三 





subE1L1ip(x,Kvm) gs 用 高 斯 公式 计算 积分 值 
Syms 七 ; 
叫 二 XAmy; 
tmpS = 0) 
攻关 区 
for =1 :mm 
f = 1/SsGEL(1-uxsin(t)xSsin( 世 )) ， 
tmpS = tmpS + InLGauss (ff ,hxi-n, hxiI，S)， 
enDdq 


LUL 三 
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第 一 类 椭圆 积分 函数 应 用 实例 。 计 算 当 x=1.5,k= 0.8 时 的 第 一 类 椭圆 积 


分 值 。 
解 : 在 MATLAB 命令 行 输入 下 列 命令 


>> melli = BELLIipintl(d.5，0.8) 
melli = 1.87748339101508 


| 第 二 类 椭圆 积分 





第 二 类 椭圆 积分 的 定义 为 : 
FE(K,O) = 人 1-k2sin20d6 0<K<L9 任 意 


当 





g|> > 时 ， 有 如 下 关系 式 : 


ECEnr 土 p)= 2nE() 士 E(k,O) 
第 二 类 椭圆 积分 可 以 用 高 斯 积分 公式 来 求 。 
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在 MATLAB 中 编程 实现 的 计算 第 二 类 椭圆 积分 值 的 函数 为 : Ellipint2 
功能 : 用 高 斯 积分 计算 第 二 类 椭圆 积分 值 
调用 格式 : y= Ellipint2(x,f) 
其 中 ，x: 自 变 量 的 值 ; 
k:， 积 分 参数 ， 
y: 自 变 量 取 x 值 时 的 第 二 类 椭圆 积分 值 。 | 


求 第 二 类 椭圆 积分 的 MATILAB 程序 代码 如 下 所 示 : 


function y = 也 111pint2( 尺 ,天 ) 
g% 自 变量 的 值 : x 
$% 积 分 参数 : 
g 自 变量 取 x 值 时 的 第 一 类 椭圆 积分 值 : y 
format 1ongy; 
m=2:; 
tol = 1， 
while tol > 1.0e-6 8% 积 分 值 的 精度 控制 
Y1 = SuUpE1L11P(x, Km) ， 
Y2 = SubE11ipP(x,Kk,mx2)， 
tol = abs(y1 一 Y2)， 
m = 一 mx2; 
end 
Yy = (Y1+Y2)7/2; 
function tmpSs = subEl11ip(x,k,m)  g 用 高 斯 公式 计算 积分 值 
Syms 七 ， 
Ph = XA/mn; 
tmpS = 0; 
u 三 kxKy; 
for 1=1:m 
三 = (1-uxsin(t)xsin(t))， 
tmpS = tmpS 二 IntGauss ( 夺 ,hxi-h,hxi,5)， 
enaQ 


第 二 类 椭圆 积分 函数 应 用 实例 。 计 算 当 x=1.5, 上 = 0.8 时 的 第 二 类 椭圆 积 
分 值 。 
解 : 在 MATLAB 命令 行 输入 下 列 命令 ， 


>> melli = ElLl1ipint2(1.5,0.8) 
melli = 1.04257925436752 


下 约 4 小 结 


本 章 介 绍 了 数理 方程 中 常用 的 几 种 特殊 函数 的 计算 方法 ， 基 本 上 都 是 基于 展开 近似 的 
方法 进行 计算 ， 其 结果 的 精度 当然 和 展开 的 项 数 和 常数 的 计算 精度 有 很 大 关系 。MATLAB 
在 特殊 函数 的 计算 方面 采用 了 较 多 的 有 效 位 数 ， 因 此 其 精度 很 高 ， 而 本 章 的 例题 结果 都 以 
MATILAB 算出 的 结果 为 基准 进行 比较 。 
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第 9 章 常 微 分 方程 的 初 值 问题 


根据 给 定 的 初始 条 件 ， 确 定常 微分 方程 唯一 解 的 问题 叫 常 微分 方程 初 值 问题 。 大 多 数 
实际 的 常 微分 方程 往往 结构 非常 复杂 ， 要 给 出 一 般 方程 解 的 表达 式 非 常 困难 。 

利用 计算 机 作为 辅助 计算 工具 ， 并 根据 高 等 数学 的 有 关 知 识 将 欧 拉 公式 、 改 进 的 欧 拉 
公式 、 经 典 龙 格 - 库 塔 方法 编 成 MATLAB 程序 算法 ， 充 分 利用 了 计算 机 的 速度 优势 ， 大 大 
减轻 了 工程 技术 人 员 的 劳动 强度 ， 同 时 也 使 计算 结果 更 加 可 靠 、 准 确 。 


欧 拉 ; 


微分 方程 里 最 简单 的 方程 形式 莫 过 于 一 阶 常 微 分 方程 的 初 值 问题 了 ， 即 
沁 = (Go Q 扫 X 扫 D 


y(a) = y0 

其 中 必 b 为 常数 。 

因为 其 简单 但 又 是 求解 其 他 方程 的 基础 ， 所 以 发 展 了 许多 典型 的 解法 ， 下 面 介绍 的 数 
值 解法 都 是 针对 于 上 式 进 行 求解 ， 所 有 算法 中 的 上 就 代表 上 式 中 的 Fox ， 而 户 表 示 
of 妇 _ 9f(x 妃 
本 广 表示 。 

欧 拉 法 ( Euler ) 是 简单 有 效 的 常 微分 方程 数值 解法 ， 欧 拉 法 有 多 种 形式 的 算法 ， 常 见 
的 有 简单 欧 拉 法 、 隐 式 欧 拉 法 和 改进 的 欧 拉 法 ， 下 面 分 别 进 行 讲述 。 


15.1.1 简单 欧 拉 法 


简单 欧 拉 法 是 一 种 单 步 递 推 算法 。 简 单 欧 拉 法 的 公式 如 下 所 示 : 
yn = 加 十 所 (yn) 

简单 欧 拉 法 的 算法 过 程 介绍 如 下 。 

人 给 出 自 变 量 x 的 定义 域 [cj ， 初 始 值 m 及 步 长 。 

和 对 上 = 0.1…, 引 -四 /六 ,计算 
ya 三 天 十 矿 (,y) 


算法 结束 。 


一 - 
功能 : 用 简单 欧 拉 法 求 一 阶 常 微分 方程 的 数值 解 
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调用 格式 : y = _y= DEEulerdf ha， b,y0， varvec RN | 


其 中 ，f， 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h:， 积分 步 长 ; 
a:;， 自 变 量 取 值 下 限 ; 
b: 自 变量 取 值 上 限 ; 
函数 初 值 
_Varvec: _ 常 微分 方程 的 变量 组 。 


简 简单 欧 拉 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Y = DEEULer(E，h,a,b,y0,varvec) 
g 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : f 
gs 积分 步 长 , h 
g 自 变量 取 值 下 限 : a 
g 自 变量 取 值 上 限 : b 
g% 范 数 初 值 : y0 
g% 积 分 步 长 ,ph 
g 常 微分 方程 的 变量 组 : varvec 
format Long; 
N = (DP-a) /hr; 
Y = Zeros (N+1L,1)， 
X = alnh:b; 
Y(1) = Y0:; 
for 1=2 :N+1 
Yy(Ii) =Y(i-1)+hx*Funval(f,varvec， [xf(i-1)，Yy(i-1L)])，; 





end 
format Short : 


g% 简 单 欧 拉 法 的 迭代 公式 


ER 简单 欢 拉 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 简单 欧 拉 法 求 下 面 常 微分 方 





程 的 数值 解 。 
d 
二 =》 0 乏 X 世 1 
0 =1 
解 : 在 MATLAB 命令 窗口 中 输入 ; 
>> Syms QU V: 
DDP 2Z= 一 V' 
>> yY = DEEUlez(z，0.1,0,1,1，[u v]) 
Yy = 1.0000 
1.1000 
.2100 
1.3310 
1 .4641 
1.6105 
工 .7716 
工 .9487 
2.1436 
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2.3579 
2.5937 
通过 简单 计算 ， 可 得 出 常 微分 方程 
名 y 0 过 x 挟 1 
dx 
(0)=1 


的 解 为 ?=e* ， 将 数值 解 与 理论 解 列 成 表格 如 下 ， 





















































从 比较 的 结果 来 看 ，x 的 值 越 大 ， 误 差 也 越 大 。 


15.1.2 ” 隐 式 欧 拉 法 


隐 式 欧 拉 法 也 叫 后 退 欧 拉 法 ， 隐 式 欧 拉 法 的 公式 如 下 所 示 : 
yzrl 三 加 十 所 (syoal) 

隐 式 欧 拉 法 是 一 阶 精度 的 方法 ， 比 它 精 度 高 的 公式 是 ， 

yarl= Jr +2L7Gos yy) 十 了 (xn os] 

隐 式 欧 拉 法 的 算法 过 程 介 绍 如 下 。 

镭 给 出 自 变 量 x 的 定义 域 [w 妇 ， 初 始 值 及 步 长 A。 

例 对 上 =0.1…, 尼 -四 / 关 ， 用 牛顿 法 或 其 他 方法 求解 方程 
yi 三 次 十 所 Ctrl yl) 

得 出 》K+1o 

算法 结束 。 


在 MATLAB 中 编程 实现 的 隐 式 欧 拉 法 的 函数 为 : DEimpEuler 
功能 : 用 隐 式 欧 拉 法 求 一 阶 党 微分 方程 的 数值 解 
调用 格式 : y= DEimpEuler(f, h,a,b,y0,varvec) 
其 中 ，f:， 一 阶 常 微分 方程 的 一 般 表达 式 的 右 端 函数 ， 
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h， 积 分 步 长 ; 
a:， 自 变量 取 值 下 限 ; 
b， 自 变量 取 值 上 限 ， 
y0:， 函数 初 值 ; 
varvec;， 常 微分 方程 的 变量 组 。 








隐 式 欧 拉 法 的 MATLAB 程序 代码 如 下 所 示 : 


function YyY = DRimpEuler(E，hva,b,y0o,varvec) 
gs 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函 数 : 于 

g 积 分 步 长 : 

g# 自 变量 取 值 下 限 : a 

g 自 变量 取 值 上 限 : b 

gs 函数 初 值 : y0 

g 积 分 步 长 : h 

g% 常 微分 方程 的 变量 组 ，varvec 


format Tong; 


N = (Pb-a) /nr; 

Y = Zezros (N+1,1) ， 
Y(L1) = Y0， 

X = a:n:b; 


var = finasym(fE) ， 

for 工 =-2 :NT+1 
fx = Funval(f,var(1) ,xf(I)); 
gxX = Y(i-1)+hxfx 一 VarVec(2)， 


vy(i) = NewtonRoot (gx,-10,10,eps); $% 用 牛顿 法 得 出 下 步 的 迭代 值 


endQ 
format Short : 


隐 式 欧 拉 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 隐 式 欧 拉 法 求 下 面 常 微分 方 


程 的 数值 解 。 
空 - 》 0 乏 X 乏 1 


y(0) =1 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Syms U V; 
>D Z 一 V; 

>> Y = DEirmpEuler(z，0.1,0,1,1,，[Iu v]) 
Y= 1.0000 
工 .1111 
1.2346 
.3717 
1.5242 
1.6935 
1.8817 
2.0908 
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2.3231 
2.5812 
2.8680 


隐 式 欧 拉 法 的 结果 比 欧 拉 法 稍 好 一 点 ， 但 是 随 着 x 的 增 大 ， 误 差 也 是 越 来 越 大 。 
15.1.3 ”改进 井 的 欧 拉 法 


改进 的 欧 拉 法 是 一 种 二 阶 显 式 求解 法 ， 其 计算 公式 如 下 所 示 : 
1 三 十 凡 Cn) 


六 
ya+l= 加 十 了 L/ Cnm， yn)+ xlg] 


在 MATLAB 中 编程 实现 改进 的 欧 拉 法 的 函数 为 ，DEModifEuler 
功能 : 用 改进 的 欧 拉 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : yY= DEModifEuler (f, ha,b,y0,varvec) 
其 中 ,，f: 一 阶 常 微分 方程 的 一 般 表达 式 的 右 端 函数 ， 

h， 积 分 步 长 ; 

a:， 自 变量 取 值 下 限 ; 

b: 自 变量 取 值 上 限 ; 

函数 初 值 ， 
Varvec: 常 微分 方程 的 变量 组 。 





改进 的 欧 拉 法 的 | MATLAB 程序 代码 如 下 所 示 ， 





function Yy = DEModifEuler (E，h,a,b,y0,varvec) 
s 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ,于 
g 积 分 步 长 : hn 
g 自 变量 取 值 下 限 : a 
gs 自 变量 取 值 上 限 : b 
g 函 数 初 值 : Y0 
g 积 分 步 长 : 
g 常 微分 方程 的 变量 组 : varvec 
tormat 1ong， 
N = (bp-al) /PR， 
Y = Zeros (IN+1 ,1) ; 
Y(1) = Y0， 
X = 纪 :hb; 
var = findsvm() ; 
for 1=2 :N+1 





Vv1 = Funval (f,varvec, [xf(i-1) y(i-1)]):; 
二 = Y(i-1) 二 hxrvl， g 和 迭代 公式 的 第 一 步 
V23 = Funval (ft,varvec，[x(LI) 七 ] )，; 


Y(i) = Yy(i-1)+hx(v1+v2)7/2; % 迭 代 公 式 的 第 二 步 
enmd 
format Short 
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改进 的 欧 拉 法 求解 一 阶 常 微分 方程 应 有 


分 方程 的 数值 解 。 





解 : 在 MATLAB 命令 窗口 


>> SYymS U V; 
>> Z=V; 

>> Y 
YY 二 





DEMoqdqifEulLer(Z， 
.0000 
-1050 
.2210 
.3492 
-4909 
.6474 
.8204 
.0116 
.2228 
.4562 
,7141 
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0.1,0,1,1,， [Lu v]) 


将 改进 的 欧 拉 法 的 结果 与 理论 值 比 较 如 下 : 


数值 解 


实例 。 用 改进 的 欧 拉 法 求 下 面 常 微 











1.0000 





1.1050 








1.2210 














1.3492 











1.4909 

















1.6474 








1.8204 











2.0116 








2.2228 








2.45629 











龙 格 - 库 塔 法 





龙 格 - 库 塔 法 有 显 式 和 隐 式 之 分 ，R 级 的 显 式 龙 格 - 库 塔 法 的 形式 为 ， 
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2.7141 





从 上 表 可 以 看 出 ， 改 进 的 欧 拉 法 的 结果 十 分 精确 。 


尺 
yn+l 二 yn 十 严 》 cr 及 


r=] 
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其 中 
开 1 = yp) 
忆 (=2.3…, 同 


天 =.FCo Pr 记 六 +》GmKo) 


1 一 | 
15.2.1 二 阶 龙 格 - 库 塔 


二 阶 龙 格 - 库 塔 法 有 多 种 形式 ， 除 了 改进 的 欧 拉 法 外 ， 还 有 中 点 法 和 休 恩 法 。 
。 中 点 法 的 计算 公式 为 ; 


ynH 三 匣 + 4 和 Ho 
2 2 
| 在 MATLAB 中 编程 实现 的 中 点 法 的 函数 为 ， DELGKT2_mid 
功能 ， 用 中 点 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : 了 7= DELGKT2_mid (f, ha,b,y0,varvec) 
其 中 ，f:， 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 

h， 积 分 步 长 

a: 自 变 量 取 值 下 限 ; 

b:， 自 变量 取 值 上 限 ; 
y0: 函数 初 值 ; 
varvec: 常 微 分 方程 的 变量 组 。 


中 点 法 的 MATLAB 程序 代码 如 下 所 示 : 





Function yy = DELGKT2_ miaq (上 ，Phvavb,y0,varvec) 
一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ， 开 
积分 步 长 : h 

自 变 量 取 值 下 限 : a 

自 变 量 取 值 上 限 : b 

函数 初 值 : Y0 

g% 积 分 步 长 : n 

g 党 微分 方程 的 变量 组 ， varvec 

format Long; 

N = (Pp-a) /Di; 

Y = ZeroSs (N+1 ,1) 

Y(1) = Y0:; 

和 三 :h:b; 

var = findqsym(E) ; 

for =2 :NT+1 


op oo 


co 





oO 





V1 = Funval (ff,varvec，[X(iI-1L) y(i-1)])， 
上 = YY(Ii-1) + hxv17/2; 
V2 = Funval(f,varvec，[x(i)+nh/2 七 ] ) ， 





y(i) = y(i-1l)+hxv2; 8g% 中 点 法 的 欠 代 公式 
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上 作 


end 
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format Short ; 


se 休 恩 法 的 计算 公式 为 
= yr) 


27 27 
天 2 = J(xr 光 + 本 0) 


ynrl 三 功 + 十 3K2) 


| 在 MATLAB 中 编程 实现 的 休 恩 法 的 函数 为 ， DELGKT2_suen 
功能 : 用 体 恩 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y=DELGKT2_suen (f h,a,b,y0,varvec) 
其 中 ，f: 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 

h:， 积 分 步 长 ; 
a: 自 变量 取 值 下 限 ; 
b: 自 变 量 取 值 上 限 ; 
函数 初 值 ; 

varvec: 常 微 分 方程 的 变量 组 。 


休 恩 法 的 MATLAB 程序 代码 如 下 所 示 : 








function yy = DELGKT2_suen (于 ，hv,avb,y0,varvec ) 


gs 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ;ff 
% 积 分 步 长 : h 

g 自 变量 取 值 下 限 : a 

g 自 变量 取 值 上 限 : b 

ss 函数 初 值 : y0 

g 积 分 步 长 h 

gs 常 微分 方程 的 变量 组 : varvec 

format 1ong:; 

N = (P-a) /hy 

Yy = Zeros (N+1,1)， 


Yy(LI) = Y0; 
X = 一 ah:pb'; 
var = finasym(E) ; 
for 于 =2 :NT+1 
K1 = Funval(ft,varvec, [xf(i-1) y(i-1)]):，  g 休 恩 公 式 的 第 一 步 


K2 = Funval(f,varvec, [x(i-1)+2xn/3 y(i-1)+KL*2xh/3]); gg 休 恩 公式 的 第 二 步 


y(i) =y(i-1)+hx(KL+3x*K2)74; gs 休 恩 公式 的 第 三 步 
endaQ 
format Short 


ER 二 阶 龙 格 - 库 塔 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 二 阶 龙 格 - 库 塔 法 求 下 


面 常 微分 方程 的 数值 解 。 
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灿 -* yy+1 0 乏 X 挟 1 
dx 


y(O)=1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYymS 
>> 2 三 
>> YY 


上 二 


>> YYy = 





YY = 工 . 

1.0150 
1L.0381 
.0685 
.1055 
.1484 
.1968 
1.2501 
1.3079 
.3696 
.4350 


X Y7 


X 一 YY 二; 


DELGKT2_miQ(z,0.1,0,1,1,， [xyYy]) 
0000 


DELDGKT2_suen(z,0.1,0,1,1,， [xyY]) 


上 L.0000 
.0050 
.0190 
.0412 
.0708 
.071 
.1494 
.1972 
.2500 
.3072 
.3685 


通过 简单 计算 ， 可 得 出 常 微 分 方程 


由 -xy+1 0 所 X 所 1 
dx 


y(0)=1 


的 解 为 ?=e ”十 X， 将 数值 解 与 理论 解 列 成 表格 如 下 
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用 算法 程序 集 


休 恩 法 


续 表 











1.2500 








1.3072 

















见 休 恩 法 要 比 中 点 法 好 。 
15.2.2 三 阶 龙 格 - 库 塔 法 


三 阶 龙 格 - 库 塔 法 也 有 多 种 形式 。 
es 休 恩 三 阶 法 的 计算 公式 为 : 
天 1 = Jr yn) 


1.3685 


严 严 
天 2 = 三 十 一 ,十 一 天 
2 三. 矿 3 了 人 1) 


27 27 
天 3 一 (xn 本 加 十 -一 天 >) 


3 


太 
ynz+l 二 yn + 可 改 ， +3K3) 


功能 : 用 休 恩 三 阶 法 求 一 阶 常 微分 方程 的 数值 解 





h， 积 分 步 长 ; 

a: 自 变 量 取 值 下 限 ; 
b: 自 变量 取 值 上 限 ， 

| y0: 函数 初 值 ， 

varvec: 党 常 微分 方程 的 变量 组 。 





休息 二 阶 法 的 MATLAB 程序 代码 如 下 所 示 : 


function y = DELGKT3_suen (f，h,ab,y0,varvec) 





sg 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 本 数 ， 工 


g% 自 变量 取 值 下 限 : a 

g 自 变量 取 值 上 限 : ?b 

sg 函数 初 值 : Y0 

g 积 分 步 长 : h 

g 常 微分 方程 的 变量 组 : varvec 
format 1ong:; 

N = (b-a)7yn; 

Y = Zeros (N+1 ,1):; 

Y(1LI) = Y0; 
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在 MATLAB 中 编程 实现 的 休 乱 三 阶 法 的 函数 为 . DG 机 和 


调用 格式 : y= DELGKT3_suen (ft ha,b,y0,varvec) 
其 中 ，f: 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 


库 塔 三 阶 法 的 MATLAB 程序 代码 如 下 所 示 :; 


-~ 第 19 章 


X = an:p' 
var = findsym( 王 ) ; 
for 1=2 :N+1 
K1 = Funval (ft,Vvarvec，[xX(I-I) 


Y(i-1)]) 
K2 = Funval(t,varvec,，[x(i-1)+h/3 Yy(I-1)+K1IxnhV3]) : 


g 休 恩 三 阶 公式 的 第 一 步 
g% 休 恩 三 阶 公式 的 第 二 步 


常 微 分 方程 的 初 值 问题 


K3 = Funval(f,varvec, [xf(i-1)+2x*h/3 y(i-1)+K2x2x*h73]) ， g% 休 恩 三 阶 公 式 的 第 三 步 


二 Y(I-1L)+nhx(K1+3xK3)74: 
emnaQ 
format Short 


e 库 塔 三 阶 法 的 计算 公式 为 : 
天 1 =J 浅 c yn) 


万 万 
Ka = Co + 二 ,加 十 二 天 
大 >》 7 1) 


g 休 恩 三 阶 公 式 的 第 四 步 


天 3 一 Jo 十 万 ， yr 一 疡 K1 十 271 开 2?) 


yn+l 一 yP + 人 十 4 天 2 十 天 3) 


在 MATLAB 中 编程 实现 的 库 塔 三 阶 法 的 函数 为 : DELGKT3_kuta 


功能 : 用 库 塔 三 阶 法 求 一 阶 常 微 分 方程 的 数值 解 
调用 格式 : y=DELGKT3_kuta (f, h,a,b,y0,varvec) 
一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函 数 ; 





其 中 ，f: 
h:， 积 分 步 长 ; 
a: 自 变 量 取 值 下 限 ; 
b， 自 变量 取 值 上 限 ，; 
y0: 函数 初 值 ; 
varvec: 党 微分 方程 的 变量 组 。 





function Y = DELGKT3_Kuta (f， 
gs 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ，f 
gs 积分 步 长 : h 

自 变 量 取 值 下 限 : a 

自 变 量 取 值 上 限 ，b 

函数 初 值 ;: y0 

g 积 分 步 长 : h 

g 常 微分 方程 的 变量 组 : varvec 

format 1ong 

N = (pb-a) /hi; 

ZeroOSs (N+1L 1) ， 





ce 





co op 


var = finadsym( 工 ) 
for 1I=2 :N+1 


K1 = Funval (f,varvec,，[Ix(I-1) Yy(I-L)]): 


Pab,y0,varvec) 


g 库 塔 三 阶 公式 的 第 一 步 
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K2 = Funval(f,varvec, [xf(i-1)+h/2 y(i-L)+KL*h/V2])， g 库 塔 三 阶 公式 的 第 二 步 
K3 = Funval(ft,varvec,， [xf(i-1)+h y(i-L)-hxKL+K2x2xh]); g 库 塔 三 阶 公式 的 第 三 步 
vy(i) = y(i-1)+hx (K1+4xK2+K3) 16;  g% 库 塔 三 阶 公式 的 第 四 步 

enQ 

format Short 


三 阶 龙 格 - 库 塔 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 三 阶 龙 格 - 库 塔 法 求 下 
面 常 微分 方程 的 数值 解 。 


出 -xy+l 0 所 xx 所 1 
dx 


y(0)=1 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Syms X Y; 
>> 2 = X-y+1， 
>> yy = DELGKT3_suen(z,0.1,0,1,1,，[Lx Y]) 
yy= 1.0000 
1.0048 
1.0187 
1.0408 
1.0703 
1.1065 
1.1488 
1.1966 

.2493 
.3066 
.3679 
DELGKT3_kuta(z,0.1,0,1,1,，[x Y]) 
.0000 
1.0048 
1.0187 
1.0408 
1.0703 
1.1065 
1.1488 
1.1966 
1.2493 
1.3066 
1 .3679 


两 种 方法 的 精度 几乎 一 样 。 
15.2.3 ”四 阶 龙 格 - 库 塔 


四 阶 龙 格 - 库 塔 法 有 三 种 形式 。 
。 经 典 龙 格 - 库 塔 法 的 计算 公式 为 : 





> YY 


上 中 上 
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其 中 ，f 





经 典 龙 格 

functio 
g 一 阶 常 微 
g% 积 分 步 长 


在 MATLAB 中 编程 实现 的 经 典 龙 格 - 库 塔 法 能 
功能 : 用 经 典 龙 格 - 库 塔 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 :. y=DELGKT4_lungkuta (f. ha,b,y0,varvec) 


h : 
a: 
b: 
y0: 函数 初 值 ; 


站 varvec; 常 微分 方程 的 变量 组 。 本 


- 库 塔 法 的 MATLAB 程序 代码 如 下 所 示 : 


， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ， 
积分 步 长 ; 
自 变量 取 值 下 限 ; 
自 变量 取 值 上 限 ， 


第 19 章 ， 常 微分 方程 的 初 值 问题 


天 1 = 了 (xyn) 

万 
天 2 = 六 Co 二 二， 加 十 二 天 
2 三 上 7 加 二 本 1) 

忆 万 
K3 = Fe 十 二 ,办 十 二 天 
3 = 上 乒 ( > 5 2) 
天 4 = (or 十 几 轴 r 十 AK3) 


yn+l 三 Jr + 二 2K2 二 2K3 十 天 4) 









、\] ， 


口 / 








nn y = DELGKT4_1ungkuta (上 ，hva,b,y0,varvVec) 
分 方程 的 一 般 表 达 式 的 右 端 函数 ，f 
: 二 


g 自 变量 取 值 下 限 : a 
g% 自 变量 取 值 上 限 : P 


g% 函 数 初 值 
g% 积 分 步 长 


: Y0 
: 了 


g 常 微分 方程 的 变量 组 : varvec 


format 1ong:; 





N = (b-al) /nb; 

Yy = zeros (N+1,1); 

Y(1I) = Y0; 

X=a:n:b; 

var = findqsym( 工 ) 

for 1=2:N+1 
KX1 = Funval(f,varvec, [x(i-1) y(i-1)])， % 经 典 龙 格 - 库 塔 三 阶 公式 的 第 一 步 
K2 = Funval (f,varvec, [x(i-1)+h/2 y(i-1L)+KLx*h/2] ) ; % 经 典 龙 格 - 库 塔 三 阶 公式 的 第 二 步 
K3 = Funval(f,varvec, [x(i-1)+h/2 y(i1)+K2xh/2] ) ; g% 经 典 龙 格 - 库 塔 三 阶 公式 的 第 三 步 
K4 = Funval (f,varvec, [x(i-1)+h y(i-1)+hxK3])， g% 经 典 龙 格 - 库 塔 三 阶 公 式 的 第 四 步 
y(i) = y(i-1)+hx(KL+2xK2+2xK3+K4) /16 S% 经 典 龙 格 - 库 塔 三 阶 公式 的 第 五 步 

enaQ 


format Short ; 


。 基 尔 法 的 计算 公式 为 ; 
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天 1 三 Joyn) 
忆 疡 
天 2 = 7 十 一 ,yz 士 一 天 
2 三 了 zx 7 加 十 1) 


K3 = Cn + +G2- 有 232 
天 = Fn + 志 轴 一 必 RD 二 Ce 大) 


yo = 加 二 (CR +(2--V2)K2 +(2+V2)K3 十 天 4 


天 > ) 


在 MATLAB 中 编程 实现 的 基 尔 法 的 函数 为 : DELGKT4_jer 
功能 : 用 基 尔 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y=DELGKT4_jer (f, ha,b,y0,varvec) 
其 中 ，f:， 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 

h:， 积 分 步 长 ; 

a:， 上 息 变量 取 值 下 限 ; 

b: 自 变 量 取 值 上 限 : 

函数 初 值 
varvec: _ 常 微分 方程 的 变量 组 。 


基 尔 法 的 MATLAB 程序 代码 如 下 所 示 : 


function y = DELGKT4_ jer (ff，hvab,y0,varvec) 
sg 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 : 革 
g 积 分 步 长 ;, Ph 
g 自 变量 取 值 下 限 :， a 
g% 自 变量 取 值 上 限 : b 
gs 函 数 初 值 ， y0 
g 积 分 步 长 ,Ph 
gs 常 微分 方程 的 变量 组 : varvec 
format 1ong:; 
N = (bp-a) /ny 
C2 = SGTL (2) 
= Zeros (N+1, 1) ; 











finaQsym() ; 
fotr 工 =2:N+TL 








K1L = Funval (Evarvecy， [xf(i-1) yy(i=-1)]): “人 尔 公开 的 第 一 加 
K2 = Funval(f,varvec, [x(i-1)+h/2 y(i-1)+Klxh/2]);， g% 基 尔 公式 的 第 二 步 
K3 = Funval (f ,varvVvec,，[x(i-1)+h/2 Yy(i-1)+K1Lxhx (C2-1) /2+K2xhxr(2-C2)7/2]:; 
g 基 尔 公 式 的 第 三 步 
K4 = Funval (f,varvec， [xf(i-1)+h y(I-1) 一 K2xhxC272+K3xhx(2+C2)72])， 
gs 基 尔 公式 的 第 四 步 
Yy(i) = y(i-1)+hx (K1+(2-C2)xK2+(2+C2)*xK3+K4)76; g 基 尔 公 公式 的 第 五 步 
emaQ 
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format SPRort ， 


e。 变型 龙 格 - 库 塔 法 的 计算 公式 为 ， 
天 1 = Joyn) 


灰 户 
Ka = oo 十 于, 攻 十 二 天 
2 三 上 扩 了 > 3 ID) 


2 瑚 
开 3 = [ev + 本, 男 一 了 一 3K2)] 


天 4 = 和 十 忆 因 十 有 天 一 天 2 十 天 3 外 





屎 
yn+rl 三 yn + 十 3 开 2 十 3 天 3 十 天 4) 


在 MATLAB 中 编程 实现 的 变型 龙 格 - 库 塔 法 的 函数 为 DELGKT4 qt 
功能 : 用 变型 龙 格 - 库 塔 法 求 一 阶 常 微分 方程 的 数值 解 

调用 格式 ，y=DELGKT4_qt (f, ha,b,y0,varvec) 

其 中 ，f， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ， 

h:， 积 分 步 长 ; 

a: 自 变量 取 值 下 限 ; 

b: 自 变 量 取 值 上 限 ; 

y0: 函数 初 值 ; 

varvec， 常 微分 方程 的 变量 组 。 


变型 龙 格 - 库 塔 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Y = DELGKT4_ qt (E，Ph,a,b,y0, varvec ) 

g% 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : 芋 

g% 积 分 步 长 : h 

g 自 变量 取 值 下 限 : a 

自 变量 取 值 上 限 : b 

函数 初 值 : y0 

g 积 分 步 长 : 

g% 常 微分 方程 的 变量 组 : varvec 

format 1ong:; 

N = (b-al) /Dn; 

Y = zeros (N+1,1) ; 

Y(1) = Y0; 

文 =a:n:by; 

var = finadsynm( 工 ) ; 

for =2 :NT+IL 
K1L = Funval(ft,varvec, [xl(i-1) y(-1)]) sg 变型 龙 格 - 库 塔 公式 的 第 一 步 
K2 = Funvaltt,varvec, [xf(i-1)+h/3 y(i-1L)+K1xnhV31)， g% 变 型 龙 格 - 库 塔 公式 的 第 二 步 
K3 = Funval (ft ,varvec，[Xx(i-1)+2xnh/3 Y(I-1L) 一 KLx*hV3+K2xhnh]) 
变型 龙 格 - 库 塔 公式 的 第 三 步 
K4 = Funval(f,varvec，[x(i-1L)+nh Yy(i-1)+hx(K1L 一 K2+TK3) ] ) 
gs 变型 龙 格 - 库 塔 公式 的 第 四 步 
y(i) = y(i-1)+hx (K1+3*K2+3xK3+K4) /78; g% 变 型 龙 格 - 库 塔 公式 的 第 五 步 

enqQ 








2 op 
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format Short 


四 阶 龙 格 - 库 塔 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 四 阶 龙 格 - 库 塔 法 求 下 
面 常 微分 方程 的 数值 解 。 


由 -1+mnoc+D 0 芝 x 乏 1 
dx 


y(O)=1] 
解 : 在 MATLAB 命令 窗口 中 输入 ; 


>> Z =1+1og{(X+1) ; 
>> YYy = DELGKT4_1Lungkutal(z,0.1,0,1,1，[x Y]) 
vy = 1.0000 
工 .1048 
.2188 
1 .3411 
工 .4711 
工 .6082 
1.7520 
-9021 
.0580 
.2195 
.3863 
>> YY DELGKT4_Jjer(z,0.1,0,1,，1，[x yY]) 
YyYvyv = 1 工 .0000 
工 .1048 
1.2188 
1.3411 
工 .4711 
1.6082 
1.7520 
.9021 
.0580 
.2195 
.3863 
DELGKT4_ct(z,0.1,0,1,1,[x Yy]) 
.0000 
-1048 
.2188 
.3411 
.4711 
-6082 
.7520 
-9021 
.0580 
.2195 
.3863 


通过 简单 计算 ， 可 得 出 常 微分 方程 








Il iD 





>> YY 


NINNPPPPhPhPPPPPPIN 
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也 -1+lnx+D 0Osxsl 
dx 
y(0) =1 


的 解 为 ?=(1+ 困 Ind+z+1， 将 数值 解 与 理论 解 列 成 表格 如 下 ， 





可 见 四 阶 龙 格 - 库 塔 法 的 精度 已 很 高 了 ， 用 它 来 解 一 般 的 常 微分 方程 已 经 足够 。 


15.2.4 ” 罗 赛 布 诺 克 半 隐 式 公式 


罗 赛 布 诺 克 半 隐 式 法 本 质 上 是 一 种 半 隐 式 的 龙 格 - 库 塔 算法 ， 它 的 锡 代 公式 如 下 所 示 : 


yaH 三 加 十 网 司 十 W 人 2 
石 = 各 一 ia 方 Co)TFCoy) 
局 = 扣 一 ha 户 (Co +c 思 加 +caLFGOo +d 刀 入 +do) 
其 中 ， 
al =1.40824829， a2 三 0.99175171 
di =cl=0.17378667， da2 =c2 =0.17378667 
WI = -0.4131S432， W2 二 1.4131S432 











在 MATLAB 中 编程 实现 的 罗 赛 布 诺 克 半 隐 式 法 的 函数 为 : DELSBRK 
功能 :用 罗 赛 布 诺 克 半 隐 式 法 求 一 阶 常 微 分 方程 的 数值 解 
调用 格式 : y=DELSBRK (f, h,a,b,y0,varvec) 
其 中 ，f:; 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 
h:， 积分 步 长 ; 
a:， 自 变量 取 值 下 限 ; 
b: 自 变 量 取 值 上 限 ; 
y0:， 函数 初 值 ; 
varvec， 常 微分 方程 的 变量 组 。 
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罗 赛 布 诺 克 半 隐 式 法 的 MATLAB 程序 代码 如 下 所 示 : 


function y = DELSBRK ( 工 ， ha pb,y0,varvec) 
gs 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : 计 

g 积 分 步 长 : h 

g 自 变量 取 值 下 限 : a 

* 自 变量 取 值 上 限 : b 

g 函 数 初 值 : y0 

gs 积分 步 长 : h 

gs 常 微 分 方程 的 变量 组 .varvec 

format 1ongGy; 

al = 1.40824829:; 

a2 =0.59175171:， 

c1L = 0.17378667: 

cC2 = C1L:; 
w1 = -0.41315432;， 
w2 = 了 1.41315432; 
= (br-a) /hy 

= ZeroSs (N+1 ,1) ; 
(1) = Y0:; 








Var = finaQsym( 王 ) ; 
Gdqy = Qiff( 工 ，Vvarvec(2)) 
for 1=2 :N+1 
fl1 = Funval (ft,varvec,，[Xx(i-1) y(iz-1)]); 





dy1l = Funval (dgy,varvec,，[x(i-1) y(i-1)]): 
kl = hxrfl/(1-hx*alx*dy1)，  g 第 一 个 系数 
Gy2 = Funval (gqy,varvecy [xl(i-1)+c1x*h y(i-1)+c2xKk1]) ; 
f2 = Funval (ft,varvec,， [xf(i-1)+c1xh Yy(i-1L)+c2xk1]) 
k2 = hxf2/(1-hxa2xdy2);  g% 第 二 个 系数 
Yy(IL) = YyY(I-1L)+AwLx*K1L+w2xK2， 

end 

forrmat Short : 





罗 赛 布 诺 克 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 罗 赛 布 诺 克 法 求 下 面 常 微 


分 方程 的 数值 解 。 


y(0) =1 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Z 三 2xXxy 7 

>> YY DELSBRK(z，0.1,0,1,1,， [xyYy]) 
YYy 三 .0000 

.0049 

.0303 

.0777 

.1501 

.2522 
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.3910 
.95765 
.8228 
.1501 
.5875 


通过 简单 计算 ， 可 得 出 常 微 分 方程 


FI 六 户 户 


dy 
-一 =2 0 和 过 X 乏 1 
dx 人 


y(0) =1 
的 解 为 y= ex ， 将 数值 解 与 理论 解 列 成 表格 如 下 







































































默 森 单 步 法 的 迭代 公式 如 下 所 示 : 


六 
Z1 二 ynm + 本 Co) 


妇 二 了 +eUGs + 一 Gooyo] 


37 严 4 玉 1 
2 三 2Z2 + LO + 了 22) Oo + 本) 一 Joy 


刀 1$ 刀 3 
一 十 27 7 十 一 ， 一 一 7 十 一 ， 十 一 7 9 小 玫 
Z4 三 23 [zx 7 2Z3) 167G 了 Z2) 167G yn 


四 + + 态 z) 一 8FCo +22)+970n +2,z) -27Coyo 


| ”在 MATLAB 中 编程 实现 的 默 森 单 步 法 的 函数 为 DEMS 
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功能 ， “用 默 森 单 步 法 求 一 - 阶 常 微分 方程 的 数值 解 
调用 格式 ;， y = DEMS (f, ha,b,y0,varvec) 


其 中 ，f:， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h， 积 分 步 长 ; 
a: 自 变 量 取 值 下 限 ; 
b: 自 变量 取 值 上 限 ; 
y0: 函数 初 值 ; 
Varvec' _ 常 微分 方程 的 变量 组 。 


默 森 单 步 法 的 MATLAB 程序 代码 如 下 所 示 : 





function y = DEMS (E，hvayb,y0,vatrvec) 
sg 一 阶 常 微 分 方程 的 一 般 表 达 碟 的 尼 咒 呈 数 : 工 
g% 积 分 步 长 : h 


g 自 变量 取 值 下 限 : a 

g% 自 变量 取 值 上 限 : b 

g% 函 数 初 值 : y0 

g 积 分 步 长 : 

g* 常 微分 方程 的 变量 组 : varvec 

function Y = DEMS (二 ，h,a,b,y0,varvec) 
format 1ongy; 


N = (b-a) /ny; 

YY = Zekros (N+1, 1) 
Y(1) = Y0: 
X=a:nhn:pD; 


var = finaqsym( 革 ) ; 
for =2 :N+1TL 
fy = Funval(f,varvec,，[x(i-1) y(i-1)])， 
z1 = Yy(i-1)+hx*fy/3，  % 第 一 步 迭 代 值 
fy1 = Funval (ft,varvecy,，[x(i-1)+h/X3 z1]) 
z2 = zl+hx (fy1-fy)/6; 8% 第 二 步 迭 代 值 
fy2 = Eunval (f,varvec,，[x(i-1)+h/3 z2])， 
2z3 = z2+3x*hx (fy2 - 4x*fy1/9-fy/9)/8; sg 第 三 步 迭 代 值 
fy3 = Funval(t,varvec ，[xX(i-1)+h/2 z3]) 
2z4 = Zz3+2xhx(fy3- 15*fy2/16 + 3xfy/16) 第 四 步 适 代 什 
fy4 = Funval(t,varvec ，[xf(i-1)+nh z4]) 
y(i) = z4+hxr(fy4 - 8xfy3 + 9xfy2 - 2*fy)/6; g% 第 五 步 和 迭代 值 
emnd 
forrmat Short ， 


默 森 单 步 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 默 森 单 步 法 求 下 面 常 微分 方 
程 的 数值 解 。 
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解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Z 二 2x*xXxy， 
>> yy = DEMS(z，0.1,0,1,1，[x Y]) 
YYy = 工 .0000 
1.0101 
1.0408 
工 .0942 
1 .1735 
1.2840 
1 工 .4333 
1.6323 
1.8965 
2.2479 
2.7183 


与 上 一 例 的 理论 解 比较 ， 可 以 看 出 软 森 单 步 法 的 结果 比 罗 赛 布 诺 克 法 的 结果 要 好 得 多 。 





常用 的 线性 多 步 法 有 米尔 恩 法 和 亚当 斯 法 。 
。 米尔 因 法 的 计算 公式 为 : 


47 
ya+4 三] + 本 jn 一 万 2 二 23) 











在 MATLAB 中 编程 实现 的 米尔 恩 法 的 函数 为 DEMiren | 
功能 : 用 米尔 恩 法 求 一 阶 常 微分 方程 的 数值 解 | 
调用 格式 : y = DEMiren (人 f, hab,y0,varvec) 
其 中 ，f: 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h:， 积 分 步 长 ; 
a: 自 变量 取 值 下 限 ; 
b: 自 变 量 取 值 上 限 
y0， 函 数 初 值 ; 
varvec， 常 微分 方程 的 变量 组 。 


米尔 恩 法 的 MATLAB 程序 代码 如 下 所 示 : 





function yY = DEMiren (人 ，ha,b,y0,varvec) 
gs 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ，f 

g% 积 分 步 长 : 

g 自 变量 取 值 下 限 : a 

g 自 变量 取 值 上 限 : b 

gs 函数 初 值 : y0 

g 常 微分 方程 的 变量 组 : varvec 

function y = DEMiren(E，h,a,b,y0,varvec) 
format Jong， 
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N = (bp-a) /hy; 
Y = zekros (N+1,1):; 


X = 一 aa:h:b; 
Y(1) = Y0; 
Y(2) = Y0 + hx*Funval(t, VarVec，[X(1I) Y(1)]):; 


Yy(3) =Y(2) + hxFunval(f,varvec，[x(2) yv(2)]):; 

Yy(4) ==Y(3) + hx*Funval (f,varvec，[x(3) y(3)])， 

Var = finadsym(E) ; 

for ii=5:N+1 g 米 尔 因 法 的 递 推 公式 

Yy(Ii) = YI(i-4)+4x*hx (2xFunval (Evarvec，[x(i-1)，y(i-1l)]) 一 

Funval (f,varvecy, [x(i-2)，Yy(i-2)]) 十 全 
2*Funval (上 ,varvec，[X(i-3)，Y(i-3)]))73:， 

end 

format Short: 


米尔 恩 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 米尔 恩 法 求 下 面 常 微分 方程 的 
数值 解 。 


dy ， 
一 =2 0 入 X 忒 1 
二 4 


y(0) =1 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> Z 忆 二 2xXxY 
>> YY = DEMiren(z，0.1,0,1,1,， [xy]') 
YYy = .0000 
1.0000 
1.0200 
1.0608 
工 .1687 
1.2733 
1 .4046 
1 .5898 
1.8770 
2.2268 
2.6666 


e 亚当 斯 法 的 计算 公式 为 ; 
亚当 斯 法 是 一 种 插值 型 的 多 步 法 ， 它 的 一 般 递 推 公式 为 
也 
n+K 三 yn+Kk-l 十 用》 cr 户 :r 


7 一 1 


其 中 的 系数 如 下 表 所 示 : 
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L 


”在 MATLAB 中 编程 实现 的 亚当 斯 法 的 函数 为 ， DEYDS | 


功能 :用 亚当 斯 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y=DEYDS (f h,a,b,y0,varvec) 
其 中 ，f， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h， 积 分 步 长 
a: 自 变 量 取 值 下 限 ; 
b:， 自 变 量 取 值 上 限 ; 
y0: 函数 初 值 ; 
varvec: 常 微 分 方程 的 变量 组 。 











亚当 斯 法 的 MATLAB 程序 代码 如 下 所 示 ; 





function Y = DEYDS (E，h,avb,yo,varvec) 
g 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : 芋 

g 积 分 步 长 : 

gs 自 变量 取 值 下 限 ， a 

g 自 变量 取 值 上 限 : b 

gs 函数 初 值 : y0 

g 常 微分 方程 的 变量 组 .varvec 


format 1ong; 
N = (b-a) /Ri 
Y = Zeros (N+1,1)， 


X= anhn:D; 
Yy(1) = Y0; 
Yy(2) = y0 + hxFunval (ft,varvec， [x(1) y(1)]); 
y(3) = y(2) + hxFunval(ft,varvec，[x(2) yY(2)]):; 
Yy(4) =y(3) + hxFunval(f,varvec， [x(3) Y 人 3) 1 
Y(S) = y(4) + hxFunval(f,varvec，[x(4) y(4)]) 
var = finasym(E) ; 
for 1=6:N+1 sg 亚当斯 法 的 递 推 公式 
y(i) = Y(i-1)+hx(55xFunval(E,varvec,，[x(i-1)，y(i-1)])7/24 一 全 


59xFunval (ft,varvec， [xf(i-2)，Y(I-2)])7/24 十 
37xFunval (f,varvecy, [x(I-3)，Yy(i-3)])7/24 一 … 
9xFunval (f,varvec,， [x(i-4)，Yy(i-4)])/24) ; 
end 
format Short 


亚当 斯 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 亚当 斯 法 求 下 面 常 微分 方程 


的 数值 解 。 
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dy 

一 =2 0<x 世 1 
3 

y(0) =1 








2.1510 
2.5998 





预测 -校正 法 是 一 种 显 式 法 和 隐 式 法 相 结合 的 方法 ， 其 算法 过 程 介绍 如 下 。 

@@ 首先 用 任 一 个 显 式 算法 计算 出 下 一 个 wsx 的 估计 值 y ( 预测 ) 

@ 侠 再 将 ? 代替 wx 代入 一 个 隐 式 算法 的 右边 ， 计 算得 到 ww,x 的 校正 值 。 

因此 预测 -校正 法 可 以 有 很 多 种 形式 ， 常 见 的 有 中 点 -梯形 、 阿 达 姆 斯 、 密 伦 、 亚 当 斯 
和 汉 明 预测 -校正 法 ， 下 面 分 别 进 行 讲述 。 


15.5.1 ”中 点 -梯形 预测 -校正 法 
把 中 点 公式 作为 预测 公式 ,梯形 公式 作为 校正 公式 得 到 中 点 -梯形 公式 ， 它 有 三 种 模式 。 
令 户 =jfoo)， 太 =Fooy) 
e PC 模式 的 计算 公式 为 : 
y 1 二 yz-! +20o 因 ) 
Jr+l 二 加 + + 三] 
e。 人 迭代 模式 的 计算 公式 为 : 
7 全 = -+2jj 
0 二 Fosy@ 
玉 _ 
yy = 功 Ca 二 广 ) 
Jo = OoayG) 


其 中 =12,… 
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。 修改 模式 的 计算 公式 为 : 


在 MATLAB 中 编程 实现 的 中 点 -梯形 预测 -校正 法 的 函数 为 ，DEYCJZmid 
功能 : 用 中 点 -梯形 预测 -校正 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 , y=DEYCJZ_mid (f, h,a,b,y0,varvec,type,s) 


其 中 ，f 


h : 
a: 
b 
y0: 函数 初 值 ; 

varvec: 常 微 分 方程 的 变量 组 ; 

type:， 中 点 -梯形 预测 -校正 法 的 类 型 


S : 


让 rssetremoverrereeeereee 本 


Prn+l 三 yn-l 十 21 
As+l = PPn+l 一 0.8(Pn 一 Cr) 
天 +l 一 JAD 
疡 
万 二 ynr +7(jn 十 Pt) 


yn+l 二 Ja 本 0.2PnHl 一 J 


Cr+l 一 Ja 


在 开始 计算 时 ， 取 Po =co=0。 


一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
积分 步 长 ; 

自 变 量 取 值 下 限 ， | 
自 变 量 取 值 上 限 ， | 





第 二 类 中 点 -梯形 预测 -校正 法 的 迭代 步 数 。 





中 点 -梯形 预测 -校正 法 的 MATLAB 程序 代码 如 下 所 示 ; 


function Y = DEYCUJZ_mid(，h,ab,y0,varvec,typey,s) 
8 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 : 于 


g% 积 分 步 长 : 


也 


g 自 变量 取 值 下 限 : a 
sg 自 变 量 取 值 上 限 : b 


g 函 数 初 值 : 


Y0 


g 常 微分 方程 的 变量 组 : varvec 

gs 中 点 -梯形 预测 -校正 法 的 类 型 : type 

g 第 二 类 中 点 -梯形 预测 -校正 法 的 迭代 步 数 : s 
format ong 

N = (Pb-a) /ny， 


Yy = Zeros (N+1,， 1) 


区 有 :Php; 
Y(1) = Y0; 
Y(2) = y0+hxFunval(f,varvecy, [x(1) y(1)])， 


var = finaQasym( 工 ) ; 
if type 一 工 gsPC 模式 
for 1=3 :N+1 


V1 


= Funval (E,varvecy,， [xf(i-1) Yyf(i-1)]); 


ft = y(i-2) + 2xhxv1; 
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V2 = Eunval (f,varvec，[x(i) 七 ]); 
Y(I) =Y(i-1)+h* (vt+v2)7/2; 
end 
elSse 
if type 一 2 # 人 迭代 模式 
for 1=3 :N+1 
V1 = Funval (Evarvec,[x(i-1) y(i-1)])， 
二 = Y(I-2) 二 2xhxvl' 
V2 = Funval (f,varvecy [xf(i) 七 ]); 
for 1=1:S 
Y(1i) =Yf(i-1l)+nhx(v2 + v1)72: 
Vv2 = Funval (ft,varvec, [xl(i) Y(i)]); 
end 


else g% 修 改 模式 


C= 0; 
ftnl = Eunval (Et,varvec, [x(1) yy(1)]); 

for 1 工 = 3:N+1L 

V1 = Funval (ft,varvec,，[x(i-L) y(iz-1)])， 
DP =yY(iI-2)+2xhxv1:; 

M=P 一 0.8x(p0 一 cC):; 

PE = Funval(E ，varvec， [xf(i) ,M]) : 


fn =Y(i-1I) 十 hx(fnl 二 下 )V/2，; 
yl(i)= 了 fn 一 0.2*(P 一 fn); 
C = fn; 
fnl = fn; 
pP0 = P; 
end 
enaQ 
end 


format Short 


中 点 -梯形 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 中 点 -梯形 预测 - 
校正 法 求 下 面 常 微分 方程 的 数值 解 。 


dy 

-一 =2 0 乏 X 生 1 
2 

y(0)=1 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SymS X Y， 

>> Z 二 2*Xxy) 

>> Y= DEYCUZ_midQ (z，0.1,0,1,1, [xyl,1,3) 
Y = 三 .0000 

.0000 

.0308 

.0839 

,1628 

.2729 


上 FF 
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.4215 
.6198 
.8832 
.2339 
.7037 
>> Y= DEYCJZ_ mid (z，0.1,0,1,，1，[x Y],2，3) 
YY 一 1.0000 
1.0000 
1.0306 
1.0837 
1.1628 
1.2729 
1 工 .4219 
1.6206 
1.8849 
2.2370 
2.7092 
>> Y= DEYCUJZ_miQ (zZ，0.1,0,1,1，[x Yy],，3，4) 
Yy = 1.0000 
1.0000 
1.0170 
工 .1037 
1 .2164 
1.3530 
1.5165 
.7130 
.9505 
.2398 
.5948 


第 一 种 类 型 的 中 点 -梯形 预测 -校正 法 和 第 二 类 型 得 出 的 结果 比较 接近 ， 且 精度 相对 要 


高 一 些 。 


F N FF 哺 








Co Pb 情 上 


15.5.2 ”阿达 姆 斯 预测 -校正 法 
阿达 姆 斯 预测 -校正 法 的 公式 如 下 所 示 ， 


一 忆 

yn+l 二 yn +7Gjn 一 广 -U 
已 一 

yn+l 二 yn +7[j +Jj] 


| 在 MATLAB 中 编程 实现 的 阿达 姆 斯 预测 -校正 法 的 函数 为 ， DEYCJZ_adms 

功能 : 用 阿达 姆 斯 预测 -校正 法 求 一 阶 常 微分 方程 的 数值 解 

调用 格式 , y=DEYCJZ_adms (f, h,aib,y0,varvec) 
其 中 ，f， 一 阶 常 微分 方程 的 一 般 表达 式 的 右 端 函数 ， 
h， 积 分 步 长 ; 
a; 自 变量 取 值 下 限 ; 
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。 b: 自 变量 取 值 上 限 
y0: 函数 初 值 ; | 
varvec:， 常 微分 方程 的 变量 组 。 和 


阿达 姆 斯 预测 -校正 法 的 MATLAB 程序 代码 如 下 所 示 : 


function Y = DEYCUZ_adqms (ff，hPh,ab,y0,varvec ) 

g% 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : 革 

g% 积 分 步 长 : ph 

g% 自 变量 取 值 下 限 : 已 

g 自 变量 取 值 上 限 : b 

gs 函数 初 值 ， Y0 

g 常 微分 方程 的 变量 组 : varvec 

format 1ong:; 

N = (D-a) /hy; 

Y = Zeros (N+1,，1) 

X = a:hib; 

Y(1) = Y0; 

Y(2) = Y0+hxEFunval(f,varvec,[x(1I) y(1)]); 

for 1=3 :NT+1 
V1 = Funval (f,varvec,，[x(i-2) y(i-2)]): 
V2 = Funval (ft,varvec，[xX(i-1L) Yy(i-1L)]) 
t 三 YY(i-1L) + hxr(3xv2-v1) 7 2; 
v3 = Funval(f,varvec,，[x(i) 七 ]); 


y(i) =Yy(i-1l)+hx(v2+v3)/2; ， g% 阿 达 姆 斯 预测 -校正 法 的 递 推 公式 





endQ 
format Short ; 


阿达 姆 斯 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 阿达 姆 斯 预测 - 
校正 法 求 下 面 常 微分 方程 的 数值 解 。 


灿 -* yy+1 0 乏 x 斥 1 
dx 


7y(0) =1 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYmsS X Y; 
>> Z 三 X-Yy+T1， 

>> Y DEYCUJ2_aaqms(z,0.1,0,1,1，[x Y]) 
Y = .0000 

.0000 

.0143 

.0367 

.0665 

.1030 

.1456 

.1936 

.2466 

.3040 

.3655 


卢 贱 上 上 上 


456 和 入 荐 


第 19 章 ， 常 微分 方程 的 初 值 问题 
将 数值 解 与 理论 解 比 较 如 下 ， 








从 误差 列 可 以 看 出 ， 阿 达 姆 斯 预测 -校正 法 使 得 误差 越 来 越 小 。 


15.5.3 ” 密 伦 预 测 -校正 法 
密 伦 预测 -校正 法 的 公式 如 下 所 示 ， 
欢 =yra+ 全 02 方太 42 


(0) 一 (0) 
上 太 一 Jai 9 ytf1) 


呈 户 号 一 | 
?CD 二 yn-! + 二 4 记 十 万-) 


Ji= Con) 
其 中 *=12…. 
还 有 修正 的 密 伦 预 测 -校正 法 ， 其 公式 为 


47 

Prn+l 一 ynr-3 + 本 (jn 一 斤 - 十 2 六 -2) 
28 

af 三 Pn+l 一 一 (Pr 一 Cr) 


29 
五 + = Co) 


天 
Cn+l 二 yn 一 2 + 本 on +4 广 十 万 -1 


=C + 了 工 一 CrHl) 
n+l Fi 十 1 29 Prn+l FP 十 ] 


在 MATLAB 中 编程 实现 的 密 伦 预测 -校正 法 的 函数 为 ，DEYCJZ_adms2 
功能 : 用 密 伦 预 测 -校正 法 求 一 阶 常 微 分 方程 的 数值 解 
调用 格式 ， y= DEYCJZ_adms2 (f, h,a,b,y0,varvec,type,s) 
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| ”其 中 ，f， 一 阶 常 微分 方程 的 一 般 表达 式 的 右 端 函数 ， 
h， 积 分 步 长 
a:， 自 变量 取 值 下 限 ; 
b， 自 变量 取 值 上 限 ; 
y0: 函数 初 值 ; 
| varvec:; 常 微 分 方程 的 变量 组 ; 
9Pe， 密 从 现 列 校 下 法 的 关于 
:迭代 参数 。 | 


密 伦 预测 - 校 正法 的 MATLAB B 程序 代码 如 下 所 示 ， 


function Y = DEYCJZ_adqdms2 (，h,a,b,y0,varvec,type,s) 
g% 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ;f 

gs 积分 步 长 : h 

g 自 变量 取 值 下 限 : a 

g% 自 变量 取 值 上 限 : b 

sg 函数 初 值 : y0 

g 常 微分 方程 的 变量 组 : varvec 

g 密 伦 预 测 -校正 法 的 类 型 type 

g 和 迭代 参数 : S 

function y = DEYCJZ_ml (E，hvab,y0,varvecy type) 
format 1ong; 














N = (bpb-a) /ni; 

Y = Zeros (N+1,， 1) : 

X 一 a:nh:b; 
Y(1) =Y0; 

Y(2) = YY0+hxPFunval (f,varvecy [Xx(1) YY(1)]); 
Y(3) 


= Yy(2)+hxPFunval (ff,varvec，[x(2) Y(2)]): 
Y(4) =Y(3)+nhxrFunval(ft,varvec,，[x(3) Y(3)])， 
if type 一 1 g 密 伦 预测 -校正 公式 
ftor =5 :NT+L 

v1 = Funval (ft,varvecy [xf(i-3) Y(i-3)])， 
f 夺 ,varvec，[X(i-2) Y 一 2 ) 
V3 = Funval (E ,varvec,，[xXx(i-1L) Yy( ] ) 
二 = Y(i-4) 十 4xhx(2x*V3 一 V2 十 2 
for m=1:S 


【 用 
V2 = Funval( 


了 


和 


人 ft = Eunval (ft,varvecy,，[x(I) 苇 ]); 
Y(i) =Y(Ii-2)+hxr(4xv3 十 V2 + fL)/3; 


上 =Y(IT)， 

enaQ 

enq 
else g 修 正 的 密 伦 预 测 - 校 正 公式 

pP0O = 0; 
C = 0; 
fn1 = Funval(ft,varvecy [fx(1) y(1)]):， 
Vv1 = Eunval (E,varvec,， [X(I-3) Yy(i-3)]) 


Vv2 = Funval (Et ,varvec, [xf(i-2) Y(i-2)]); 
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V3 = Funval (ft,varvecy, [x(i-1) Yy(i-1)])， 
七 =Y(I-4) + 4xhx(2xv3 一 V2 + 2xv1)73; 
ft = Funval (f, varvecy， [x(I) 上 上 ]); 
for 工 = 5:N+L 
P =yY(I-4)+4x*nhx(2xvV3 一 V2 + 2xv1)7/3; 
M=PDP 一 28x(p0 一 Cc)/29; 
PE = Funval ( 丰 ，varvec， [xl(Iz) ，M]) 
C = 一 Y(i-2)+hx(4xv3 + Vv2 十 了 )7/3:， 
yl(i)=c+(P--c)/29; 


endQ 
enaQ 
format Short :; 


密 伦 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 密 伦 预 测 -校正 法 求 


下 面 常 微 分 方程 的 数值 解 。 


d 
二 -xy+1 0 乏 X 势 1 


y(0) =1 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> SYyms X Y; 
>> Z 三 X-V+1); 
>> YY = DEYCUJZ_ ml(z,0.1,0,1，1,，[x yl],1,4) 
YY = 1.0000 

1.0000 

1.0100 

1.0290 

1.0637 

1.0963 

1.1439 

1.1877 

1.2459 

1.2987 

1 .3657 

>> YY = DEYCUZ_ml(z,0.1,0,1,1，[X Yy]，2) 
YYyY = 1 .0000 

.0000 

.0100 

1.0290 

工 .0637 

1 .0967 

1.1441 

工 .1880 
1.2460 
1.2990 
1T.3657 


上 户 





从 结果 看 ， 密 伦 预测 -校正 法 的 两 种 形式 算出 的 结果 差别 非常 小 。 
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15.5.4 ”亚当 斯 预测 -校正 法 
亚当 新 测 核 下 法 的 会 式 如 和 


ya= G5- 539 思 1+37 户 2 一 ?jn-3) 





yntl 二 总 1HL 十 19 记 严 一 3 1-1 十 所 7 一 2 )j] 








在 MATLAB 中 编程 实现 的 亚当 斯 预测 -校正 法 的 函数 为 : DEYCIJZ_ yds 
功能 : 用 亚当 斯 预测 -校正 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y= DEYCJZ_yds (f, ha,b,y0,varvec) 
其 中 ，f:， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 
h: 积分 步 长 ; 
a:， 自 变 量 取 值 下 限 ; 
b: 自 变 量 取 值 上 限 ; 
y0: 函数 初 值 ， 
varvec: _ 常 微分 方程 的 变量 组 。 














亚当 斯 预测 -校正 法 的 MATLAB 程序 代码 如 下 所 示 : 


function y = DEYCJZ_ yds (ff，h,avb,y0,varvec ) 
sg 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 : 上 
g 积 分 步 长 : h 
g 自 变量 取 值 下 限 : 已 
g 自 变量 取 值 上 限 : b 
函数 初 值 : Y0 
g 常 微分 方程 的 变量 组 : varvec 
format 1Long:; 
N = (D-a) /hy， 
Y = Zeros (N+1,1) ; 
X= ah:b' 
(1) = Y0; 
(2) = Y0+hxFEunval (ft,varvec,， [xx(1) Y(1)]); 
Yy(3) = y(2)+hxFunval(f,varvec, [x(2) y(2)]); 
) = Yy(3)+hxFunval (ft,varvec,，[x(3) Y(3)]):; 
for II=5:N+1 
v1L = Funval(f,varvec, [x(i-4) Y(i-4)]); 
VvV2 = Funval(t,varvec,，[x(i-3) Y(i-3)])， 
V3 = Funval (f,varvec,，[x(i-2) yf(i-2)]); 
v4 = Funval (ft,varvec[x(i-L1) y(i-1)]) 7 
上 = vv(i-L) + hx(55xvV4 一 59xV3 二 37*xV2 一 9xV1)7/24; 
ft = Funval(t,vatxrvecy, [x(i) 七 ] )， 
v(i) = v(i-1)+hx (9*ft+l19xv4-5xv3+Vv2) /24; % 亚 当 斯 预测 -校正 法 的 递 推 公式 
enaQ 
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format Short 


ER 亚当 斯 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 亚当 斯 预测 -校正 
法 求 下 面 常 微分 方程 的 数值 解 。 


灿 -1+cosx 0 所 X 所 1 
dx 


y(0)=0 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> Syms X Y; 

>> Z 三 1+cos (X) ; 
>> Y = DEYCJZ_ ydas(z,0.1,0,1,0,，[x Yy]) 
Y = 三 0 

.2000 

.3995 

-5975 

.7914 

-9814 

.1666 

.3462 

.5193 

.6853 

-8435 


可 以 看 出 ， 常 微分 方程 





上 D 口 呈 局 定 


由 -1+cosx 0 入 x 乏 1 
dx 
7(0=0 

的 理论 解 为 ?= x+sinx ， 数 值 解 和 理论 解 的 结果 比较 如 下 ， 


亚当 斯 预测 -校正 法 
0.0000 











0.2000 











0.3995 









































亚当 斯 预测 -校正 法 的 计算 结果 精度 还 是 可 以 的 。 
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另外 还 有 修正 的 亚当 斯 预测 -校正 法 ， 其 公式 如 下 所 示 ， 


功能 : 


其 中 ， 


修正 的 亚当 斯 巴 测 -校正 法 的 MATLAB 程序 代码 如 下 所 示 : 


Pan+l 三 yn + 汪 (G5 一 39 广 -1 十 37 记 -2 一 9 记 -53) 


231 
A4a+l 二 na+l 二 一 一 (cr 一 Prn) 


270 
FL 三 上 太 由 ,MID) 
Cn+l 一 也 [9 +19 广 一 (3j 轧 - 十 广 - 2)] 


ycn+2 (Po 一 Cn+l) 


在 MATLAB 中 编程 实现 的 修正 的 亚当 斯 预测 -校正 法 的 函数 为 : 
用 修正 的 亚当 斯 预测 -校正 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y=DEYCJZ_myds (f ha,b,y0,varvec) 
ff: 
h: 
8 : 
b: 


一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 
积分 步 长 ; 
自 变 量 取 值 下 限 ; 
自 变 量 取 值 上 限 ， 
函数 初 值 ; 


varvec: 常 常 微 分 方程 的 变量 组 。 





function y = DEYCUJZ_myas (ff，hvab,y0,varvec) 
g 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 : ff 


gs 积分 步 长 , h 

# 自 变量 取 值 下 限 ， a 

g 自 变量 取 值 上 限 : b 

g 函 数 初 值 : Y0 

g 常 微分 方程 的 变量 组 : varvec 

function Y = DEYCJ2Z_mydas (E，h,ab,y0v varvec, type) 
format 1ong:; 

N = (b-a) /Pn; 

Y 三 ZeroSs (N+1,1) ; 


X = ah:b; 

Y(1) = Y0; 

Yy(2) = Y0+hxEunval(E,vatvecy [x(1) y(1)]); 
Y(3) = y(2)+hxFunval (上 ,varVec， 人 Y(2)]); 
Y(4) = y(3)+hxFunval(ft,varvec,，[x(3) yY(3)])， 
DO = 0; 

C = 0; 


for 1I=5 :N+L 
V1 = 


V2 = 王 


Vv3 = 


Funval (f,varvecy fx(i-4) yy(i-4)]) 
Funval (f,varvec,，[x(i-3) Y(iIi-3)]):; 
Eunval (ft,varvec，[x(Ii-2) Y(iI-2)]): 
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Vv4 = Funval(f,varvec,， [xf(i-1) y(i-1)]); 

=Y(i-1L) + Phr(55xv4 一 59xVv3 + 37xV2 - 9xv1)724; 
P+251x(c 一 p0)7/270， 

Funval (f ,varvecy， [xf(Ih M]): 

Yy(I-1L) + hxr(9xF + 19xv4 一 Sxv3 + Vv2)7/24: 

(zi) = c+hx19x(p -~ c)/270; sg 修正 的 亚当 斯 预测 -校正 法 的 递 推 公式 


册 


Da 芭 总 
册 





endQ 
forrmat Short : 


修正 的 亚当 斯 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 修正 的 亚当 
斯 预测 -校正 法 求 下 面 常 微分 方程 的 数值 解 。 

















由 -1+cosx 0 所 X 扎 1 
dx 


y(0O)=0 
解 : 在 MATLAB 命令 窗口 中 输入 ， 


>> Syms X Y; 

>> 2Z = 1+CoSs (X) ， 

>> Y = DEYCUZ_mydqs (2z,0.1,0,1,0,，[x Y]) 
Y 三 0 
.2000 
.3995 
.5975 
.7914 
.9814 
.16686 
.3462 
.5193 
.6853 
.8435 


此 题 的 理论 解 为 7?=x+sinx(0 乏 x 乏 D) ， 数 值 解 与 理论 解 的 比较 结果 如 下 : 





上 上 上 上 上 口号 


修正 的 亚当 斯 预测 -校正 法 
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从 上 表 可 以 看 出 ， 修 正 的 亚当 斯 预测 -校正 法 的 计算 结果 精度 还 是 可 以 的 。 
15.5.5“ 汉 了 明 预 测 -校正 法 
汉 明 预测 -校正 法 的 公式 如 下 所 示 ; 
~ 47 
了 yz 二 -3 + 本 (Cj 一 太 - 二 2/-2) 
1 一 
yn+l =gPy 一 多 一 2 +3H1C1 +2 户 一 万- 站 ] 
修正 的 汉 明 法 公式 如 下 所 示 : 
poa ya+ 人 2 记 一 记 1+27) 


112 
Mn = Prn+l -TT( 一 Cr) 
下 +1 三 Jo AnsD 


1 
Cn+l 一 8 一 yn=-2 十 3RCPoH 十 2 记 一 站)] 


=(C + 一 Cr+l) 
yn+1l PP 十 1 121 na+i 7 十 


| 功能 : 用 汉 明 预测 -校正 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 : y=DEYCJZ_hm (f, h,a,b,y0,varvec,type) 

| 其 中 ，f:， 一 阶 常 微分 方程 的 一 般 表达 式 的 右 端 函数 ; 
jh ， 积 分 步 长 ; 

| a: 自 变量 取 值 下 限 ; 

b:， 自 变量 取 值 上 限 ， 

| y0:， 函数 初 值 ; 

varvec， 常 微分 方程 的 变量 组 ; 








汉 明 预测 -校正 法 的 MATLAB 程序 代码 如 下 所 示 : 


function y = DEYCJZ_hm (E，h,a,p,y0,varvec,type) 
g 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 冰 数 : 于 

g 积 分 步 长 : h 

#* 自 变量 取 值 下 限 : a 

g 自 变量 取 值 上 限 : b 

g% 函 数 初 值 : y0 

g 常 微分 方程 的 变量 组 : varvec 

g 汉 明 预 测 -校正 法 的 类 型 : type 

function y = DERYCJZ_hm(E，h,ayb,y0,varvectype) 
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forrmat 1ong; 














N = (bp-a) /ny; 
Y = Zeros (N+1,， 1) : 
X 二 昌 :hib; 
Y(1) = Y0; 
Y(2) = Y0+hxFunval (f,varvec， [x(1) y(1L)])， 
Y(3) =Y(2)+hxFunval(Et,varvec,  [x(2) y(2)]) 
Yy(4) =Y(3)+hxFunval (ft,varvec，[x(3) yY(3)]):; 
if type ==- 1 g 汉 了 明 预 测 -校正 法 
for 1=5:N+1 
V1T = Funval (ft,varvec,， [xl(i-3) y(i-3)])， 
Vv2 = Eunval (ft,varvec,，[x(i-2) Yy(i-2)])， 
V3 = Funval (ff,varvec,，[x(i-1) Yy(i-1)])， 
上 =Y(i-4) 十 4xhxr(2xv3 一 V2 + 2xv1)73; 
ft = Funval(t,varvecy， [xf 人 ii) 二 ]); 
Y(I) = (9*y(i-1) -yy(i-3) +3xhx (2xv3 + ft-v2))7/8: 
emnaQ 
else g 修 正 的 汉 明 预测 -校正 法 
P0 = 0; 
C= 0; 
fnl = Funval(ft,varvec,， [xl(1) y(1)]1); 
Vv1 = Funval (f,varvec, fx(i-3) yy(i-3)])， 
Vv2 = Funval (f,varvec,，[x(i-2) yY(i-2)]):; 
Vv3 = Funval (ft,varvec,，[x(i-L) YY(i-1)])， 
上 = Y(I-4) 二 4x*hxr(2xwv3 一 V2 二 2xv1)73: 
ft = Funval(t,varvec，[x(I) 七 ]); 
for 工 = 5:N+L 
也 Y(i-4)+4*hx(2xv3 一 V2 二 2x*xvVv1)7/3; 
M=P 一 112x(p0 一 c)/121; 
FE = Funval(f ，varvec， [xf(i) ，M] ): 
C = (9x*y(Ii-1I) -yy(i-3) +3xhxr(2xv3 + F-v2))78: 
Yy(Ii)=cC+9x(p 一 cC)/121; 
pP0 = 了 P; 
end 
end 


format Short ; 


汉 明 预测 -校正 法 求解 一 阶 常 微分 方程 应 用 实例 。 用 汉 明 预测 -校正 法 求 


下 面 常 微分 方程 的 数值 解 。 
灿 -1+cosx 0 和 xx 挟 1 
dx 
y(0)=0 


解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYTS X Y， 
>> 2Z = 1+cos (xX) ; 
>> YY = DEYCJZz_hm(z,0.1,0,1,0,，[x y]，1) 
YY = 0 
0.2000 
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.3995 
.5975 
-7916 
-9818 
-1671 
.3467 
.5198 
.6858 
.8440 
= DEYCJZ_hm(z,0.1,0,1,0，[x Y]v2) 





V 
V 
习 PPPFPPPOOD 口 吕 


本 
局 


.2000 
.3995 
.5975 
-7915 
.9815 
-1666 
.3462 
.5193 
-6853 
.8434 


此 题 的 理论 解 为 y?=x+sinx(0 和 x 乏 D] ， 数 值 解 与 理论 解 的 比较 结果 如 下 : 


PPPFPPoOoocecoococoDcDcll 


汉 了 明 预 测 -校正 法 1 汉 明 预测 -校正 法 2 







































































外 推 技术 是 通过 采用 不 同 的 步 长 求 得 微分 方程 的 一 系列 数值 解 ， 然 后 通过 外 推 公式 来 
逼近 微分 方程 的 解 。 通 用 外 推 法 给 出 了 用 外 推 法 求解 一 般 微 分 方程 的 求解 步 聂 ， 下 面 给 出 
了 欧 拉 法 的 外 推 程序 ， 格 拉 格 外 推 法 是 外 推 法 的 一 种 特殊 形式 。 
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15.6.1 ”通用 外 推 法 


设 初 值 问题 


d 
二 7 Xo 乏 X 往 


y(xo) = y0 
的 准确 解 为 yx) ， 假 设 用 某 个 步 长 户 的 数值 方法 计算 Ni 步 到 x=z+ 召 。 其 中 
媚 =Ni 记 ， 并 有 : 
yo 十 瑟 帮 )= 应 
让 玉 取 和 ,用 , 记 … 一 系列 值 ， 得 到 
yo+ 否 )= Po 
7y(Cm 十 媚 ; 朋 )= 库 
yo+ 瓦 户 )=P 


外 推 法 就 是 以 上 面 的 计算 结果 为 基础 ， 构 造 下 面 的 计算 表格 : 


























(7 一 (J/) 


+ 末了 =Z0，p7=pD+L (> 用 > 应 > 
其 中 y(20 万 )= 己 1 帮 / 丰 光一 1 《 


则 mg 及 表格 对 角 线 上 的 值 可 作为 解 的 最 好 近似 。 


在 MATLAB 中 编程 实现 的 通用 外 推 法 的 函数 为 yy = DEWT(f,h,a,b,gama,y0,.order， 
Varvec) 

功能 : 用 外 推 法 求 一 阶 常 微分 方程 的 数值 解 

调用 格式 ，yy = DEWT(h,ab,gama,y0,ordernvarvec) 

其 中 ，f:， 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h， 积 分 步 长 ; 
a: 自 变量 取 值 下 限 ; 
b: 自 变量 取 值 上 限 ; | 
gama:， 外 推 参数 ， 参 考 外 推 公式 ; 
y0:; 函数 初 值 
order， 外 推 阶 数 ; 
| varvec: 常 微 分 方程 的 变量 组 。 | 


L 
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外 推 法 的 MATLAB 程序 代码 如 下 所 示 ， 


function YY = DEWT(f,h,a,b,gama,y0,ordqer, VarvVec) 
gs 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; ff 

% 积 分 步 长 : hh 

g 自 变量 取 值 下 限 : a 

gs 自 变量 取 值 上 限 : p 

g 外 推 参数 ， 参 考 外 推 公 式 : gama 

函数 初 值 ， y0 

g 外 推 阶 数 : order 

g% 常 微分 方程 的 变量 组 ，varvec 

forrmat 1Iong ; 

ArrayH = [1;274;678;12;16724;327;48;64796]) 
N = (b-a) 7/Pn， 

YY = 三 ZerOoS (N+1,，1) : 

for 工 = 2:N+1 


qh = hy; 

S = Zeros (oraQer ,1) : 

for Jj=1:cordqer 
ah = h/RArrayH(J) ; g% 不 同 的 hn 值 
tmpY = DELGKT2_suen(f,adh,aya+(i-1)xh,y0o,varvec); g% 休 因 法 
s(j) = tmpY((i-1)xArrayH(])+IL) 


end 
tmpS = Zeros (ordQer ,1) ; 
for ]Jj=1:oraQer 一 1 
for Kk=(Jj+1) :oraQqeTr 
tmpS (kK) = S(k)+(s(k)-sS(Kk-1))7 (ATTaYyH(IK)VArrayH(j))^garma-1) 


end 
s(1:{(order-j)) = tmpS((j+lL):order); % 取 对 角 值 
enQ 
yy(i) = tmpS(order); 
enaQ 


format Short 


通用 外 推 法 应 用 实例 。 用 外 推 法 求 下 面 常 微分 方程 的 数值 解 。 


和 -1+cosx 0 乏 X 乏 1 
dx 


y(O)=0 
解 : 在 MATLAB 命令 窗口 中 输入 : 


>> SYymS X Y); 

>> Z 三 1+CcoSs (X) ; 

>> YYy = DERNT(z,0.1,0,1,3,0,4，[x Y]) 
0 

,1T998 

.3987 

.5955 

.7894 

.9794 


口 品 串口 
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.1646 
.3442 
5174 
6833 
8415 


将 外 推 法 的 结果 与 理论 解 相 比较 : 


记 FF 





从 结果 可 以 看 出 ， 外 推 法 几乎 是 精确 的 。 当 然 在 此 处 的 程序 中 ， 用 的 是 二 阶 休 恩 法 结 
合 外 推 法 得 出 的 结果 。 


15.6.2 ”格拉 格外 推 法 


格拉 格外 推 法 给 出 了 y(xo + 互 ; 玉 ) = 疡 的 具体 计算 公式 为 ; 
yo =y(xo) 
态 = 加 0 十 玫 太 xyo) 
Jr2 三 加 十 2 用 snr)2=0 Vi 一 1 


1 1 T 
2X0 十 再 ;万 )= 一 yYN-I 十 一 YN 十 一 yN 
y(Cxm ) 下 yw 1 了 yw 下 ?wa 


| 在 MATLAB 中 编程 实现 的 格拉 格外 推 法 的 函数 为 , yy = DEWT_8lg(fh,ab,gama,y0， 
ordervarvec) 

| 功能， 用 格拉 格外 推 法 求 一 阶 常 微分 方程 的 数值 解 
调用 格式 ， yy =DEWT_glg(fh,a,b,gama,y0,ordernvarvec) 
| 其 中 ，f， 一 阶 常 微分 方程 的 一 般 表 达 式 的 右 端 函数 ; 
h:， 积 分 步 长 ; 

a: 自 变量 取 值 下 限 ; 

b: 自 变 量 取 值 上 上限; 

gama， 外 推 参数 ， 参 考 外 推 公式 ， 
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| y0: 函数 初 值 ; 
order:， 外 推 阶 数 ， 
| 

| 





function yy = DEWT_ glg(t,havb,gama,y0,order, VarVec ) 
g% 一 阶 常 微 分 方程 的 一 般 表 达 式 的 右 端 函数 ; ff 
g 积 分 步 长 : h 
g% 自 变量 取 值 下 限 : a 
g 自 变量 取 值 上 限 : b 
g 外 推 参数 ， 参 考 外 推 公式 : gama 
g 函 数 初 值 : y0 
g 外 推 阶 数 ， oraer 
g% 常 微分 方程 的 变量 组 ， varvec 
ArtayH = [1727476;8;12716724732;148764796]:; 
N = (b-a) /ph; 
YY = Zeros (N+1,，1): 
for 工 = 2:N+L 
qh = 了 ni; 
S = ZeGTtoSs (OrQer,，1) : 




















for ]j=1:ordeL 


ah = h/RArrayH(J) ; sg 不 同 的 hn 值 
NI = (i-1)x ArrayH(J) ，; 
tmpyY = ZeroSs (NI+2 1) ; 
tmpY(1) = Y0:; 
tmpY(2) = Y0 + qhx*Funval(ft,varvec,， [a+dqh Y0] ) ; 
for m=3 :NI+1 
tmpy (mn) = tmoY(m-2)+ 2xqhx Funval ( 上 ,varvec,，[a+(m-1L)*aqh 
tmpyY (mr-1L) ] ) ; 
end gs 格拉 格 法 得 出 的 y 初步 值 
s(]J) = tmbY(NI)/4+ tmpY (NI+1L) /2+ tmpY(NI+2)74: 
emd 
tmpS = Zeros (oraqer ,1) ; 
for Jj=1:orQer 一 1 g% 格 拉 格 法 外 推 公式 
for k=(Jj+1) :orqaet 
tmpS(k) = S(KkK)+(sS(K)-s(k-1L))7 (ATTayH(K) 7VATrayH(j))^garma-1) 
emGQG 
sf(1:(ordqer-j)) = tmpS((J+1L) :order): 
enmnd 
yy(i) = tmpS(order) ; 
endq 


格拉 格外 推 法 应 用 实例 。 用 格拉 格外 推 法 求 下 面 常 微分 方程 的 数值 解 。 


业 -1+cosx 0 乏 X 所 1] 
dx 


y(0)=0 
解 : 在 MATLAB 命令 窗口 中 输入 : 
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>> SYymSs X Y; 

>> Z = 1+cos (X) 
>> YY = DENT_ glg(z,0.1,0,1,3,0,4，[x Y]) 
YY 0 

.1997 

.3983 

.5947 

.7880 

.9773 

.1616 

.3402 

.5122 

.6769 

.8337 


此 题 的 理论 解 为 y>=x+sinx(0 入 xzx 乏 D ， 数 值 解 与 理论 解 的 比较 结果 如 下 


情书 上 局 品 口 口 口 明 


格拉 格 数值 解 
























































随 着 x 的 增 大 ， 误 差 也 不 断 增 大 ， 这 是 外 推算 法 的 固有 特点 。 


本 章 介绍 了 常见 的 求 一 阶 常 微分 方程 初 值 问题 的 方法 ， 一 阶 常 微分 方程 的 解法 是 求解 


题 也 就 很 容易 解决 了 。 一 般 来 说 ， 高 阶 的 龙 格 - 库 塔 法 是 比较 常用 的 方法 ， 当 计算 量 比较 
大 时 ， 采 用 预测 -校正 法 也 是 不 错 的 选择 ， 而 外 推 法 结合 各 种 显 式 法 能 给 出 非常 高 的 精度 。 
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偏 微分 方程 是 研究 自然 科学 和 社会 科学 中 的 事件 、 物 体 和 现象 运动 、 演 化 和 变化 规律 的 
最 为 基本 的 数学 方程 。 因 此 ， 偏 微分 方程 数值 解 已 用 到 科学 技术 和 社会 生活 的 各 个 领域 中 。 

本 章 介 绍 了 应 用 最 为 广泛 的 椭圆 型 、 双 曲 型 、 抛 物 型 偏 微分 方程 的 数值 解法 ， 而 且 还 
详细 编程 实现 了 每 种 方程 的 多 种 常见 数值 解法 。 

通过 本 章 的 学 习 ， 读 者 不 仅 能 掌握 常见 偏 微分 方程 的 多 种 数值 求解 法 ， 而 且 还 能 熟练 
使 用 MATLAB 编程 来 实现 这 些 算 法 。 





椭圆 偏 微分 方程 


拉 普 拉 斯 方程 是 最 简单 的 椭圆 偏 微分 方程 ， 下 面 以 拉 普 拉 斯 方程 为 例 ， 讲 述 椭圆 偏 微 
分 方程 的 数值 解法 。 拉 普 拉 斯 方程 的 形式 如 下 所 示 ， 
9 32 _ 
Dz2 0 
椭圆 偏 微分 方程 的 边界 条 件 有 以 下 三 种 提 法 。 
。 固定 边界 条 件 ，xi=t(x  ， 即 在 边界 T 上 给 定 x 的 值 Ui(x 。 
。 给 定 法 向 导数 的 边界 条 件 ，% 上 =UaCz 六 ， 即 在 边界 上 给 定 & 的 法 向 导数 值 
L72 (X， 7) 口 
。 混合 边界 条 件 ，( 呈 + Jir= Us(e 为 ， 即 在 边界 T 上 ，< 和 的 法 向 导数 值 加 起 来 
等 于 V3(x,y)。 
其 中 第 一 种 边界 条 件 的 提 法 最 为 普遍 ， 下 面 以 第 一 种 边界 条 件 为 例 ， 介 绍 椭圆 偏 微分 
方程 常用 的 五 点 差分 格式 和 工 字 型 差分 格式 的 解法 。 


16.1.1 五 点 差分 格式 
五 点 差分 格式 是 最 常用 的 格式 ， 其 形式 如 下 所 示 : 


2 十 有 十 大 ,六 十 本 广 二 4) 


上 式 涉及 的 格 点 如 图 16-1 所 示 ; 





0 
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2 





2 7 


图 16-1 五 点 差分 格式 的 格 点 图 


图 16-1 是 将 方程 求解 域 用 格 点 离散 后 取 的 相 邻 五 个 格 点 , 这 五 个 格 点 处 的 函数 值 满足 
差分 格式 由 HL 十 1 十 熙 /十 下 六 二 40j 
五 点 差分 格式 用 来 求 下 列 边 值 问题 : 
Dr 9 
Un y)= SLC,y) = 82(20) 
U(t 7)= 万 (JUCc 72)= 户 (7) 
乏 YX 入 Xi, 嫉 和 及》 入 久 
其 中 8100 和 82(xz) 是 关于 x 的 函数 ， 廊 (7) 和 户 (y) 是 关于 y 的 函数 。 
用 五 点 差分 格式 求解 拉 普 拉 斯 方程 的 算法 过 程 介 绍 如 下 。 
@ 傅 对 求解 区 域 进行 分 割 : 将 xmin 乏 x 和 xmax 范围 内 的 x 轴 等 分 为 NX 段 ， 将 
ymin 委 y 委 yma 范围 内 的 y 轴 等 分 为 7 段 ; 
@@ 将 边界 条 件 离散 到 格 点 上 
伟 用 五 点 差分 格式 建立 求解 方程 ， 求 出 各 个 格 点 的 函数 值 。 


0 














在 MATLAB 中 编程 实现 的 五 点 差分 格式 的 函数 为 : peEllip5 
功能 : 用 五 点 姜 分 格式 解 拉 普 拉 斯 方程 
调用 格式 : u= peEllipSax,minx,maxX,ny,miny,maxy) 
其 中 ，nx: x 方向 的 节点 数 ; 
minx， 求 解 区 间 x 的 左 端 
maxx: 求解 区 间 x 的 右 端 ; 
ny: y 方向 的 节点 数 ; 
minx:， 求解 区 间 y 的 左 端 ; 
maxx， 求 解 区 间 y 的 右 端 ; 
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function u = peBEll1ip5(nx,minx,maxxny,miny,maxy) 
g X 方 向 的 节点 数 : nx 

sg 求解 区 间 x 的 左 端 ; minx 

g 求 解 区 间 x 的 右 端 : maxx 

gs Y 方向 的 节点 数 ， ny 

g 求 解 区 间 v 的 左 端 : miny 

g 求 解 区 间 y 的 右 端 ， maxy 

g 求 解 区 间 上 的 数值 解 . u 


format ong; 





hx = (maxx-minxXx) yy (nx-1) ; 
hy = (maxy-miny)/y (ny-1L): 
u0 = zeros (nx,ny) 


for j=1:ny 
u0(j,1) = Bll1TIni2Uxl(minx miny+(J]-1)*xpPpy)， 
uO0 





(jj,nx) = EL1LIni2Uxr (maxx,miny+(]J-1)xhy): 
emnd 
for ]j=1 :mmX 





u0(1,]) = RilIni2Uy1l(minx+ (本 -1)*hx,miny) 

u0(tny,]) = El11Ini2Uyr(mninx+(J-1)*hx,maxy) ， g 边 界 条 件 的 离散 
end 
有 = -4xeyel((nxX-2)*x(ny-2)，(nx-2)x(nY-2)) 7; 


DPD = zekros ( (Dx-2)* (ny-2)，1) 
for 1=1: (nx-2)x(ny-2) 


if mod(inx-2) == 1 g% 注 意 离 边界 点 最 近 节点 的 离散 方式 
工 E 工 == 工 
RARA(1,2) = 1; 
A(1,nX-1L) = 1 工 ; 
bl(l) =- u0(1,2) - u0(2,1):; 
elSse 
If == (ny-3)x(nX-2)+1 
Aivi+1) = 1 工 ; 
Ali,i-nx+2) = 1: 
blti) = - ultny-1,1) -~ uoltny，2) 
elSe 


II+1l) = 1; 


全 ( 
Ai II-DX+2) = 工 ; 
人 有 人 
D{ 


二 I+HnX-2) = 1: 
T) = -~- u0(floor(Ii/ (nx-2))+2,1T)? 
enmnaQ 
endQ 
elSe 
if mod(i,nx-2) == 0 gs 注意 
TIf 1 == Dx-2 
Ai i-1l) = 1; 
A(I， LI+nX-2) = 工 ; 
bl(i) = - u0(l1,nx-1) -~- u0(2,nx); 
elSe 
If 1 == (ny-2)*(nX-2) 
Aivi-1l) = 1; 
有 (TI-nx+2) = 工 ; 
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离 边 界 点 最 近 节 点 的 离散 方式 
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Dlli) = - uny-1lL,nx) - uotny, nx-1) : 
人 TSe 
Ativi-1) = 1 
AI,I-nx+2) = 1:; 
ARA(I， LI+nx-2) = 1 
bli) = - uo(floor(i/ (nx-2))+1,nx)， 
enQ 
end 
人 Se 


革 E >1 && 1< PPnXx-2 








Ai i-1) = 1:; 

At(i,i+nx-2) = 1; 

Al(i,i+L) = 1; 

blti) =- u0(1,i+l)， 

elSe 

if 1i> (ny-3)x(nx-2) && 1 < (ny-2)x(nXx-2) 
Alti,I-1) = 1 
AI II-nx+2) = 1 
Ai,i+1l) = 1 
Df(i) = - uny,modG(Ii，(nx-2) )+1)， 

else gs 其 余 节 点 的 离散 方式 
Ai,Iz-1) = 1 
Ai i+lL) = 1 
AI,Ii+nx-2) = 1 
有 (II-nx+2) = 1)， 

enmnd 

emnaq 
end 
endQ 
enda 
Uu = AN\b:; 


format Short : 


五 点 差分 格式 求解 拉 普 拉 斯 方程 边 值 问题 应 用 实例 。 用 五 点 差分 格式 求解 


下 面 拉 普 拉 斯 方程 的 边 值 问题 


2 2 
2 SO0 0<xs2.0<yS2 
oOx- 9y 
&(0,7)=0 U(2,y)=y(2 一 妨 

大 X<1 
xx,0)=0 U(X,2) 三 

2-XX>1l 


其 中 空间 步 长 都 取 0.04。 


解 : 先 建立 4 个 M 文件 ， 以 建立 边界 条 件 : 


function UXY = 
format 1Longy; 
0; 


functiIon UXxY 


UXY 


EL1ImniI2Ux1l(x,y) 


EL1InDi2UXT(X,Y) 
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format 1ong 

UxXY = yx*(2-Y); 

function UxXY = ELLIIni2UY1L(X,Y) 
format 1ong， 

UxXxY = 0); 

function UuUxv = BEBL1LIni2UYT(X,Y) 
format 1Iong ; 


if Xx < 了 1 工 

UXY = XX; 
elSse 

UXY = 2 - X; 
enaQ 


然后 在 MATLAB 窗口 输入 下 列 命令 ， 
UL 三 PeEl11ip5(51,0,2,51,0，2)， 


结果 如 图 16-2 所 示 : 





图 16-2 ” 例 16-1 中 方程 在 求解 域 上 的 场 函 数值 图 


在 图 16-2 中 ,不 同 的 颜色 代表 不 同 的 & 值 ， 如 果 网 格 更 密 的 话 ， 即 采取 更 多 的 节点 进 
行 计 算 的 话 ， 会 得 到 更 加 光滑 的 曲面 。 


16.1.2 ” 工 字 型 差分 格式 
工 字 型 差分 格式 的 形式 如 下 所 示 : 


ZiHL +1 十 天王 L 产 1 十 让 一,j+1 十 帮 +HL 产 ! 二 426 7/ 
上 式 涉及 的 格 点 如 图 16-3 所 示 ; 
2 


于 7 2 JJ+1 


2 


i1 ,六 1 世 


1+1,7+1 


图 16-3” 工 字 型 差分 格式 的 格 点 图 
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上 图 是 将 方程 求解 域 用 格 点 离散 后 取 的 相 邻 五 个 格 点 ， 这 五 个 格 点 处 的 函数 值 满足 差 


分 格式 UP 十 DLP: 十 UL 十 EL 三 4 


工 字 型 差分 格式 用 来 求 下 列 边 值 问题 : 
ax ,95 
xz” Dy2 
U(C0y) = SIC ,y)=82(00) 

Ux, 1D)= 万 (7)UCcy2)= 户 (7) 
科 委 X 入 3X2, 嫉 和 7 乏力 

其 中 gi(0o 和 82(x) 是 关于 x 的 函数 ， 廊 () 和 户 (7) 是 关于 y 的 函数 。 

用 工 字 型 差分 格式 求解 拉 普 拉 斯 方程 的 算法 过 程 介 绍 如 下 。 

合 对 求解 区 域 进 行 分割 : 将 xmin 系 x 乏 xmx 范围 内 的 x 轴 等 分 为 NX 段 ， 将 

ymin 入 》 芯 ymax 范围 内 的 y 轴 等 分 为 N7 段 ; 

个 将 边界 条 件 离散 到 格 点 上 ， 

3， 用 工 宁 型 差分 格式 建立 求解 方程 ， 求 中 各 个 格 点 的 函数 值 。 


=0 







在 MATLAB 中 编程 实现 的 工 字 型 差分 格式 的 函 
功能 : 用 工 字 型 差分 格式 解 拉 普 拉 斯 方程 
调用 格式 : u= peEllipSm(nx,minx,maxx,nyminymaxy) 
其 中 ，nx:; x 方向 的 节点 数 ， 
minx， 求解 区 间 x 的 左 端 
maxx: 求解 区 间 x 的 右 端 
Dy : y 方向 的 节点 数 ， 
minx:， 求解 区 间 y 的 左 端 
maxx:， 求解 区 间 y 的 右 端 ， 
u， 求 解 区 间 上 的 数值 解 


工 字 型 差分 格式 求解 拉 普 拉 斯 方程 边 值 问题 的 MATLAB 程序 代码 如 下 所 示 ; 


function uU = peEllip5m(nx,minx,maxx,nyminy,maxyv) 
g X 方 向 的 节点 数 : mx 

g 求 解 区 间 x 的 左 端 : mimnx 

g% 求 解 区 间 x 的 右 端 : maxx 

gg Y 方向 的 节点 数 :， ny 

g% 求 解 区 间 y 的 左 端 : miny 

g 求 解 区 间 y 的 右 端 : maxy 

gs 求 解 区 间 上 的 数值 解 : u 
format 1ong; 

hx = (maxx-minx)y/y(nX-I) ， 
hy = (maxy-miny)y (ny-1): 





数 为 ， peEllipSm 
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UO = zexros (nx nyY) ; 
for Jj=1:ny 
u0(j,1) = ELLInI2Ux1l1(minx,miny+(]-1)*hy)， 
u0(j,nx) = ElL1LIni2UxXT (maxxy,miny+(J-1) xnhy)， 
enQ 
for jj=13:DnX 
u0(1,j) = ELLIni2Uvyl (minx+(j-1)*hxminy) ，; 
uo(tny, jj) = Blil1Ini2Uyr(minx+(j-1) xnhxyvmaxy); gs 边界 条 件 的 离散 
emd 
有 = -4xeyel (nx-2)x(ny-2)，(CnXxX-2)*(nY-2) ) 


D = zetros( (nx-2)x(ny-2)，1) 
for 1I=1: (nx-2)x (ny-2) 





if mod(i,nx-2) == 1 g% 注 意 离 边界 点 最 近 节点 的 离散 方式 
IE 工 == 
AL,nx) = 工 ; 
bl(1) = -ull1,1) -ul(3,1) - u0o(1，3) 
elSse 
if == (ny-3)*(nx-2)+1 
At,I-nx+1) = 工 ; 
bli) = - ugoltny,1) - u0(ny,3) - uo(ny-2，1) ; 
elSse 
有 (II-nx+3) = 】; 
Ai I+nx-1) = 1 
bli) = - u0(floor(iv (nx-2))+1,1) ~- u0(Efloor(i/ (nx-2))+3，1)， 
enQ 
end 
ese 
if modq(i,nx-2) == 0 g% 注 意 离 边 界 点 最 近 节 点 的 离散 方式 
if 1 == DX-2 
Ati,i+nx-1) = 1:; 
biy) = - u0(1L,nx-2) - u0(1l,nx) - u0(3,nx)， 
elSse 
if 1 == (ny-2)*(nx-2) 
Ri,I-nx+l) = 1， 
bfliy) = - u0(tny,nx) - uO(ny,nx-2) - u0(ny-2, nxX) ， 
elSe 
Ai iI-nx+l) = 工 ; 
有 (II+nX-3) = 1 
bli) = - u0(floor(i/ (nx-2))，nx) -= 
u0(floor(iv(nx-2))+2，nX) 7 
emna 
enda 


人 Se 
TIfE >1 && 1i< DX-2 
Ai， ii+nx-1) = 工 ; 
Ai i+nx-3) = 1; 
bl(i) =- u0l(li) =- u0(1,i+2)， 
el1Se 
if ii > (ny-3)x(nx-2) S&& 1 < (ny-2)* (nxXx-2) 
ATI-nx+3) = 1 工 ; 
RATI-nx+1) = 1 工 ; 
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Di) = - ugotny,moa(Ii， (nxX-2) )) -ug0 (ny, moaQ(I，(Cnx-2))+2) 
At(i,i-nx+3) = 1) g 其 余 节点 的 离散 方式 


有 (IILA+ADX- 工 


上 请 
、 


) 
) 
AI IL+nX-3) = 
有 (iv II-nX+1) 


enaQ 


emnd 
enG 
emndQ 
endQ 
ulL = ANb; 
for 1=1: (ny-2) 


for j=1:(nx-2) 
ul((i-1L)x(nx-2)+]) 


ut(Iy IJ) 
enaQ 
enQ 
format Short : 


工 字 型 差分 格式 求解 拉 普 拉 斯 方程 边 值 问题 应 用 实例 。 用 工 字 型 差分 格式 
求解 下 面 拉 普 拉 斯 方程 的 边 值 问题， 


2 2 
-0 0<xg20<yS<2 
9x- 0y 
&U(0,y) = 0,xU(2,y) = 7y7(2 一 妇 
U(x,0)=0 
区 X<1 
ec 
2--XX>1 
其 中 空间 步 长 都 取 0.04。 


解 ， 先 建立 4 个 M 文件 ， 以 建立 边界 条 件 : 


function UxXV = 
forrmat 1LonG; 
UXY = 0 
function UuUxXY = 
format 1ongy; 
UXY = Yx(2-Yy); 
function UxXY = 
fotrmat 1ong; 
UXyY = 0; 
function UxXY = 





format Longy; 


if X < 工 

UXY = XXX; 
e1Se 

UXY = 2 - 芭 
enQ 





卫 


也 ] 





EL11L1Ini2UX1L(X,Y) 


1L1Ini2Ux(Xx,Y) 


11Ini2UY1L(X,Y) 








11Ini2Uyr(xXx,Y) 
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然后 在 MATLAB 窗口 输入 下 列 命令 ， 
u = peEllip5(51,0,2,51,0,2); 


结果 如 图 16-4 所 示 : 





图 16-4 例 16-2 中 方程 在 求解 域 上 的 场 函 数值 图 


用 工 字 型 差分 格式 算出 的 结果 和 五 点 差分 格式 得 到 的 结果 差不多 ， 但 是 前 者 在 角 点 上 
算得 不 太 好 ， 这 是 格式 自身 的 缺点 。 


双 曲 线 偏 微分 方程 


对 流 方程 是 最 简单 的 双 曲 线 偏 微分 方程 ， 下 面 以 一 维 、 二 维 对 流 方程 为 例 ， 讲 述 对 流 
方程 的 数值 解法 。 

对 流 方 程 研究 得 都 比较 透彻 ， 而 且 其 差分 格式 是 解决 各 种 复杂 双 曲 线 偏 微分 方程 的 基 
础 。 





16.2.1 “一 维 对 流 方 程 


一 维 对 流 方程 的 形式 如 下 所 示 : 
和 +ag-0xc (-eo,co),! > 0,a 为 常数 
9 Ox 
如 果 给 定 初始 条 件 : 
MU(x,0)=U(xz),XE (一 coco) 
则 一 维 对 流 方 程 的 通 解 为 ， 
2U(X:I 人 = 王 LU 一 al,XE(-coco),f>0 
一 维 对 流 方 程 形式 简单 ， 其 差分 格式 非常 多 ， 常 见 的 有 迎风 格式 、 拉 克 斯 - 弗 里 德里 希 
斯 格式 、 拉 克 斯 - 温 德 洛 夫 格式 、 比 姆 - 沃 明 格 式 、Richtmyer 多 步 格式 、 拉 克 斯 - 温 德 洛 夫 
多 步 格 式 和 MacCormack 多 步 格式 ， 下 面 分 别 进 行 讲述 。 





480 因 基因 区 


va 


16.2 


刻 的 








.{.1 迎风 格式 


迎风 格式 的 形式 如 下 所 示 : 
U 一 Ca 严 下 
一 一 VD)=0 ZC>0 
0 -zx)=0 a<0 


其 中 z 为 时 间 步 长 ，A 为 空间 步 长 。 


章 “ 偏 微 分 方程 的 数值 解法 


以 a>0 为 例 , 当 用 迎风 格式 求解 对 流 方 程 时 , 在 计算 求解 区 间 的 左 端点 处 的 下 一 个 时 


函数 值 时 ， 要 用 到 左 端点 的 左边 一 个 节点 的 值 ， 因 此 必须 向 左 延 拓 一 个 节点 ， 才 能 计 


算 下 一 个 时 刻 的 左 端点 的 函数 值 ， 如 此 得 出 ，M 个 时 间 步 的 迎风 格式 ， 应 向 左 延 拓 M 个 


节点 


AAA 





函数 值 ， 这 点 在 程序 中 可 以 看 出 。 


在 MATLAB 中 编程 实现 的 迎风 格式 的 函数 为 ，peHypbYF 
功能 : 用 迎风 格式 解 对 流 方程 
调用 格式 : u = peHypbYEF (a,dtn,minx,maxx,MD 
其 中 ，a: 方程 中 的 常数 
dt:， 时 间 步 长 ; 
n:， 空间 节点 个 数 ; 
minx:， 求解 区 间 的 左 端 ; 
maxx:， 求解 区 间 的 右 端 
M: 时 间 步 的 个 数 ; 
u: 求解 区 间 上 的 数值 解 。 


迎风 格式 的 MATLAB 程序 代码 如 下 所 示 ， 


function U = peHypbYF (adQt,ny minx,maxXx,M) 
g 方 程 中 的 常数 ， a 

s 时 间 步 长 ，dt 

g 空 间 节 点 个 数 ， nm 

gs 求 解 区 间 的 左 端 : minx 

g% 求 解 区 间 的 右 端 : maxx 

gs 时 间 步 的 个 数 : NM 

g 求 解 区 间 上 的 数值 解 : u 
format 1ong; 

nm = (maxXx-minx)y(n-1L) 
IE a>0 





for ]j=1: (n+M) 
u0(j) = IniU(minx+(j-M-1L)xh) ; g 向 左 延 拓 M 个 节点 的 函数 值 
enaQ 
esSse 
for ]j=1: (n+M) 
u0(j) = Inig(minx+(j-1)*h) ; g 向 左 延 拓 M 个 节点 的 函数 值 
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ul = u0:; 
for K=1 工 :M 
If a>0 
for = (KkK+1) :D+M 


ul(i) = -Qtxax(u0(I)-uo(Ii-1))Vvnh+a0(i)， 
enda 
elSe 
for =1:Dmn+M-K 
ul(i) = -Qtxax(u0(i+1l)-u0(I))vn+ru0(I) 
enaQ 
end 
u0O = ul; 
end 
If a>0 
U= ul((M+L):M+n) ; 
esSe 


U= ul(1lL3:n):， 
enda 
ftormat ongy; 


迎风 格式 求解 一 维 对 流 方程 应 用 实例 。 用 迎风 格式 求解 下 面 的 初 值 问题 ; 


-一 = XE (-co,co),t>0 
2U(xzO) 三 DC() XeE (一 co,co) 


其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 六 0.5 ( 即 100 个 
时 间 步 ) 时 的 xz 随 x 的 分 布 图 。 


10x 十 1 -0.1 和 甩 x 乏 0 
LU (COt)=14 一 10xz+1 0 和 过 X 乏 0.1 
0 其 余 


解 ， 先 建立 一 个 名 为 IniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


function Ux = InIU(X) 
format Iongy; 
If xXx<=0 
if X >= -0.1 
UX = 10x(X+0.1) 7 


elSe 
UX = 0); 
enaQ 
所 工 Se 
ifE X <= 0.1 
UX = -10x(X-0.1) ， 
el1Sse 
UX = 0; 
enmna 
end 
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然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> U = PeHypbyPF (1,0.005,，101,0,，1,，100) 7 


将 初 值 ( 即 0 时 ) 与 用 迎风 格式 求 的 结果 用 图 表示 ， 如 图 16-$ 及 图 16-6 所 示 。 
当 大 0.5 时 ， 可 以 看 出 开始 时 的 函数 形状 到 这 时 已 经 有 所 变化 ， 高 度 有 所 降低 ， 而 宽 
度 却 增 大 了 。 














5 ) 1 1 4 上 机 
5 -04 -03 :-02 -01 0 04 02 03 04 05 


图 16-5 _=0 时 的 u 值 














了 1 ha 0b03 .04 05 06 07 08 09 1 











到 16-6 “上 姑 0.5 时 的 u 值 


16.2.1.2 ”拉克 斯 - 弗 里 德里 希 斯 格式 
拉克 斯 - 弗 里 德里 希 斯 格式 的 形式 如 下 所 示 : 





1 1 
2 一 Cn 十 2 六 1) 


7 二 -2z7-)=0 

其 中 7 为 时 间 步 长 ， 疡 为 空间 步 长 。 

当 用 拉克 斯 - 弗 里 德里 希 斯 格式 求解 对 流 方程 时 ， 在 计算 求解 区 间 左 端点 和 右 端点 处 
下 一 个 时 刻 的 函数 值 时 ， 分 别 要 用 到 左 端点 左边 一 个 节点 的 值 和 右 端 点 右边 一 个 节点 的 
值 ， 因 此 每 个 时 间 步 都 必须 向 左 延 拓 一 个 节点 ， 向 右 延 拓 一 个 节点 ， 才 能 分 别 计 算 下 一 个 
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1 全 


时 刻 左 端点 的 函数 值 和 右 端 点 的 函数 值 ， 如 此 得 出 ，M 个 时 间 步 的 拉克 斯 - 弗 里 德里 希 斯 
格式 ， 需 分 别 向 左 延 拓 M 个 节点 函数 值 ， 向 右 延 拓 M 个 节点 函数 值 ， 这 点 在 程序 中 可 以 
看 出 。 





语言 常用 算法 程序 集 





用 拉克 斯 -总 里 德里 希 斯 格式 解 对 流 方 和 
辐 用 局 全 u= peHypbLax (adtn,minx,maxx,MD 
其 中 ，a， 方程 中 的 常数 ; ， 
dt: 时 间 步 长 ; 
n: 空间 节点 个 数 ; 
minx， 求 解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 
M: 时 间 步 的 个 数 ， 
1 求解 区 间 上 的 数值 解 。 


拉克 斯 - 弗 里 德里 希 斯 格式 的 MATLAB 程序 代码 如 下 所 示 ， 


function U = PeHyppbLax (ay qt,nminx, maxxy,M) 
gs 方 程 中 的 常数 : a 

sg 时间 步 长 ， qt 

g 空 间 节 点 个 数 : n 

g 求 解 区 间 的 左 端 : minx 

sg 求解 区 间 的 右 端 : maxx 

gs 时 间 步 的 个 数 : M 

g% 求 解 区 间 上 的 数值 解 ,，u 


format Tong; 








中 = (maxx-minx)y/y(n-1):; 
for ]j=1: (n+2xM) 
u0(j) = IniU(minx+(j-M-1)xh);  g% 左 右 分 别 各 延 拓 M 个 节点 的 函数 值 


U1L = Uu0O:; 
for Kk=1:M 
for 工 =K+1 :n+2xM-K 
ul(i) = -Qtxax(u0(i+1)-u0ol(i-1))/n72+(a0(i+1l)+u0(iz-1))72 
emnd 


end 
U= ul((M+1l):(M+D) ): 
format Short : 


拉克 斯 - 弗 里 德里 希 斯 格式 求解 一 维 对 流 方程 应 用 实例 。 用 拉克 斯 - 弗 里 德 
里 希 斯 格式 求解 下 面 的 初 值 问题 ， 

OU 9U 

一 一 十 一 一 

9f 0Ox 

MU(CO)=L7(O) YE (co,oo) 


一 YE (-co,co), > 0 
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其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 居 0.5 ( 即 100 个 
时 间 步 ) 时 的 zx 随 * 的 分 布 图 。 


10x7 二 1 一 0.1 和 X 忒 0 
UV 人 (CC 三 4 一 10x 上 +1 0 过 X 所 0.1 
0 其 余 
解 ， 先 建立 一 个 名 为 miU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 
function ux = IniU(X) 
format 1ong: 
If Xx<=0 
f X >= -0.1 
UX = 10*(X+0.1); 
人 Se 
UX = 0:; 
enqQ 
elSe 
if X <= 0.1 
UX = -10*x (X-0.1T) ; 
人 Se 
UX = 0; 
enda 
enaQ 


然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> U = peHypbLax (1,0.005,101,0,1,，100) ; 


用 拉克 斯 - 弗 里 德里 希 斯 格式 求 的 结果 如 图 16-7 所 示 ， 











0.1 
0.05 


性 一- 一 一 一 :一 1 ， 1 1 
0 01 02 03 04 05 06 07 .08 09 1 


图 16-7 ”用 拉克 斯 - 弗 里 德里 希 斯 格式 求 得 的 当 #=0.5 时 的 u 值 














从 图 16-7 可 以 看 出 ， 用 拉克 斯 - 弗 里 德里 希 斯 格式 求 得 结果 的 高 度 比 迎 风格 式 结果 更 
低 ， 宽 度 也 更 大 。 


16.2.1.3 ”拉克 斯 - 温 德 洛 夫 格 式 
拉克 斯 - 温 德 洛 夫 格 式 的 形式 如 下 所 示 : 
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HL 天 2 


到 2 7QG 
J 了 天 严 天 用 天 
人 27 ” ” 27 / 7 


其 中 rz 为 时 间 步 长 ， 疡 为 空间 步 长 。 
同 拉克 斯 - 弗 里 德里 希 斯 格式 一 样 ， 世 交 外 温 德 治 大 格式 也 需要 进行 延 拓 。 


在 MATLAB 中 编程 实现 的 拉克 斯 - 温 德 洛 夫 格式 的 函 数 为 ， peHypbLaxW 

， 功能, 用 拉克 斯 - 温 德 洛 夫 格式 解 对 流 方程 

调用 格式 :， u = peHypbLaxW (a,dtn,minx,maxx,MD) 

| 其 中 ，a: 方程 中 的 常数 ; 

dt: 时 间 步 长 ; 

DT 空间 节 上 忆 点 个 数 ; 

minx:， 求解 区 间 的 左 端 

maxx:， 求解 区 间 的 右 端 
M: 时 间 步 的 个 数 ; 

_u: 求解 区 间 上 的 数值 解 。 











拉克 斯 - 温 德 洛 夫 格式 的 MATLAB 程序 代码 如 下 所 示 ， 


function uU = PeHypbLaxWN (aydQt,n,minx,maxX,M) 
g 方 程 中 的 常数 : a 

gs 时 间 步 长 ,at 

gs 空间 节点 个 数 : n 

gs 求解 区 间 的 左 端 : minx 

g 求 解 区 间 的 右 端 : maxx 

sg 时间 步 的 个 数 ， M 

g% 求 解 区 间 上 的 数值 解 , u 


format Iong; 








Ph = (maxxXx-minx)/(n-1):; 
for Jj=1:(n+2xM) 
u0(j) = IniU(minx+(J-M-1)x*nh) ; g 节 点 延 拓 
enda 
ul = u0:; 
for kKk=1 工 :M 
for =K+1:n+2xM-K 
ul(i) = QtxdGt*xaxax(u0(i+l)-2xu0(i)+u0o(i-1))7V2/nhnh - ... 
Qtxax(u0(i+1l)-u0(i-1l)) vv2+u0(I) ， 
enaQ 
U0 = ul 
end 


Uu = UL((M+1):(M+n) ) 
format Short 


拉克 斯 - 温 德 洛 夫 格 式 求解 一 维 对 流 方程 应 用 实例 。 用 拉克 斯 - 温 德 洛 夫 格 
式 求解 下 面 的 初 值 问题 ， 
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OU 09u 
训 + 了 =0 人 二 (-eo,ce),! >0 
LU(X,O0)=LUCX) Xe (-cooo) 
其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 =0.5 ( 即 100 个 


时 间 步 ) 时 的 x 随 x 的 分 布 图 。 


10x+1 一 0.1 乏 xx 乏 0 
LU7(z)=4-1Ox+1 0 芝 x 和 所 0.1 
0 其 余 


解 ， 先 建立 一 个 名 为 IniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


function ux = IniU(X) 
format ong; 


IE xx<=0 
ifE X >= -0.1 
UuUX = 10x{(X+0.1):， 
el1Se 
UX = 0 
end 
elLSe 


ft X <= 0.1 
uUX = -10*x(X-0.1) 
el1Se 


enaQ 
enaQ 


然后 在 MATLAB 窗口 输入 下 列 命 令 : 
>> u = peHypbLaxW (1,0.005,101,0,1,100) ， 


用 拉克 斯 - 温 德 洛 夫 格式 求 的 结果 如 图 16-8 所 示 : 





























图 16-8 ”用 拉克 斯 - 温 德 洛 夫 格 式 求 得 的 当 二 0.5 时 的 u 值 




















从 图 16-8 可 以 明显 地 看 出 ， 拉 克 斯 - 温 德 洛 夫 格式 的 特点 是 函数 值 在 左边 有 波动 。 
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16.2.1.4 上 比 姆 - 沃 明 格式 
比 姆 - 沃 明 格式 的 形式 如 下 所 示 : 


于 十 ] 天 
Mi 一 夷 i 
们 


其 中 7 为 时 间 步 长 ， 瑚 为 空间 步 长 。 
同 理 ， 比 姆 - 沃 明 格式 也 需要 拓展 2M 个 节 点 的 函数 值 ， 但 它 的 节 点 全 是 向 左 延 拓 的 。 


| ”在 MATLAB 中 编程 实现 的 比 姆 - 沃 明 格式 的 函数 为 ，peHypbBW 上 
| 功能 : 用 比 姆 - 沃 明 格式 解 对 流 方程 
调用 格式 u = peHypbBW (adbn,minx,maxx,MD 
其 中 ，a:， 方程 中 的 常数 ; 

dt: 时 间 步 长 ; 

n: 空间 节点 个 数 ; 

minx: 求解 区 间 的 左 端 

maxx: 求解 区 间 的 右 端 
| M:， 时 间 步 的 个 数 ， 


GE 1 玫 G CT 、 nm 天 于 
十 下 0 一 DT 人) 一 24 产 ! 二 &Ui-2)=0 





u: 求解 区 间 上 的 数值 解 。 





比 旭 - 沃 明 格式 的 MATLAB 程序 代码 如 下 所 示 ， 


function u = peHypbBW (adQt,n,minx,maxxy，M) 
g% 方 程 中 的 常数 : a 

gs 时 间 步 长 : qt 

g 空 间 节 点 个 数 : 

求解 区 间 的 左 端 : minx 

g 求 解 区 间 的 右 端 :maxx 

gs 时 间 步 的 个 数 : M 

g 求 解 区 间 上 的 数值 解 :，u 


forrmat 1ong ; 


Dh = (maxx=-rminx)y/y (On-T) ， 
for J=1: (n+2x*xM) 
u0(j) = IniU(minx+(j-2xM-1)xh) ; gs 向 左 延 拓 2M 个 节点 
enaQ 
ul = Uu0: 
for K=T:M 
for 工 =2xK+1 :n+2xM 
ul(iz) = u0() 1 -u0(iI-1))7Vn-axQGtx(1L-axdt/Dn)* 
moa)- 2xu0(i-1)+uo(i-2))7V27/hr; 
emnd 
u0 = ul:; 
endQ 


uU= ul((2*M+1l):(2xM+nm) ) ， 
format Short : 
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比 姆 - 沃 明 格式 求解 一 维 对 流 方 程 应 用 实例 。 用 比 姆 - 沃 明 格式 求解 下 面 的 
初 值 问题 : 


-一 + 一 = XeE (-coco),f >0 
(xz,0)=L7OO XeE(-co,oco) 


其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 上 0.5 ( 即 100 个 
时 间 步 ) 时 的 zx 随 x 的 分 布 图 。 


10x+1 -0.1 和 xz 和 0 
(oO=,:-10r+1 0<x 乏 0.1 
0 其 余 


解 : 先 建立 一 个 名 为 IniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 


function uUx = ImniU(X) 
format 1ong:; 


IE X<=0 
If x >= -0.1 
UX = 10*(X+0.1)， 
elTSe 
UX = 07; 
endQ 
elSse 


if X <= 0.1 
UX = -10x{(x-0.1); 
else 


enQ 
然后 在 MATLAB 窗口 输入 下 列 命令 ， 
>> U = PeHypbBW (1,0.005,101,0,1,100) ， 


用 比 姆 - 沃 明 格式 求 的 结果 如 图 16-9 所 示 ; 

















， 1 1 机 1 1 1 1 ， 
01 02 03 04 05 06 07 008 09 1 





图 16-9 ”用 比 姆 - 沃 明 格式 求 得 的 当 #0.5 时 的 u 值 
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从 图 16-9 中 可 以 观察 到 , 与 拉克 斯 - 温 德 洛 夫 格式 相反 , 比 姆 - 沃 明 格式 的 特点 是 函数 


值 在 右边 有 波动 。 
16.2.1.5 Richtmyer 多 步 格 式 
Richtmyer 多 步 格式 的 形式 如 下 所 示 : 


本 
zi (UL 十 以 六 1) 人 

7 2 

2 
人 2)=0 


其 中 z 为 时 间 步 长 ， 疡 为 空间 步 长 。 
Richtmyer 多 步 格式 是 需要 向 左 和 向 右 各 延 拓 2M 


功能 : 用 Richtmyer 多 步 格式 解 对 流 方程 
调用 格式 :u = peHypbRich (adtn,minx,maxx,MD 
其 中 ，a: 方程 中 的 常数 ; 
dt:， 时 间 步 长 ; 
n: 空间 节点 个 数 ; 
minx， 求 解 区 间 的 左 端 ; 
maxx:， 求 解 区 间 的 右 端 ; 
M: 时 间 步 的 个 数 ; 
ul: 求解 区 间 上 的 数值 解 。 


Richtmyer 多 步 格式 的 MATLAB 程序 代码 如 下 所 


在 MATLAB 中 编程 实现 的 Richtmyer 多 步 格式 的 函数 


和信- 
全 了 P 忌 ， 





5 ，PpeHypbRich 





示 : 


function u = PeHypbRich (adQqt,n,minx,Inaxx,M) 


g 方 程 中 的 常数 : a 

gs 时 间 步 长 ，dGt 

g 空 间 节点 个 数 : mn 

g 求 解 区 间 的 左 端 : minx 
gg 求解 区 间 的 右 端 : maxx 
8 时间 步 的 个 数 :， M 

g 求 解 区 间 上 的 数值 解 : 


format 1ong:; 





Ph = (maxx-minx)y/yn-1) : 
tor Jj=1: (n+4xM) 
u0(j) = IniU(minx+(]j-2*M-1)x*hnh) : 


end 
UL = U0; 
for kKk=1:M 


for 1 工 =2xK+T:Dn+4*M-2x 攻 
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g% 左 右 各 延 拓 2M 个 节点 
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trmeU1 = -Qt*ax(u0(i+2)-uol(i))/vn/4+(uo(i+2)+u0(I))7V2: 
tmpU2 = -Qtxax(u0(i)-u0(i-2))V/nh/v4+(uo(i)+uo(i-2))72:; 
ull(i) = -Qtxax(tmoU1-tmpU2)7/nh/2+uU0O(I) ， 

enaQ 

u0O = ul:; 


end 
uU= ulLl((2xM+1):(2*M+D)) : 
format Short : 


Richtmyer 多 步 格 式 求 解 一 维 对 流 方程 应 用 实例 。 用 Richtmyer 多 步 格 式 
求解 下 面 的 初 值 问题 ， 


-一 +- 一 =0 xxe (-coco),f>0 
Of 0Ox ) 


&U(xz,0)= 芝 (0 XeE (一 ooco) 
其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 0.5 ( 即 100 个 
时 间 步 ) 时 的 x“ 随 x 的 分 布 图 。 


10x+1 一 0.1 乞 x 乏 0 
U(OOD=1-10xz+1 0<Sxr 乏 0.1 
0 其 余 
解 : 先 建立 一 个 名 为 mmiU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 


function ux = IniU(X) 
fotrmat Tong; 
If X<=0 
if X >= -0.1 
UX = 10*(x+0.1): 


elSe 
UX = 0; 
enqQ 
elSe 
if X <= 0.1 
DUX = -10x(X-0.1) 
elSe 
UX = 0; 
enaQ 


endQ 


然后 在 MATLAB 窗口 输入 下 列 命令 ， 
>> u = bpeHypbRicnh (1,0.005,101,0,1,100); 
用 Richtmyer 多 步 格式 求 的 结果 如 图 16-10 所 示 : 
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图 16-10 用 Richtmyer 多 步 格式 求 得 的 当 上 0.5 时 的 u 值 
用 Richtmyer 多 步 格式 算出 的 结果 并 不 理想 ， 不 但 左边 有 波动 ， 而 且 光 滑 性 也 不 好 。 


16.2.1.6 ”拉克 斯 - 温 德 洛 夫 多 步 格 式 
拉克 斯 - 温 德 洛 夫 多 步 格式 的 算法 公式 为 : 





Ai 工 ，n 
2 了 一 二 CGI 十 2) 
+ 2 


CQ 
+- 一 (xd7)=0 


二 27 
7 十 1 玫 
虽 一 天 人 用 十 到 姓 十 一 
- 一 + 一 (CC 2 -& 人 =0 
节 六 有 = J7 一 一 


其 中 Y 为 时 间 步 长 ， 疡 为 空间 步 长 。 
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在 MATLAB 中 编程 实现 的 拉克 斯 - 温 德 洛 夫 多 步 格式 的 函数 为 ; _peHypbMLW 
| 功能 : 用 拉克 斯 - 温 德 洛 夫 多 步 格式 解 对流 方 程 
调用 格式 : u = peHypbMLW (adbn,minx,maxx,MD 
其 中 ，a， 方程 中 的 常数 ; 

dt: 时 间 步 长 ; 

n: 空间 节点 个 数 ; 

minx， 求 解 区 间 的 左 端 

maxx， 求解 区 间 的 右 端 ; 

M: 时 间 步 的 个 数 ; 
ui 求解 区 间 上 的 数值 解 。 


拉克 斯 - 温 德 洛 夫 多 步 格式 的 MATLAB 程序 代码 如 下 所 示 ; 


function u = peHypbMLW (adQt,nminx,rmnaxXx,M) 
g 方 程 中 的 常数 : a 

#s 时 间 步 长 : dt 

g 空 间 节 点 个 数 : n 

g% 求 解 区 间 的 左 端 : minx 

g% 求 解 区 间 的 右 端 : maxx 

gs 时 间 步 的 个 数 : MX 
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g 求 解 区 间 上 的 数值 解 : 


format 1ong， 


Ph = (maxX-minx)y/(n-1L): 
for J=1: (n+2xM) 
u0(j) = IniU(minx+(Jj-M-1)xh) ， 
end 
ul = UuO: 
for Kk=1:M 
for =Kk+1:n+2x*xM-K 
tmpU1 = -Qtxax(u0o(i+lt)-u0(i))/nh/2+(u0(I+1L)+uo(I))V2; 
tmpU2 = -QLxax(u0(i)-u0(i-L))vnhv2+(ua0(i)+u0o(i-1))72， 
ul(i) = -Qtxrax(tmoU1-tmpU2) /ynh+u0(I) ， 
endq 
u0 = UL:; 
endQ 


U = ul((M+1l):(M+n) ) ， 
format Short 


拉克 斯 - 温 德 洛 夫 多 步 格式 求解 一 维 对 流 方程 应 用 实例 。 用 拉克 斯 - 温 德 洛 
夫 多 步 格式 求解 下 面 的 初 值 问题 : 


OU 0U 
到 +=0 三 (-coco),!>0 
&U(x,O0)=U7(O xxE (co,co) 
其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 扩 0.5 ( 即 100 个 


时 间 和 步 ) 时 的 zx 随 x 的 分 布 图 。 


10x +1 一 0.1 乞 Xx 乏 0 
LU (OO =4-10x+1 0 乏 X 所 0.1 
0 其 余 
解 ， 先 建立 一 个 名 为 IniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 
function ux = IniU(X) 
format 1ong; 
If X<=0 
If xx >= -0.1 
UX = 10*(X+0.1): 
人 1 Se 
UX = 07 
end 
elSe 
IE X <= 0.1 
UX = -10x(X-0.1)， 
el1Se 
uUX = 0 
endq 
end 


然后 在 MATLAB 窗口 输入 下 列 命令 ， 
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>> U = peHyppMLW (1,0.005,101,0,1，100) 


用 拉克 斯 - 温 德 洛 夫 多 步 格 式 求 的 结果 如 图 16-11 所 示 : 








D 1 
"一 一 一 一 一 


0 











图 16-11 用 拉克 斯 - 坎 德 洛 夫 多 步 格式 求 得 的 当 *=0.5 时 的 u 值 
用 拉克 斯 - 温 德 洛 夫 多 步 格式 算出 的 结果 比较 不 错 ， 虽 然 左 边 有 点 小 波动 ， 
函数 的 高 度 和 宽度 都 保持 得 不 错 
16.2.1.7 “MacCormack 多 步 格式 
MacCormack 多 步 格式 的 算法 公式 为 ， 




















nm 
好; 一 2 三 
7 也 于 
+20oi 2)=0 
区 玉 了 了 
HP+1 刀 7 
共 7 一 万 (5 十 ) A++ zt 
十 -一 (人 一 2 )=0 
T 2 全 


其 中 T 为 时 间 步 长 ， 刀 为 空间 步 长 。 


功能 : 用 MacCormack 多 步 格 式 解 对 流 方程 
调用 格式 ，u = peHypbMC (a,dbn,minx,maxx,MD 
其 中 ，a: 方程 中 的 常数 ; 
dt: 时 间 步 长 
n: 空间 节点 个 数 ; 
minx， 求 解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 
M: 时 间 步 的 个 数 ; 
: 求解 区 间 上 的 数值 解 。 
MacCormack 多 步 格式 的 MATLAB 程序 代码 如 下 所 示 : 


function Uu = PeHyPbMC (avGt,n,minx, maxxy, MI) 
g 方 程 中 的 常数 : 总 
gs 时 间 步 长 : Gt 


494 四 知 条 条 


在 MATLAB 中 编程 实现 的 MacCormack 多 步 格式 的 函数 为 : peHypbMC 


但 是 初始 
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gs 空间 节点 个 数 : n 
g 求 解 区 间 的 左 端 : minx 
s 求 解 区 间 的 右 端 : maxx 
gs 时 间 步 的 个 数 : M 
g 求 解 区 间 上 的 数值 解 : u 


format 1ong: 


hn = (maxx-minx)y(n-1) 
for ]j=1: (n+2xM) 
u0(J) = IniU(minx+(Jj-M-L)*P) 7 
emnd 
ul = U0O: 
for K=1:M 
for =K+T:D+2xM-K 
tmeU1 = -Qtxax(u0(i+l)-u0o(Iz))Znru0(Ii) ， 
tmpU2 = -qtxax(u0(i)-u0(i-1))Vh+u0(iI-1): 
ul(i) = -Qtrxrax(tmpU1-tmpU2)7/n/2+r(ua0(i)+tmpU1L) 7 2， 
GD 
uO = ul:; 
enda 


U= ul((IM+1L):(M+n)) 
format Short 


MacCormack 多 步 格式 求解 一 维 对 流 方程 应 用 实例 。 用 MacCormack 多 步 
格式 求解 下 面 的 初 值 问题 : 


9 -0 Xe (-coco),1>0 
Of gox 
UV(z,0) =L(Cz) Xe (-co,co) 
其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01， 求 出 当 大 0.5 ( 即 100 个 


时 间 步 ) 时 的 xx 随 x 的 分 布 图 。 


10x+1 -0.1< xs 和 0 
UVCODO=4-10r+1 0<x 所 0.1 
0 其 余 
解 ， 先 建立 一 个 名 为 miU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


function UuXx = InIUI(X) 
fornmat Tong; 
If Xx<=0 
IE X >= -0.1 
UX = 10*(X+0.1) 
elSe 


emdQ 
elSse 
if x <= 0.1 
UX = -10*x(X-0.1) ; 
亿 1Se 


UX = 0:; 
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emnqa 
enqQ 
然后 在 MATLAB 窗口 输入 下 列 命 令 : 
>> U = beHypbMC (1,0.005,101,0,1,100); 
用 MacCormack 多 步 格式 求 得 的 结果 如 图 16-12 所 示 : 





0| -一 -一 -一 权 








01 
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到 16-12 ”用 MacCormack 多 步 格式 求 得 的 当 六 0.5 时 的 u 值 











MacCormack 多 步 格式 的 结果 与 拉克 斯 - 温 德 洛 夫 多 步 格式 求 得 的 结果 差不多 。 
16.2.2 ”二 维 对 流 方程 
二 维 对 流 方程 的 形式 如 下 所 示 : 


区 一 co<3y<+eof>0 ( ap 为 常数 ) 
Of OXx 090y 
如 果 给 定 初始 条 件 : 


U(xc yO0)=U(Xy) 一 ceo< 和 yy<+eco 
则 二 维 对 流 方程 的 通 解 为 : 
LUOxyI=LOXC-aty 一 pi) 一 co<yy<+cof>0 
下 面 介 绍 两 种 常见 的 求解 二 维 对 流 方程 的 拉克 斯 - 弗 里 德里 希 斯 格式 和 近似 分 裂 格 
式 。 
16.2.2.1 拉克 斯 - 弗 里 德里 希 斯 格式 
拉克 斯 - 弗 里 德里 希 斯 格式 的 形式 如 下 所 示 : 


7 十 1 形 玫 用 形 
2 一 一 (UL 十 7-LK 十 TH 十 11) 
4 


十 
了 


CQ 班 瑟 忆 阳 理 
站 一 玉 产 1 ) 士 7 (CE 一 MD 三 0 
其 中 7 为 时 间 步 长 ， 户 为 空间 步 长 。 
同一 维 对 流 方程 一 样 ， 二 维 的 拉克 斯 - 弗 里 德里 希 斯 格式 也 需要 进行 节点 的 延 拓 ， 延 
拓 的 方法 可 参看 程序 。 
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在 MATLAB 中 编程 实现 的 二 维 对 流 方程 拉克 斯 - 弗 里 德里 希 斯 格式 的 函数 为 ， 
peHypb2LEF 
| 能 : 用 拉克 斯 - 弗 里 德里 希 斯 格式 解 二 维 对 流 方程 的 初 值 问题 
调用 格式 : u= peHypb2LF (ab,dbnx,minx,maxxnyminy,maxyMD) 
| 其 中 ，a， 方程 中 的 常数 1 
b:， 方程 中 的 常数 2; 
dt:， 时 间 步 长 ; 
nx: X 方向 节点 个 数 ; 
minx: x 求解 区 间 的 左 端 ; 
maxx: X 求 解 区 间 的 右 端 ; 
ny: 了 方向 节点 个 数 ， 
| miny: y 求 解 区 间 的 左 端 
maxy: 了 求解 区 间 的 右 端 
| M: 时 间 步 个 数 ; 
u; 求解 区 间 上 的 数值 解 。 


拉克 斯 - 弗 里 德里 希 斯 格式 求解 二 维 对 流 方程 初 值 问题 的 MATLAB 程序 代码 如 下 打 


function U = PeHypb2LE (abydt,nx,minx,maxxyny,miny,maxy,M) 
g% 方 程 中 的 常数 1，a 
g 方 程 中 的 常数 2: b 
时间 步 长 ， qt 
g%X 方向 节点 个 数 ， mx 
gsX 求解 区 间 的 左 端 : minx 
sx 求解 区 间 的 右 端 : maxx 
g%y 方向 节点 个 数 :， nx 
sy 求解 区 间 的 左 端 : miny 
sy 求解 区 间 的 右 端 ， maxy 
8 时间 步 的 个 数 : M 
g 求 解 区 间 上 的 数值 解 : u 
format 1ong:; 
Phx = (maxX-minx)y/ (nx-1L) ， 
hy = (maxy-miny)/(ny-1):; 
for 1=1:nx+2xM 

for ]j=1: (ny+2*M) 

u0(i,j) = Ini2U(minx+(i-M-1)xhx,miny+(j-M-1)xhy) ; g 二 维 节点 延 拓 














UL = uO: 
for K=1:M 
for 工 =K+1 :nxXx+2x*M-K 
for ]j=Kk+1:ny+2xM-K 
ul(i, jj = (ua0(i+rl,J)+u0(i-1,j)+uo(i,j+l)+u0(i,j-1))74 
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-axaqLx(u0(i+l,Jj)-uo(i-1,))/2/nRXx ... 
-pxaQtxr(u0(izy jj+l)-u0(Iizy 了 -1l1))/Z2/ny:， 


emnQ 

uO = ul; 
endq 
uU = ul((M+1L):(M+nX)，(M+1) : (M+ny) ) 
format Short 


拉克 斯 - 弗 里 德里 希 斯 格式 求解 二 维 对 流 方程 应 用 实例 。 用 拉克 斯 - 弗 里 
德里 希 斯 格式 求解 下 面 二 维 对 流 方程 的 初 值 问题 : 

OU 0 9u 

一 一 十 -一 十 一 一 

Of or oO0y 


-(10x2+10y?) 


一 co<x,y<+ecof >0 


(xy.0O)=e X, yE (一 coyco) 

其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,， 空 间 步 长 取 0.01。 求 出 当 z=0.5 ( 即 100 个 
时 间 步 ) 时 的 & 随 xy 的 分 布 图 。 

解 : 先 建立 一 个 名 为 mi2U.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 


function Uxyv = Ini2U(X,Y) 
format 1ong; 
UXY = exXp(-10xXx*X-1LOxYyxy)， 


然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> u = peHypb2LF (1,1,0.005,101,0,1，101,0,1,100) ; 


初始 值 ( 即 : =0 时 ) 和 用 拉克 斯 - 弗 里 德里 希 斯 格式 求 的 结果 如 图 16-13 及 图 16-14 
所 示 : 














到 16-13 =0 时 的 u 值 到 16-14 7=0.5 时 的 u 值 























从 结果 的 对 比 可 以 看 出 ， 拉 克 斯 - 弗 里 德里 希 斯 格式 算出 的 结果 非常 好 。 


16.2.2.2 ”近似 分 裂 格式 
近似 分 裂 格 式 的 形式 如 下 所 示 : 
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G 
2 _ ， 有 于 玉 
2 二 天 一 一 (7 
尖 7 JHLK 一 
7 27.。 
1 ] 
nt DT 了 
天 十 2 2 
1 一 一 二 0 一 
2 》 


其 中 z 为 时 间 步 长 ， 瑚 为 空 


3 间 步 长 。 


CC 
公关 1 十 一 一 一 


工 


VD 十 7 


了 
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os 
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?7 
(4 


天 亡 7 
一 2 十 


偏 微分 方程 的 数值 解法 


严 玫 
一 2247 十 到 产 IK) 


工 


在 MATLAB 中 编程 实现 的 二 维 对 流 方程 拉克 斯 - 弗 里 德里 希 斯 格式 的 函数 为 ， 
peHypb2FL 


用 拉克 斯 - 弗 里 德里 希 斯 格式 解 二 维 对 流 方 程 的 初 值 问题 
调用 格式 ，u = peHypb2FL (ab,dbnx,minx,maxx,nyminymaxyMD) 


其 中 ， 3 


方程 中 的 常数 1; 


dt: 时 间 步 长 


DX : 入 方向 节点 个 数 ; 


minx: X 求解 区 间 的 左 端 
maxx: x 求 解 区 间 的 右 端 ; 


ny: y 方向 节点 个 数 ; 


miny:， y 求解 区 间 的 左 端 
maxy: y 求解 区 间 的 右 端 ; 


ME 人 


拉克 斯 - 弗 里 和 大 里 希 斯 格式 求解 二 维 对 流 方程 初 值 问题 的 MATLAB 程序 序 代码 如 下 所 


function Uu = 
g 方 程 中 的 常数 1: a 

g 方 程 中 的 常数 2: b 

gs 时 间 步 长 :Qt 

gX 方向 节点 个 数 : nx 

%X 求解 区 间 的 左 端 : minx 
gx 求解 区 间 的 右 端 : maxx 
g%y 方向 节点 个 数 : nx 

gsy 求解 区 间 的 左 端 : 
sy 求解 区 间 的 右 端 : 
gs 时 间 步 的 个 数 : M 
% 求 解 区 间 上 的 数值 解 : u 


format ong:; 


mimY 


InaXY 





hx = (maxx-minx)y/ (nx-1) ， 
hy = (maxy-miny)/(ny-1); 
for =1:mnXx+4x*M 
for Jj=1: (ny+4x*M) 
uUo(i,J) = 


Ini2U(minx+ (1-2x*M-1L)xhx,miny+(j-2xM-1)xhy)y， 


PeHYypPb2FL (apb,dat,nxyminx,maxx,ny,miny,maxy,M) 


g 节 点 的 延 拓 
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j 





生计 语言 常用 算法 程序 集 
endq 
enaQ 
U1 = oO: 
for Kk=1:M 


for 1=2xk+1:nxXx+4xM-2xK 
for ]j=2x*K-1:ny+4xM-2xK+2 
tmoUli, jj = ul(i, 林 ) =- axrdGtx(u0(i+l,]j)-u0(i-l,))V2/nX + ... 
(axqt/nx)^2x(u0l(i+1, JJ)-2x*xu0(i,Jj)+uo(I-1, 林 ))V/2:; 
ena 
end 
for 工 =2x*K+T:DX+4xM-2xK 
Eor 了 =2xK+T:DX+4xM-2x 上 K 
ultlti, 林 ) = tmpU(i, jj) - bxqtx(tmpU(i,jJ+L)-tmpU(i,Jj-1))V2/nhy + ..， 
(pxatyhy)^2x(tmoU(i,j+l)-2xcmpU(i,j)+tmpU(I ,jj-1))7/2; 


end 
U= ull((2*M+1):(2xM+nX)，(2xMt+1):(2*M+nY) ) ， 
fEormat Short 


近似 分 裂 格式 求解 二 维 对 流 方程 应 用 实例 。 用 近似 分 裂 格式 求解 下 面 的 初 
值 问题 ; 


OU OU 9 
到 去 到 一 co<2y<+ecof>0 
1 六 0) 一 er0dOe+I07 ) x ye (Ceo,co) 


其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01。 求 出 当 *=0.5 ( 即 100 个 
时 间 步 ) 时 的 xx 随 x*, y 的 分 布 图 。 
解 ， 先 建立 一 个 名 为 Ini2U.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


function Uxy = Ini2U(X,Y) 
format 1ong ; 
UXY = exXxP(-10*XxX-10xyxy) 7 





然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> U = PeHypb2FL (1,1,0.005,101,0,1，101,0,，1,，100) ， 


用 近似 分 裂 格式 求 的 结果 如 图 16-15 所 示 








0 0 


图 16-15 ”用 近似 分 裂 格式 求 得 的 在 求解 域 上 的 当 扩 0.5 时 的 场 函数 值 图 
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近似 分 裂 格式 也 是 一 种 不 错 的 格式 ， 其 结果 也 非常 接近 理论 值 。 





国 世 区 | 地 物 线 偏 微分 方程 


在 实际 应 用 中 遇 到 的 抛物 线 偏 微分 方程 ( 后 面 也 有 简称 为 抛物 方程 ) 主 要 是 扩散 方程 ， 
扩散 方程 有 很 强 的 物理 背景 ， 例 如 不 同 浓度 物质 之 间 的 扩散 过 程 、 热 传递 过 程 、 波 传播 等 
过 程 都 可 用 扩散 过 程 来 描述 。 因 此 ， 本 节 以 扩散 方程 和 对 流 扩散 方程 为 例 介 绍 扩散 方程 的 
几 种 常用 差分 格式 。 


16.3.1 扩散 方程 
扩散 方程 是 最 简单 的 抛物 线 偏 微分 方程 ， 其 形式 如 下 所 示 ， 


2 
汪 -9 XE (-eo,eo),! > 0,c 为 常数 
如 果 给 定 初始 条 件 ; 
ut0)=U(CD zxe (ooo) 
则 扩散 方程 的 通 解 为， 


0) 
4 LUCEJdE xyxe (coco,r>0 





一 [ 1 
L(XD 人 -7 上 e 
在 抛物 线 偏 微分 方程 的 求解 差分 格式 中 ， 隐 式 格式 比较 居多 ， 因 此 下 面 的 格式 中 比较 
重要 的 是 求解 扩散 方程 边 值 问题 的 几 种 隐 式 格式 。 
16.3.1.1 显 式 格式 
显 式 格式 的 形式 如 下 所 示 ， 








C 
一 wh 一 207 + TD)=0 


其 中 7 为 时 间 步 长 ， 疡 为 空间 步 长 。 
显示 格式 很 简单 ， 但 是 其 精度 很 差 ， 而 且 求 得 的 解 容 易 出 现 振荡 ， 这 可 以 从 例题 中 看 
出 来 。 
显 式 格式 用 来 求 如 下 形式 的 抛物 问题 : 
2 
和 = XGE (-co,co),f 之 0 
U(X,O0)=L7(C) XeE (co,co) 
在 MATLAB 中 编程 实现 的 扩散 方程 显 式 格式 的 函数 为 ，peParabExp 
功能 ;用 显 式 格式 解 扩散 方程 的 初 值 问题 
调用 格式 :， u = peParabExp(c,dtn,minx,maxx,MD) 
其 中 ，c， 方程 中 的 常数 ; 
国生 dt:， 时 间 步 长 ; 


| 
1 
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显 式 格式 求解 扩散 方程 初 值 问题 的 MAILAB 程序 代码 如 下 所 示 : 





语言 常用 算法 程序 集 
n: 空间 节点 的 个 数 ; 
minx， 求 解 区 间 的 左 端 ; 
maxx: 求解 区 间 的 右 端 ; 
M:， 时 间 步 个 数 ; 
u: 求解 区 间 上 的 数值 解 。 




















function U = peParabExp(tc,dGtnminx,maxxyM) 
g 方 程 中 的 常数 : c 

g% 时 间 步 长 : Gt 

g% 空 间 节 点 个 数 , nm 

# 求 解 区 间 的 左 端 : minx 

g 求 解 区 间 的 右 端 : maxx 

g 时 间 步 的 个 数 ， KM 

g% 求 解 区 间 上 的 数值 解 : u 


format ong:; 











中 = (maxx-minx)y/y (nn-1) ， 
for Jj=1:(n+2x*M) 
u0() = PrIniU(minx+(j-M-1)xh) ; g 节 点 延 拓 
emnq 
UL = unO0:; 
for 上 = 工 :M 
Eor 工 =K+1:n+2xM-K 
ul(i) = Qtxrcx(u0(i+1l)-2xu0(i)+u0(i-1L)) /nnh+ruco(I) ， 
end 





Uu = ul((M+1):(M+n) ) : 
format Short y， 


显 式 格式 求解 扩散 方程 应 用 实例 。 用 显 式 格式 求解 下 面 扩 散 方程 的 初 值 


问题 : 


时 间 


502 


ou 0 和 
8 Dx? 
(xz,O0)=SinxX XE (一 co,co) 

其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01。 求 出 当 :=0.5 ( 即 100 个 

步 ) 时 的 zx 随 x 的 分 布 图 。 

解 ， 先 建 立 一 个 名 为 PrIniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 


ftunction UX = PrIniU(X) 





一 co<X<+eof>0 


formatr 1ong: 
UX = SInf(X) ; 


然后 在 MATLAB 窗口 输入 下 列 命 令 : 


>> Uu = peParabExp(1,0.005,101,0,1，100) 








儿 芝 有 多 
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用 显 式 格式 求 得 的 结果 如 图 16-16 所 示 : 


10212 























ad 














































































































.8 L .1 1 1 1 1 . 4 1 
岂 nD1 02 03 04 .05 06 07 08 09 1 





























司 16-16 例 16-12 用 显 式 格式 求 得 的 当 六 0.5 时 的 在 求解 域 上 的 场 函 数值 图 


























数值 结果 振荡 得 非常 厉害 ， 说 明显 式 格 式 在 这 种 条 件 下 不 稳定 。 


16.3.1.2” 跳 点 格式 
跳 点 格式 的 形式 如 下 所 示 ， 


妨 十 上 天 
Hi 一 玉 / 
了 了 天 用 有 下 _ 
一 一 一 一 二 CH 一 226 +27D)=(0 
开 严 


严 十 1 十 了 = 偶数 ,= 0,1…… 尹 


1341 网 Ce 
人 7 十 | P+! 7 十 1 

一 五 Cj+L 一 2207 +2a)=0 
户 


和 
于 十 [十 了 = 奇数 ,= 0,1……, 尹 
其 中 7 为 时 间 步 长 ， 疡 为 空间 步 长 。 


跳 点 格式 其 实 也 是 一 种 显示 格式 ， 跳 点 格式 用 来 求 如 下 形式 的 抛物 问题 ; 





汉 -c2 XE (-co,co),[ 之 0 


U(X,O) = (CC) Xe (-co,co) 


功能 : 用 跳 点 格式 解 扩散 方程 的 初 值 问题 
调用 格式 : u = peParabTD(c,dtnminx,maxx,MD) 
其 中 ，c: 方程 中 的 常数 ; 

dt， 时 间 步 长 

n: 空间 节点 个 数 ; 

minx: 求解 区 间 的 左 端 ; 

maxx: 求解 区 间 的 右 端 ; 

M: 时 间 步 的 个 数 ; 

u: 求解 区 间 上 的 数值 解 。 


“在 MATLAB 中 编程 实现 的 扩散 方程 跳 点 格式 的 函数 为 ，peParabTD 


本 机 生生 和 生生 和 生生 生生 生生 生生 生生 


才 才 可 可 503 





1 TAB 语言 常用 算法 程序 集 


跳 点 格式 求解 扩散 方程 初 值 问题 的 MATLAB 程序 代码 如 下 所 示 : 


function U = peParabTD(tcy dt,n,minxymaxx,M) 
gs 方程 中 的 常数 : <c 

sg 时 间 步 长 ,Qt 

gs 空间 节点 个 数 : n 

g% 求 解 区 间 的 左 端 ,minx 

gs 求 解 区 间 的 右 端 : maxx 

g 时 间 步 的 个 数 : NM 
gs 求解 区 间 上 的 数值 解 : 


ftormat 1ongy; 








hn = (maxx-minx) yn-1I) :; 
u0(1) = 1bu:; 
uo tn) = bu:; 


for jj=2:n-1 


uUu0(]) = PrIniU(minx+(]J-1)*Dh)， 
enqaQ 
ulL = UuO0:， 
for Kk=1:M 
for 1=2:mn-1 
It modql(n+i,2) == 0 
ul(i) = u0(Ii) + cxatx(u0(i+1l) - 2x*xu0(i) + u0(I-1))/Zn/n; 
ifti> 2 ， 
ul(i-1) =( u0(i-1) + cxradtxr(ul(i) + ul(z-2))V/nhAn )7/ (1 + 
2xCxdtrVh/Anh) 
enaQ 
end 
end 
u0 = ul 
enaQ 


U = ul((M+1):(M+n)) : 
format Short : 


纪 罗 [到 k 放 一 跳 点 格式 求解 扩散 方程 应 用 实例 。 用 跳 点 格式 求解 下 面 扩 散 方程 的 初 值 


问题 : 


9 _ 0 和 
8 2 
2U(X,O)=SinX XE(-eo,oco) 
其 中 时 间 步 长 取 0.005， 求 解 区 间 为 [0,1]， 空 间 步 长 取 0.01。 求 出 当 *=0.5 ( 即 100 个 
时 间 步 ) 时 的 二 随 x* 的 分 布 图 。 
解 : 先 建 立 一 个 名 为 PrmiU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


一 co<X<+ 上 eof>0 


function uUux = PrInIUI(X) 
fornmat ong : 
UX = Sin(x) : 


然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> u = DPeParabTD(1,0.005,101,0,，1,，100) 
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用 跳 点 格式 求 得 的 结果 如 图 16-17 所 示 : 
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图 16-17 例 16-13 用 跳 点 格式 求 得 的 当 扩 0.5 时 的 在 求解 域 上 的 场 函数 值 图 














数值 结果 振荡 得 非常 厉害 ， 说 明 跳 点 格式 在 这 种 条 件 下 也 不 稳定 


16.3.1.3 隐 式 格式 
隐 式 格式 的 形式 如 下 所 示 : 


HL 一 1 
7 7 十 1 Pa 十 1 
- 记 (3 -2 +U)=0 


7 
其 中 7 为 时 间 步 长 ， 瑚 为 空间 步 长 。 
隐 式 格式 的 每 一 步 都 要 求解 一 个 线性 方程 组 ， 即 它 并 不 能 显 式 地 从 当前 值得 到 下 一 个 
时 间 步 的 函数 值 , 但 是 在 每 一 个 时 间 步 中 , 边界 条 件 都 不 变 ， 也 就 是 端点 处 的 函数 值 不 变 。 
隐 式 格式 用 来 求 如 下 形式 的 抛物 问题 : 





OU D2 

-一 三 C 一 一 XeE[x]lr>0 
3 [nzp] 
&U(0t 三 器 1>0 


UL， 门 一 1 1>0 
U(X,0O)=L7 (CC) xxe [ba 总 ] 


在 MATLAB 中 编程 实现 的 扩散 方程 隐 式 格式 的 函 数 为 peParabImp 
功能 : 用 隐 式 格式 解 扩 散 方程 的 初 值 问题 
| 调用 格式 ; u = peParabImp(c,dbn,minx,maxx,Iburbu,MD) 
| 其 中 ，c: 方程 中 的 常数 ; 
| dt: 时 间 步 长 ; 
n， 空间 节点 个 数 
minx: 求解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 
lbu: 左边 界 条 件 ; 
rbu: 右边 界 条 件 ; 
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M， 时 间 步 的 个 数 ， 
u: 求解 区 间 上 的 数值 解 。 


隐 式 格式 求解 扩散 方程 初 什 问 题 的 MATLAB B 程序 代码 如 下 所 示 ， 


function u = PeParabImp (cdGt,n,minx,maxx, Lpbu,rbu, Mi) 
g 方 程 中 的 常数 c 

s 时 间 步 长 ， dt 

g 空 间 节 点 个 数 : mn 

g% 求 解 区 间 的 左 端 : minx 
本 maXX 

g% 左 边界 条 件 : 

g% 右 边界 条 件 ， 

时间 步 的 个 数 M 

gs 求 解 区 间 上 的 数值 解 : u 
format 1ong:; 

nmn = (maxX-minx)y/y(n-1L) 
u0(1) = 1bpur; 

u0O (n) = tbu:; 

for J=2:mn-1 


u0(J) = PrIniUl(minx+(J-1)xh) ; 

enaQ 

ul = u0:; 

for K=1:M 
有 = Zeros (m -2 n-2) : 
cb = - transposel(u0(2:(n-1))):; 
cb(1) = cp(1) - Qtxcxlbu/nh/ nr; 
cbp(n-2) = cbtn-2) - QtxCcxrrbu/nh/ ny; 
Al(1,1) = -2xaGQtxCVnh/n - 工 ; 


A(1,2) = QLxC/nhvn ， 
for 1=2:mn-3 


Ali,i-1) = QLxc/AnAn :， 
Ai,i) = - 2xqQtxrcAhn -1 
A(ivi+l) = GQLxrc/nAnh 
enmdQ 
An-2,n-2) = -2xdqtxc/nh/nh -1; 
An-2,n-3) = QLxCc/n/n; 
2:(n-1)) = ANcb; 过 求解 方程 组 得 到 当前 时 间 步 的 函数 值 
u0O = ul: 
enaQ 
U = UL; 


format Short : 


隐 式 格式 求解 扩散 方程 应 用 实例 。 用 隐 式 格式 求解 下 面 扩散 方程 的 初 什 


问题 


506 色 基因 
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3 9 一 cc<xX<+eof>0 
Of 0x? 
xz,O0)=Sinx xe(0.1) 
zu(0, 站 =0 

&(,D= 工 


其 中 时 间 步 长 取 0.005， 空 间 步 长 取 0.01。 求 出 当 娘 0.5 ( 即 100 个 时 间 步 ) 时 的 ， 随 
大 的 分 布 图 。 
解 : 先 建立 一 个 名 为 PrIniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 





function UxX = PrImniU(X) 
format 1ong: 
UX = Sin(X) ; 


然后 在 MATLAB 窗口 输入 下 列 命令 ， 
>> Uu = pepParabImp(1I,0.005,101,0,1,100) 


用 隐 式 格式 求 得 的 结果 如 图 16-18 所 示 : 





o6 上 一 

中 一 

0D3 上 

口 2 上 

tk ) 1 1 .1 1 1 1 1 

D 0.1 0.> 0.3 .4 0.5 0.6 D7 0.8 0.9 1 
图 16-18 ”用 隐 式 格式 求 得 的 当 *=0.5 时 的 在 求解 域 上 的 场 函数 值 图 

结果 是 一 条 比较 稳定 的 直线 。 


16.3.1.4 克拉 克 - 尼 科 尔 森 格式 
克拉 克 - 尼 科 尔 森 格式 的 形式 如 下 所 示 : 


2 一 1/ C 
了 了 如 十 ] 十 ] 瑚 十 | 























7 
其 中 7 为 时 间 步 长 ， 产 为 空间 步 长 。 
殉 拉克- 尼 科 尔 森 格式 用 来 求解 如 下 形式 的 抛物 问题 ， 


OU D2x 

-一 =C 一 一 XeEfoxz]l,r>O0 
隐 一 3 [xz] 

& 人 (Tt 三 1>0 

2U(X2 1 一 12 1>0 


utO0)=COD) xxe[oxo] 
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RE 





在 MATLAB 中 编程 实现 的 扩散 方程 克拉 克 - 尼 科 尔 森 格式 的 函数 为 : peParabKN 
功能 :用 克拉 克 - 尼 科 尔 森 格式 解 扩 散 方程 的 初 值 问题 
调用 格式 :， u = peParabKN (c,dbn,minx,maxx,Iburbu,MD 
其 中 ，c: 方程 中 的 常数 ， 
dt， 时 间 步 长 ， 
n:， 空间 节点 个 数 ; 
minx， 求 解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 ; 
lbu: 左边 界 条 件 ; 
rbu: 右边 界 条 件 ; 
时 间 步 的 个 数 ， 
ul: 。 未 角 区 间 上 的 数值 解 


志 拉克 _ 尼 利 尔 表格 式 求解 扩散 方程 的 初 值 问题 的 MATLAB 程序 代码 如 下 所 示 ， 


function u = peParabKN(cyGt,nrminx,maxxy, bu,zbu,M) 


g% 方 程 中 的 常数 ;< 


g% 时 间 步 长 ;qt 


空间 节点 个 数 : mn 
gs 求解 区 间 的 左 端 : minx 
gs 求解 区 间 的 右 端 : maxx 
g% 左 边界 条 件 : 1bu 
g 右 边界 条 件 ，rbu 
gs 时 间 步 的 个 数 : M 
sg 求解 区 间 上 的 数值 解 : u 
format 1ong; 
= (maxXx-minx)y (nmn-1) : 
(1) = 1buy 
(n) = Lpbuy 
for j=2:n-1T 
u0(j) = PrIniU(minx+ (]J-1)*hTDn) ， 


有 = Zerogs (nn-2,，n-2) 
CDP = Zeros(n-2 ,1) 


cb(1) = -u0(2) -(u0(3)-2*u0(2)+u0(1))*GExcxy1lbu/nh/n/2 - Qt*c*1lbu/n/ ny/V2; 


cb(tn-2) = -u0(n-1) -(u0tn)-2x*u0(n-1)+u0(n-2))*dqtxcxlbu/hVn/ 2 - 
Qt*Ccxrbu/h/Vh/ 2; 


cb(i) = -u0(i+1) -(u0(i+2)-2x*u0(i+l)+u0(i))*xQacxcxlTpbu/ nnh/V 2 


AL,1) = -GExcAhAh -1 
ARA(1,2) = QELxCAhVAnhVA2 
for TI=23:n-3 

Ai i-1) = GLxc/nVnV2 
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Aii) = - Qtxc/n/nh -1 : 
和 Al(I，i+l) = QtxcAhAh7/2 
enmaQq 
An-2a,n-2) = -Qtxc/hAn -1:; 
An-2,n-3) = Qtxc/nh/nhy2， 
ul(2:(n-1)) = ANcb; 
UuU0O = ulL'; 
end 
U = ul' 


format Short : 








克拉 克 - 尼 科 尔 森 格式 求解 扩散 方程 应 用 实例 。 用 克拉 克 - 尼 科 尔 森 格式 


求解 下 面 扩散 方程 的 初 值 问题 


2 -9 一 co<X<-:eof>0 
01 0x” ， 
(xz,0)=Sinxz XeE(0,]) 
2U(0, 力 =0 

&( 人 (Tt 站 =] 


其 中 时 间 步 长 取 0.005， 空 间 步 长 取 0.01。 求 出 当 -0.5 ( 即 100 个 时 间 步 ) 时 的 到 随 


才 的 分 布 图 。 


解 ， 先 建立 一 个 名 为 PrIniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


function uUxX = PrIniU(X) 


format 1ong; 
UX = Sin(Xx)， 


然后 在 MATLAB 窗口 输入 下 列 命令 ， 


>> U = peParabKN(1,0.005,101,0,1,0,1,100) 


用 克拉 克 - 尼 科 尔 森 格式 求 得 的 结果 如 图 16-19 所 示 : 
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图 16-19 例 16-15 





克拉 克 - 


已 科 尔 森 格式 求 得 的 当 六 0.5 时 在 求解 域 上 的 场 函数 值 图 





数值 结果 和 隐 式 格式 得 出 的 结果 是 一 样 的 。 
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16.3.1.5 “加 权 隐 式 格式 
加 权 隐 式 格式 的 形式 如 下 所 示 : 


全 co- 2291HoD)+d -BC 一 207 + 人]=0 (0<6<D 

其 中 7 为 时 间 步 长 ， 闫 为 空间 步 长 。 

加 权 隐 式 格式 用 来 求解 如 下 形式 的 抛物 问题 : 
OU 9 
到 Dx2 
& 人 (2 1 二 2 1>0 


XeEe[xxz],t>0 


LU(X2:1) 一 U2 1>0 
&(Cx:0) 二 LO xc [xz2] 


在 MATLAB 中 编程 实现 的 扩散 方程 加 权 隐 式 格式 的 函 数 为 peParabWegImp 
功能 : 用 加 权 隐 式 格式 解 扩 散 方程 的 初 值 问题 
调用 格式 ，u = peParabWegImp (cdtn,minx,maxx,lburbu,MD) 
| 其 中 ，c: 方程 中 的 常数 ; 
dt， 时 间 步 长 
n: 空间 节点 个 数 ; 
minx， 求 解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 
Ibu: 左边 界 条 件 ， 
rbu: 右边 界 条 件 ; 
M， 时间 步 的 个 数 ， 
u: 求解 区 间 上 的 数值 解 。 


和 全 和 


加 权 隐 式 格式 求解 扩散 方程 初 值 问 是 题 的 MATLAB 程序 代码 如 下 所 示 : 


function Du = peParabWegImp (c,sitaydt,nminx,maxx, LIburrpu,M) 
g 方 程 中 的 常数 ，c 

gs 时 间 步 长 : at 

gs 空间 节点 个 数 : mn 

gs 求解 区 间 的 左 端 : minx 

求解 区 间 的 右 端 :， maxx 

gs 左边 界 条 件 : 1bu 

g 右 边界 条 件 ， rbu 

时间 步 的 个 数 : M 

sg 求解 区 间 上 的 数值 解 : u 


format ongy; 





nn = (maxx-rminx)y (On-1) 
u0(1) = lbuy 
u0O(n) = Tbu: 


for J=23:n-1 


510 多 入 笋 





偏 微分 方程 的 数值 解法 





u0(]) = PrJInIU(minx+ (了 j- 工 ) xn) 


ul = UuO: 
for K=1:M 

有 = Zeros (nn-2,n-2); 

cb = Zeros(n-2,，1); 

cbl(1l) = -u0(2) -(1 - Sita)x(ua0(3)=-2x*u0l(2)+u0(1L))xatxcx1lpuaynAn7 2 
- SItaxaQtxcxlbu/nvn; 

cb(n-2) = -u0(n-1l) -(1 - 

Sita)*x(u0tn)-2xu0(n-1)+u0(n-2))*dtx*rcxrlbpunnh/V2 

- Sitaxdtxcxrbuvh/Tn， 

for 1=2:n-3 
cbl(i) = -u0(i+l) -(1 - 

Sita)x(u0(Ii+2)-2xu0(i+l)+u0(I))x*dqtxcx1lbu/hvhy 

enaQ 

Al(1,1) = -2xSjitaxdtxrcvhAh -1; 

和 (1 2) = SitaxaQtxcAnAn : 

for 1=2:Dn-3 
ARA(i，i-1) = SitaxdqtxcAnhAnh : 
Ai i) = - 2xsitaxqtxc/hAnh -1 :， 
ARA(i,i+l) = SItaxQtxcAhnhAh ， 

emnGQ 

ul(2:(n-1)) = ANcp; 

u0 = uly; 


U = ul; 
fotrrmat Short : 


加 权 隐 式 格式 求解 扩散 方程 应 用 实例 。 用 加 权 隐 式 格式 求解 下 面 扩散 方 
程 的 初 值 问题 ; 


2 一 co<XY<+co:f>0 
Of bx ， 
&(xz,O)=Sinx Xe(0,]1) 

&(0,D=0 

&U(, 放 =1 


其 中 时 间 步 长 取 0.005， 空 间 步 长 取 0.01， 求 出 当 姑 0.5 ( 即 100 个 时 间 步 ) 时 的 二 随 
X 的 分 布 图 ， 比 较 6 取 不 同 值 时 的 解 。 
解 : 先 建立 一 个 名 为 PrImniU.m 的 MAILAB 文件 ， 输 入 如 下 内 容 


function uUx = PrIniU(X) 
format 1ong; 
uX = Sin(X) : 


然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> U = PeParabWwegImpP (1,0.5,0.005,101,0,1,，0,1,，100) 


用 加 权 隐 式 格 式 ( 9=0.5 ) 求 得 的 结果 如 图 16-20 所 示 : 
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图 16-20 


>> U = 


用 加 权 隐 式 格 式 ( 6=0.1 ) 求 得 的 


PeParabWegImP 


了 





0Q.9 上 


08 
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例 16-16 用 加 权 隐 式 格式 ( 8 = 0.5 ) 求 得 的 当 @ = 0.5 时 在 求解 域 上 的 场 函 数值 图 





(1,0.14,0.005,101,0.,1,0,1,，100) 
结果 如 图 16-21 所 示 : 





1 一 











加 | 了 

0.8+ 

0.7 

06 上 Ai 

05 上 7 

D4 

0.3 

0D.2 上 

日 T 上 

人 访 砚 0 605 6 0 05 0 
图 16-21 例 16-16 用 加 权 隐 式 格式 ( 0 = 0.1 ) 求 得 的 当 上 ! = 0.5 时 在 求解 域 上 的 场 函 数值 图 
>> u = peparabWegImp (1,0.9,0.005,101,0,1,0,1,100) 


用 加 权 隐 式 格 式 ( 6 =0.9 ) 求 得 的 结果 如 图 16.22 所 示 : 





1 王 


.9 


0.9 上 











图 16-22” 例 16-16 用 加 权 隐 式 格式 ( 6 = 0.9 ) 求 得 的 当 ! = 0.5 时 在 求解 域 上 的 场 函数 值 图 


例 16-16 的 稳 态 解 ( 即 扩散 达到 稳定 状态 2 %z - 


权 隐 式 格式 算得 的 结果 差别 不 大 ， 
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) 为 &=x， 通 过 取 不 同 的 6 值 ， 用 加 


过 到 和 故 的 时 间 不 一 样 而 已 。 
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16.3.2 ”对 流 扩散 方程 


对 流 扩 散 方程 是 将 对 流 方程 和 扩散 方程 组 合 在 一 起 ， 其 形式 如 下 所 示 ， 
0 0 9 入 at 
到 +4 了 -3 XE (-co,co),f 之 0 ( ap 为 常数 ) 
将 求解 对 流 方 程 的 差分 格式 和 求解 扩散 方程 的 差分 格式 组 合 起 来 可 以 得 到 各 种 求解 
对 流 扩散 方程 的 差分 格式 ， 下 面 介 绍 两 种 常用 的 指数 型 格式 和 萨 马 尔 斯 基 格式 。 


16.3.2.1 指数 型 格式 
旨 数 型 格式 的 形式 如 下 所 示 ， 
2 一 中 


Q ，n Pa Pa 、 ， 国 
二 Url 一 0 一 本 cotht5p) 人 Ci 一 20j 二 D=0 


其 中 z 为 时 间 步 长 ， 疡 为 空间 步 长 。 
旨 数 格式 是 一 种 显示 格式 ， 当 然 也 需要 进行 节点 延 拓 。 
指数 型 格式 用 来 求 如 下 形式 的 抛物 问题 ; 
OU OU D 筷 
到 +4 了 -03 大 所 (一 co co),! 0 
(xz,0)=L7 (CO XE (一 co co) 


| 在 MATLAB 中 编程 实现 的 对 流 扩散 方程 指数 型 格式 的 函数 为 ，peDKExp 
功能 :用 指数 型 格式 解 对 流 扩散 方程 的 初 值 问题 
调用 格式 : u= peDKExp(ab,dtn,minx,maxx,MD) 
其 中 ，a: 方程 中 的 常数 1; 

b: 方程 中 的 常数 2; 

dt:， 时 间 步 长 ; 

n: 空间 节点 个 数 ; 

minx: 求解 区 间 的 左 端 ; 

maxx: 求解 区 间 的 右 端 ; 

M: 时 间 步 的 个 数 ， 

u: 求解 区 间 上 的 数值 解 。 


旨 数 型 格式 求解 对 流 扩散 方程 初 值 问 题 的 MATLAB 程序 代码 如 下 所 示 : 


function U = PeDKExXp (av bat,nvminxy, maxx,，M) 
g 方 程 中 的 常数 1: a 

g 方 程 中 的 常数 2: b 

g 时 间 步 长 : dat 

sg 空间 节点 个 数 : mn 

g 求 解 区 间 的 左 端 : minx 

求解 区 间 的 右 端 ， maxx 

s 时 间 步 的 个 数 : KM 
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g% 求 解 区 间 上 的 数值 解 , ua 
format 1ong ; 
Ph = (mnaxx-minx)y (On-1) ， 
for J=1:(n+2xM) 
u0(j) = DKIniU(minx+ (J-M-1L) xnh) ; gs 节点 延 拓 
enqQ 





ul = U0， 
coff = (explax*rn/2/Pp)+exp(-axh72/p))/ (exp(axh/2/DpD)-exb(-axh/2/p) ) 
cofft = QLxcoff*xaxh/A21: 
for K=1:M 

for 1=K+1:mn+2xM-K 

ul (I) = 
coftf*(u0(i+l)-2xu0(Ii)+uo(I-1))+axraQtx(u0o(i+l)-u0(Ii-1))vnh/v2+u0(IiI) 
enmd 


u = ul((M+1L):(M+n) ) : 
format Short 


指数 型 格式 求解 对 流 扩散 方程 应 用 实例 。 用 指数 型 格式 求解 下 面 对 流 扩 
散 方程 的 初 值 问题 : 


Dr Dr 9 和 4 
一 一 十 一 一 二 -一 一 
0f Dr 0Dx? 
&OCO) = 和 xeE(0,D 
其 中 时 间 步 长 取 0.005， 空 间 步 长 取 0.01， 求 出 当 扩 0.5 ( 即 100 个 时 间 步 ) 时 的 xz 随 
万 的 分 布 图 。 
解 : 先 建立 一 个 名 为 DKIniU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 : 


XE (一 co,co), 之 0 


function ux = DKIDiIUI(X) 
format ongSy; 
UX = X* 共 7 


然后 在 MATLAB 窗口 输入 下 列 命 令 : 
>> U = peDKExp (1,1,0.005,101,0,， 1 100) 


用 指数 型 格式 求 得 的 结果 如 图 16-23 所 示 : 


2.5 








和 4 1 、 1 ， 1 人 1 _ 
0 01 02 03 964 05 06 Br 08 09 了 











图 16-23 ” 倒 16-17 用 指数 型 格式 求 得 的 当 ! = 0.3 时 在 求解 域 上 的 场 函 数值 图 
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16.3.2.2 ” 萨 马 尔 斯 基 格 式 
萨 马 尔 斯 基 格 式 的 形式 如 下 所 示 : 


于 开 


CI 一 227 二 VD 
十 一 (2 一 广 1) 一 2 


= 人 (0 
2 
7 忆 1+ 史 忆 





其 中 为 时 间 步 长 ， 产 为 空间 步 长 。 

萨 马 尔 斯 基 格 式 用 来 求 如 下 形式 的 抛物 问题 : 
OU 9 _ 59- 玉 
到 Dx 5 
U(x,O0)=L7 (OO XE (一 co,co) 


在 MATLAB 中 编程 实现 的 对 流 扩 散 方 程 萨 马尔 斯 基 格 式 的 函 函数 为 peDKSam 
功能 : 用 萨 马 尔 斯 基 格 式 解 对 流 扩散 方程 的 初 值 问题 
调用 格式 : u= peDKSam (ab,dbn,minx,maxx,MD 
其 中 ，a:， 方程 中 的 常数 1 
b: 方程 中 的 常数 2; 
dt， 时 间 步 长 ; 
空间 节点 个 数 
minx: 求解 区 间 的 左 端 
maxx: 求解 区 间 的 右 端 
M: 时 间 步 的 个 数 ; 
ul: 求解 区 间 上 的 数值 解 。 


萨 马 尔 斯 基 格 式 求解 对 流 扩散 方程 初 值 问题 的 MATLAB 程序 代码 如 下 打下 


function Uu = PeDKSam(a,b,daQt,n,minx,maxx, MI) 
g 方 程 中 的 常数 1: a 

g% 方 程 中 的 常数 2: b 

gs 时 间 步 长 : Qt 

% 空 间 节点 个 数 : nn 

g 求 解 区 间 的 左 端 ; IEmX 

g 求 解 区 间 的 右 端 : maxx 

gs 时 间 步 的 个 数 : M 

gs 求 解 区 间 上 的 数值 解 : u 


format ong; 


邯 皇 (一 co co), 之 0 


Ph = (maxx-minx)yv(n-1); 
for Jj=1: (n+2*xM) 
u0() = DKIniU (minx+(j-M-T)x*h) ，; 
endq 
ul = u0: 
Coff = QLxb/(1+axnh/pD/V2) : 
fo 上 =:M 
for 工 =K+1:D+2xM-K 


志明 十 是 515 





语言 常用 算法 程序 集 


U1(I) = 
coftfx*(u0(i+l)-2xu0(i)+u0(i-1))+axdtx(uo(I)-uo(i-1l))Znhru0(i) 
end 


enmdQ 
uU = ul((M+1):(M+n) ) ， 
format Short : 
萨 马 尔 斯 基 格式 求解 对 流 扩散 方程 应 用 实例 。 用 萨 马尔 斯 基 格式 求解 下 
面 对 流 扩散 方程 的 初 值 问题 ; 
9 Dr 0 和 8 
-一 + 一 一 一 一 一 oo,co),f 之 0 
于 + 去 3 XE (一 coyco),f 
&(xz,O) 一 2 Xe (0,1 
其 中 时 间 步 长 取 0.005， 空 间 步 长 取 0.01， 求 出 当 r=0.5 ( 即 100 个 时 间 步 ) 时 的 z 
随 x 的 分 布 图 。 
解 ， 先 建立 一 个 名 为 DKImiU.m 的 MATLAB 文件 ， 输 入 如 下 内 容 ， 
function uUx = DKInIU(X) 


format 1ong; 


UX = 区 *x 广 ? 
然后 在 MATLAB 窗口 输入 下 列 命令 : 
>> U = peDKSam(1,，1,0.005,101,0,1,100) 


用 萨 马 尔 斯 基 格 式 求 得 的 结果 如 图 16-24 所 示 : 
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到 16-24 例 16-18 用 萨 马 尔 斯 基 格 式 求 得 的 当 ! = 0.5 时 在 求解 域 上 的 场 函 数值 图 








>> U = PeDKSam(1,1,0.0001,101,0,1，1000) 


改变 参数 后 求 得 的 结果 如 图 16-25 所 示 : 
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各 7 
| _ 


二 











基 -一 全 1 1 1 4 J 1 J 1 
昌 0.1 02 03 04 0.5 06  D7 08 0.9 1 


图 16-25 例 16-18 用 改变 参数 后 的 萨 马 尔 斯 基 格 式 求 得 的 在 求解 域 上 的 场 函数 值 图 























这 时 的 数值 结果 没有 发 生 振 荡 ， 得 到 了 正确 的 结果 ， 所 以 对 于 各 种 条 件 稳定 的 差分 格 
式 要 注意 其 稳定 性 条 件 才 能 得 出 正确 的 结果 。 





小 结 


本 章 分 别 介绍 了 差分 方法 在 椭圆 型 、 抛 物 型 和 双 曲 型 偏 微分 方程 中 的 应 用 ， 用 差分 格 
式 求解 偏 微分 方程 的 步骤 基本 是 一 样 的 ， 首 先 把 连续 问题 离散 化 ， 建 立 差分 格式 ， 然 后 根 
据 差 分 格式 对 求解 区 域 进行 网 格 训 分， 最 后 求解 方程 。 

除了 差分 法 外 ， 变 分 法 和 有 限 元 法 也 是 常用 的 方法 ， 另 外 随 着 计算 方法 的 发 展 ， 还 出 
现 了 边界 元 法 、 混 合 有 限 元 法 和 多 重 网 格 法 等 新 的 方法 ， 读 者 如 果 有 兴趣 的 话 ， 可 参考 相 
关 的 书籍。 
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研究 自然 界 中 某 些 变量 之 间 的 关系 时 ， 往 往 是 从 分 析 变 量 的 观察 值 着 手 ， 这 些 观 察 值 
称 为 样本 ， 要 研究 的 变量 全 体 取 值 称 为 总 体 。 数 据 的 统计 和 分 析 就 是 通过 分 析 样 本 的 主要 
特征 ， 如 分 布 、 趋 势 、 集 中 程度 等 来 探究 变量 之 问 的 内 在 关系 ， 并 且 预 测 某 些 变量 的 发 展 


趋势 。 


通过 本 章 的 学 习 ， 读 者 不 仅 能 了 解 和 掌握 常见 的 数据 统计 和 分 析 方 法 ， 而 且 还 能 熟练 


使 用 MATLAB 编程 来 实现 这 些 算 法 。 


本 加 归 分 析 


回归 分 析 是 应 用 极其 广泛 的 一 种 数据 分 析 方法 ， 它 通过 揭示 变量 之 间 内 在 的 关系 来 反 
映 某 种 规律 ， 从 而 预测 或 控制 感 兴趣 的 一 个 或 几 个 变量 的 变化 。 

按照 变量 之 间 的 关系 ， 可 以 把 回归 分 析 分 为 线性 回归 和 非 线 性 回归 ， 实 验 数据 的 直线 
拟 合 其 实 就 是 一 个 线性 回归 的 例子 ， 而 二 次 拟 合 就 是 一 个 简单 的 非 线性 回归 的 例子 。 


17.1.1 线性 回归 


线性 回归 的 模型 为 ，y= Bo + Ba 二 … 


XI11 


XN1 
对 其 进行 线性 回归 的 步骤 介绍 如 下 。 
命 输入 原始 数据 。 


11 12 

X21 ”22 
叉 一 、 

XNI  XN2 


其 中 半 为 自 变量 个 数 ，N 为 数据 组 数 。 


+ pz， 在 得 到 自 变量 的 N 组 观测 值 和 后， 


X12 … pp 


X22 。 X2p 
XN2 。 XNp 
光 17 1 
X27 y2 
7 一 
: 9? : 
XNn YN 


、 相 和 一 了 一 1 立 
命 计算 = 上 X2 本 ， 其 中 万 = 方 女 ? 
| 
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针 解 方程 48 =C ， 其 中 
4-XIX_NXX  C=XI7Y-NXZp-=fp， 6，… 有 ]。 
侠 计算 8 = 了 -Xp 。 
合 进行 显著 性 检验 。 
必 一 
总 离 差 平方 和 : 93=》( 关 -7) ， 


四 
N 册 ， 

回归 平方 和 : 也 7 = 》 (y -YY) ， 其 中 六 = po+ BT…+Doxn; 
加 


剩余 平方 和 : C@=S-U 
复 可 决 系数 : R2 = 一 : 


复 相 关系 数 : R- 必 ; 


回归 均 方 ， U = 一 


及 


| | ， = 马 ， 
剩余 均 方 ，G= 六 全 


剩余 标准 差 ，*= VQ ; 
方程 显著 性 检验 值 ， 正 = 


于 





吕 


从 1 SS| 


根据 己 和 F(Cx)) 的 值 判断 各 个 因子 的 显著 性 。 
2 
中 三 检验 值 PC) reo= 护 ， 其 中 四 ]=(CXTX-N* 下 站 1 ;在 给 定 w 后 ， 如 
六 


果 FG 门 > 屎 (N-za-D， 则 因子 xz 显著 ， 否 则 所 不 显著 。 





G@) 检验 值 Ko): xz))= ,在 给 定 wx 后 ， 如果 |Kzj|>te(CV -7-D， 则 因子 z 显 


万 了 





车 ， 否则 必 / 不 显著 。 
回归 系数 的 标准 差 





一 1 一 r 一 

二 一 十 X 4 和 

Sp GT ) 
3 有 =\O 

y=po+pa+…+ 有 zir 


| 
功能 ， 用 线性 回归 法 估计 一 个 因 变 量 与 多 个 自 变量 之 问 的 线 二 关系 





人 @ 输出 回归 方程 : 


| 
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1 ATLAB 语言 常用 算法 程序 集 
调用 格式 ，[RegCoff,R,PEFX,TX]= MultiLineReg(X,Y) 
其 中 ，X: 自 变量 的 样本 和 天 阵 ， 

Y: 因 变 量 样本 和 矩 阵 ， 

| RegCoff: 线性 回归 系数 ， 

R:， 复 相关 系数 ， 

F， 方 程 显 著 性 检验 F 值 ; 

FX: 各 因子 显著 性 检验 F 值 ; 

TX: 各 因子 显著 性 检验 t 值 。 





线性 回归 法 的 MATLAB 程序 代码 如 下 所 示 : 


function [RegCcCoftf,R,PE,EFX,TX]= MultiDineReg(X,Y) 
自 变 量 的 样本 和 矩阵: X 

因 变 量 样本 和 矩 阵 , Y 

g 线 性 回归 系数 ， RegCoft 

gs 复 相关 系数 ， 及 

gy 方 程 显著 性 检验 了 值 : F 

g 各 因子 显著 性 检验 了 值 : FX 

g 各 因子 显著 性 检验 上 值 : TX 


ftormat 1 ong; 





GO  c8 






































S2Z = Size( 双 ) ; 

N=sSz(1): 

mL= SzZ(2):; 

RegCoff = zeros (n+l1,1); g 回 归 系 数 





2 = mean(X) ， 

YP = mean(Y) :， 

及 三 上 ranspose (X)x*X 一 Nxttranspose(Z)*2) 名 和 矩阵 
) 


C = 上 rangspose(X)*Y 一 Nxtransposel(2Z)*YyP; SC 和 矩阵 


RegCcoff (2:n+1) = ANC; 
RegCcoftf(1) "= yb - ZxRegCcoff(2:n+1):; sg 回归 系数 的 常数 项 
S = norm(Y)^2 -- Nxyp^2: g 显 著 性 检验 


YR = XxRegCoff(2:n+l) + RegCoftft (1)*xones(N,，1) 
U = 上 transpose(RegCoftft(2:n+1))*C， 

Q = Sr-U; 

R = SGrLI(IU/S) ; 

UR = U/(Length(ReScoftf ) 一 ) ， 

QR = Q/(N -Length(RegCoff) ) ; 

Ss = SGITL(QR) ， 

ina = inv(A) ; 


下 三 UR7VQR: 

for i=1:1ength(RegCofE) 一 1 g 因 子 显 著 性 检验 
FX(i) = RegCoftft(i+1)^27inA(ii)VQR: 
TX(iIi) = RegCofft(i+t)/sdcrt(ina(i,i)*xs)y 

ena 


foxrrmat Short 


区 量 线性 加 归 法 应 用 实例 。 用 线性 回归 法 估计 下 表 中 的 》 与 自 变量 mu,z, 居 的 
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线性 关系 。 


数据 统计 和 分 析 


























解 : 先 建立 一 个 数据 文件 XData.txt， 并 输入 下 列 10 行 3 列 的 数据 : 


70 35 1.0 
75 40 2.4 
65 40 2.0 
74 42 3.0 
72 38 1.2 
68 45 1.5 
78 42 4.0 
66 36 2.0 
70 44 3.2 
65 42 3.0 
再 建立 一 个 数据 文件 YData.txt， 并 输入 下 列 数 据 ; 
160 

260 

210 

265 

240 

220 

275 

160 

275 

250 


解 : 在 MATLAB 窗口 输入 下 列 命令 : 


>> X=1oaaQ( 'XData .txtL ') 
>> Y=1oadq('YData.txt' 1) ; 
>> [RegCcofft,R,F,EFX,TX]= MultiDLineReg(X,Y) 
RegcCoft = 
一 348.2802 
3.7540 
7.1007 
12.4475 
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MAIL 入 语言 常用 算法 程序 集 


0.8975 
8.2832 
EX = 3.7704 6.0776 1.3870 
TX = 1.9418 2.4653 工 .1777 


从 结果 可 以 看 出 ， 回 归 模型 为 : 
y=-348.2802+3.7542l +7.1007x2 +12.44757x 
取 e = 0.05 对 方程 和 回归 系数 进行 检验 ， 查 屎 分 布 表 可 得 而 oj5(3,6) =4.76 ， 本 例 中 的 
方程 检验 值 正 =8.2832 > 4.76 ， 说 明 方程 显著 ; 查 F 分 布 表 可 得 而 os(,6) =5.99 ， 
后 =3.7704 < 5.99 ， 说 明 国 不 显著 ; 
及 =6.0776> 5$.99 ， 说 明 zx 显著 ; 
局 =1.3870< 5.99 ， 说 明 加 不 显著 。 


本 轨 
中 


17.1.2 ”多 项 式 回归 
多 项 式 回归 是 一 种 非 线性 回归 ( 大 于 一 次 的 多 项 式 )， 它 研究 两 个 变量 之 间 的 多 项 式 
关系 ， 其 模型 为 ， 


y=po+pxz+…+ 记 Ac 
在 得 到 自 变量 的 N 组 观测 值 后 ， 将 输入 数据 改写 为 : 


天 
| | 光 | yl 
X2 Xp MX2 y2 
全 二 世 一 。 
: ? 。 
2 瑚 ? 
XN 艺 N 0 AN 


后 面 的 过 程 同 第 17.1.1 节 的 线性 回归 完全 一 样 。 


在 MATLAB 中 编程 实现 的 多 项 式 回 归 的 函数 为 ， PolyReg 

功能 : 用 多 项 式 回 归 法 估计 一 个 因 变 量 与 一 个 自 变 量 之 间 的 多 项 式 关系 
调用 格式 ，[RegCoffR,EFX,TX]= PolyReg (X,Yn) 
| 其 中 ，X: 自 变量 的 样本 矩阵 ; 
Y: 因 变 量 样本 矩阵 ; 





n:， 多 项 式 的 蝴 次 ; 
RegCoff: 多 项 式 回 归 系 数 ; 
R: 复 相关 系数 ; 
F: 方程 显著 性 检验 F 值 ; 
EX， 各 因子 显著 性 检验 F 值 ; 
TX:， 各 因子 显著 性 检验 { 值 。 


多 项 式 回 归 法 的 MATLAB 程序 代码 如 下 所 示 : 








function [RegGCoff ,REFR,EX,TX]= PoLYReg (X,Y,Dn) 


g 自 变量 的 样本 矩阵 : 
522 四 知 芭 知 





g 因 变量 样本 和 矩阵, Y 

g 多 项 式 的 祖 次 : n 

g 多 项 式 回归 系数 : RegCoftE 

% 复 相关 系数 : 肛 

g 方 程 显著 性 检验 了 值 : F 

g 各 因子 显著 性 检验 下 值 ，FX 

g 各 因子 显著 性 检验 上 值 : TX 

function [RegCoff,R,F,EFX,TX]= PolyReg(X,Y，Dn) 
fcormat 1ong:; 

















SZ = Size(X) ; 

N = Sz(1); 

XX 三 Zeros (N,n) ; 
for 1=1:N 


for JJ=13:n 
XX(i, 3) = 和 Xi) 2 林 ; 

GDnQ 
enaQ % 输 入 和 矩阵 
RegGCofft = zeros (n+T1, 1) ; 
2 = mean(XX) ， 
YD = mean(Y) 
人 二 tranSspose (XX)*XX 一 Nxtranspose(Z)xZ; 
C 三 tranSspPose(XX)x*Y 一 Nrxtranspose(Z)xyp; 


RegCcoff (2:n+1) = ANC; 
RegCoff (1) = yp - Zx*RegCoff(2:mn+1) ， 
S = Dorm(Y)^ 人 2 一 NxyDpD^ 人 2 gs 显著 性 检验 














YR = 三 XXxRegCoff (2 :n+1) 十 ReSCcoftft(1)*onest(N,1); 
U = transpose(RegCoff(2:n+1))xC; 


Q = S-U; 
R= SGdGrt(U/S) : 
UR = Ux]n; 


QR = Q/(N-n-1) : 

S = SGTLE(QR) ; 

inaA = inv(RA) : 

下 = 三 URVQR: 

for i=1:1length(RegCofft)-1  g% 因 子 显著 性 检验 
FX(I) RegGCcofft (1I+1)^27/inRa(IiI ii)7VQOR; 
TX(I) = RegCoff (i+1)/sGrt(inaA(ii))ys，; 

em 














format Short : 
多 项 式 回归 法 应 用 实例 。 用 三 次 多 项 式 回归 法 估计 下 表 中 的 》 与 自 变 量 x 
的 线性 关系 。 
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MATILAB 语言 党 用 算法 程序 集 








续 表 


























再 建立 一 个 数据 文件 Ydatal.tkt， 并 输入 下 列 数据 : 


160 
260 
210 
265 
240 
220 
275 
160 
275 
250 


在 MAILAB 窗口 输入 下 列 命令 : 


>> X=-1load('XQatal .txt') ; 
>> Y=1oad('Ydatral .txt ' ) ， 
>> [RegCoff ,R,E, EX,TX]= PoLyReg (X,Y，3) 


ReGgCofft = 
1.0e+004 
1.2613 
-0.1039 
0.0028 
-0.0000 
R= 0.8925 
了 己 = 7.8312 
FX = 0.4198 0.5023 0.5829 
TX = -0.6479 0.7087 -0.7635 


从 分 析 结 果 可 以 得 到 》 与 x 之 问 的 三 次 多 项 式 回归 模型 为 : 
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y=12613 一 1039x 二 28x2 +0ex3 


注意 三 次 项 系数 为 0， 说 明 三 次 项 非常 不 显著 。 


17.1.3 


二 次 完全 式 回 归 


二 次 完全 式 回 归 的 模型 为 : 
2 1 2 2 

y= Bo+2> Box + 之 记 DoA1(D = 7) 
ti 一 1 


i=1 产 ! 


在 得 到 自 变 量 的 N 组 观测 值 后 ， 将 输入 数据 改写 为 ; 


2 2 
Xll1 XI1 11X12 XI2 XI2 


2 2 
总 二 上 21 ”21 21X22 ”22 。 光 22 


2 2 
XN1 YXNI XNIXN2  XN2  XN2 


后 面 的 过 程 同 线性 回归 完全 一 样 。 


功 


调用 格式 : [RegCoff,R,EFX,TX]= CompPoly2Reg (X,Y) 
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MATLAB 中 编程 实现 的 二 次 完全 式 回 归 的 函数 为 : CompPoly2Reg 


数据 统计 和 分 析 


能 : 用 二 次 完全 式 回 归 法 估计 一 个 因 变 量 与 两 个 自 变 量 之 问 的 关系 


其 中 ，X: 自 变 量 的 样本 珑 阵 ; 


二 次 完全 式 回归 法 的 MATLAB 程序 代码 如 下 所 示 


Y: 因 变 量 样本 和 窍 阵 ; 

RegCoff: 二 次 完全 式 回归 系数 
R: 复 相 关系 数 ， 

PF， 方 程 显 著 性 检验 F 值 ; 

FX: 各 因子 显著 性 检验 F 值 ; 
TX: 各 因子 显著 性 检验 + 值 。 


function [RegCoff,R,EF,EFX,TX]= CompPolLYy2RegG(X,Y) 
g 自 变量 的 样本 矩阵 : X 

g% 因 变量 样本 和 矩阵: 芋 

g% 二 次 完全 式 回 归 系 数 ， RegCotE 

g% 复 相关 系数 : R 

g 方 程 显 著 性 检验 下 值 : F 





g 各 因子 显著 性 检验 了 值 : FX 
g 各 因子 显著 性 检验 上 值 ，TX 
format Long; 

SZ = Size(X) ; 
N=Sz(1):; 


中 = SzZ(2); 


XX 


二 ZeroSs (N,Dn): 
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XX(:，1) = X(:，1); 

XX(:，4) = X(:，2): 

for 1=1:N 
XX(i,2) = X(,1)^ 人 2:; 
XX(i, 3) = 和 (TI，1)x<X(IT，2): 
XX(iIi,5) = Xi 2)^ 人 2; 

Ena gs 输入 矩阵 





RegCcCoftf = Zeros(6,1) 
Z = mean(XX) : 
YP = mean(Y) : 
及 = 丰 ranspose(XX)xXX 一 NxttanSspose(2)x2Z; 

C = transpose(XX) xyY 一 NxtranspPose (2Z) xyp: 
RegCoft(2:6) = ANC; 

RegCoft(1) = yp 一 2ZxrReGCcCoft(2:6); 

3S = norm(Y)^2 一 NxypP^2; g 显 著 性 检验 

YR = XXrxRegCcoftft(2:6) 二 RegCoft (1)*xones(N，1): 


U = transpose(RegCoff(2:6))xC; 
Q = 3-U; 

R = SGFL(U/S) ， 

UR = UAn; 

QR = Q/ IN-6) : 


SsS = SGrt (QR) : 
na = 1InV(A) ， 


FE = UR7/COR: 

for 1i=1:1length(RegCcoff)-1  g 因 子 显著 性 检验 
FEX(iIi) = RegCoff (1i+1)^27/inRA(ii)7VQR; 
TX(I) = Regcoft(i+l)/sdrt(ina(i II))/S， 

enaQ 


format SRnort 


| 局 本 了 ee 省 二 次 完全 式 回归 法 应 用 实例 。 用 二 次 完全 式 回 归 法 估计 下 表 中 的 > 与 自 变 
量 姑 1 及 2 的 线性 关系 。 







































































解 : 先 建立 一 个 数据 文件 Xdata2.txt， 并 输入 下 列 数 据 : 


70 35 
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75 40 
65 40 
74 42 
72 38 
68 45 
78 42 
66 36 
70 44 
65 42 


二 


四 
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再 建立 一 个 数据 文件 Ydata2.txt， 并 输入 下 列 数 据 : 


160 
260 
210 
265 
240 
220 
275 
160 
275 
250 


在 MATLAB 窗口 输入 下 列 命令 : 


>> X=-1oadq('XQata2 .txt') ， 
>> Y=]load('Yaata2 .txt')，: 
>> [RegCoff,R,E,EFX,TX]= CompPolYy2Reg(X,Y) 


RegcCofE = 
1 工 .Oe+003 
-6.1465 
0.0654 
-0.0004 
-0.0002 
0.1895 
--0.0021 
R= 0.9628 
FE= 25.3877 
FEX = .3425 0.6766 0.0285 6.5254 7.8871 
TX = .1586 -0.8226 -0.1687 2.5545 -2.8084 


从 分 析 结 果 可 以 得 到 》 与 自 变量 为,z 之 间 的 二 次 完全 回归 模型 为 ， 





y=-6146.5+ 65.4 辐 -0.4 如 一 0.20xz +189.5z 一 2.12 


用 2 下 聚 类 分 析 


聚 类 分 析 本 质 上 是 将 研究 的 对 象 进行 分 类 ， 其 基本 思想 是 通过 定义 样本 之 问 的 距离 ， 
将 相近 的 样本 归 为 一 类 ， 直 至 所 有 类 之 间 的 距离 满足 某 种 条 件 。 聚 类 分 析 中 常用 的 是 系统 


聚 类 法 。 
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系统 聚 类 法 的 算法 过 程 介绍 如 下 。 

侠 计算 ”个 样本 两 两 之 间 的 距离 , 形成 距离 矩阵 刀 , D 为 对 称 珑 阵 , 且 对 角 元 素 为 0。 
命 首先 构造 由 个 类 ， 每 一 类 中 只 包含 一 个 样本 。 

合 合并 距离 最 近 的 两 类 为 新 类 。 

代 计算 新 类 与 当前 各 类 的 距离 ， 若 类 的 个 数 已 经 等 于 1， 转 命 ， 否 则 转 合 。 

舍 决 定 类 的 个 数 和 类 。 

类 的 距离 可 以 采用 以 下 两 种 算法 : 

人 最 短 距 离 法 : 
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DGCCC2) = min {aCcz7)} 
xcC， 
人 @) 最 长 距离 法 : 
D(CC2) = max{d(Cxrzx7 


EC2 


其 中 du,z)= | 宗 Cak - xx)) ， 为 两 个 关中 任意 两 个 样本 的 距离 。 
炎 =1 " 


Cs 生生 秆 生生 生生 生生 生生 生计 生生 生生 生生 二 


在 MATLAB 中 编程 实现 的 系统 聚 类 法 的 函数 为 : CollectAnaly 
功能 ， 用 最 短 距离 算法 的 系统 聚 类 对 样本 进行 聚 类 
调用 格式 : CollectAnaly(X) 
其 中 ，X， 样本 矩阵 。 


”系统 聚 类 法 的 MATLAB 程序 代码 如 下 所 示 : 
function CollectaAnaly (XI) 
g 样 本 和 矩阵 : 区 


tormat 1ongy; 


S2Z = Size(X) ; 
N = sz(1):; g 样 本 个 数 
mn=Sz(2):; 
D = zeros (mn) : 
totalClass = NI; 
RecoraClass = Zeros (N,N+1) gg 构造 n 个 类 
RecoraCclass(:，1) = ones(N，1): 
Recoraclass(:，2) = 工 :N; 
aisp(' 聚 类 前 的 N 个 类 : '); 
Gisp(RecorqaqClasSs ) ; 
while totalCclass > 1 gs 合并 距离 最 近 的 两 类 
minClaDist = Int， 
for ii=1:totalClasSs 
for ]j=iI+1L:totalC1aSsS 
QistClass = DistClass(X,， RecoraClass,1i,j,RecoraCclass(i,1)， 
Recorqclass (j,1));， % 类 的 距离 
if qistClass < minClaDist g 找 出 距离 最 近 的 两 类 

minClaDist = QistClass: 

11 = 工 ; 

了 1 了 ; 
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emnaQ 

end 
end 
g 合 并 距离 最 近 的 两 类 
1 = RecoraC1lass(I1，1) ; 
t2 = RecoradC1lass(J1,，1):; 
RecoraClass(i1l，(t1L+2): (1L+t2+1)) = RecordClLIass(jl,2:(L2+1)); 
ecorOC as 人] 1) = RecordqClasslil1,1) 二 RecoradClass(jJl,，1):; 
RecoraqC1lass (jl1:(totalClass-1)，:) = RecoraClass((]j1l1+1):totalClass，:) 
Perac10 Tc alCT ec， N,:) = zeros{(N-totalClasSs+1,N+1) 
totalClass = LotalC1lass 一 1; 
strl = sttrcat( ' 第 ' ,num2str(N -totalClass))， 
strl = strcat(str1L1， ' 次 事 类 ，': ) ; 
strl = strcat (str1， "第 ') 
StLrl = Strzcat (Str1lI，mum2str(I1) ):， 
strl = strcat(str1l， "类 和 第 ' ) 
strl = Sttzcat (Str1，Pnum2stz(]J1) )， 
str1 = strcat(strL1， 类 合并 :) ; 
Qisp(str1): 
Qisp(RecordGClass(1l:totalClass,，:)) 





emndQ 

function Q = DistSamp(X1L,X2) g 样 本 距离 的 计算 函数 
Format 1ongy; 

QQ = Sdqrt(dGot( X1L-X2,，X1L-X2) ) 

format Short 

function Q = DistClass(X,C1,11,12,n,m) gs 类 距离 的 计算 函数 
format 1ong; 

Q = inf'; 

for I=1:DTmn 





for JJ=13:m 
qc = DistSamp(X(C1(11,1+1)，:)，X(C1(12，j+1)，:)) ， 
if aqQc < aq 
四 三 Qc:; 
endq 
end 
endQ 
format SRort : 


最 短 距离 算法 的 系统 了 育 类 应 用 实例 。 对 下 面 的 5 个 样本 用 最 短 距离 法 进行 
分 类 。 


























解 : 在 MATLAB 命令 窗口 输入 下 列 命令 : 
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>> 又 = [1 17;1 276 378 2;8 0]:; 
>> CollectAnaly(X) 
gs 娶 类 前 的 N 个 类 : 





1 1 0 0 0 0 
二 2 0 O 0 0 
3 0 0 0 0 
4 0 0 0 0 
工 D 0 0 0 0 
sg 第 1 次 聚 类 ， 第 1 类 和 第 2 类 合并 : 
2 1 2 0 0 0 
3 O 0 0 0 
4 0 0 0 0 
荆 5 0 0 0 0 
g 第 2 次 聚 类 ， 第 3 类 和 第 4 类 合并 
2 1 之 0 0 0 
3 0 0 0 0 
2 4 5 0 0 0 
g% 第 3 次 聚 类 ， 第 2 类 和 第 3 类 合并 : 
2 工 之 0 0 0 
3 3 4 5 0 0 
gs 第 4 次 聚 类 ， 第 1 类 和 第 2 类 合并 : 
5 工 2 3 4 5 


输出 数据 的 行 数 代表 每 次 聚 类 后 类 的 个 数 ， 每 一 行 的 第 一 个 数 表 示 此 类 中 样本 的 个 
数 ， 后 面 的 数 代表 此 类 中 的 样本 编号 ， 从 程序 的 输出 结果 看 ， 聚 类 的 过 程 一 量 了 然 ， 未 聚 
类 前 ， 有 5 个 类 ， 每 个 类 各 有 一 个 样本 ;第 一 次 聚 类 是 将 第 一 类 和 第 二 类 合并 ， 得 到 新 的 
第 一 类 ， 此 时 第 一 类 有 2 个 样本 ， 而 第 二 次 聚 类 是 将 第 3 类 和 第 4 类 合并 ， 得 到 新 的 第 三 
类 ; 第 3 次 聚 类 是 将 第 2 类 和 第 3 类 合并 ， 此 时 总 共有 2 类 ， 经 过 第 四 次 聚 类 ， 类 的 个 数 
变 为 1， 聚 类 的 过 程 到 此 完成 。 








判别 分 析 








判别 分 析 也 是 一 种 分 类 法 ， 但 是 和 孙 类 分 析 不 同 的 是 ， 判 别 分 析 是 在 分 类 已 
情况 下 ， 通 过 某 种 判别 法 则 ， 判 断 新 的 样本 属于 哪个 已 知 类 。 

下 面 介绍 比较 简单 的 Fisher 两 类 判别 算法 ， 其 思想 是 已 经 给 定 两 类 的 训练 样本 ， 判 断 
新 的 样本 属于 哪 类 。 

Fisher 两 类 判别 算法 介绍 如 下 。 

鲍 输入 两 类 样本 值 ， 


这 
具 


定 的 





XI11 XI2  … Xp 
X21 MX%22 … YX2p 
X(4)=| . . . 
XML MXM2 … YXhMp 
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XII MX2 ”Xp 
X(OBD=| 2 2 
XNIL 2XN2 ……” XNp 
侠 计算 均值 ， 
四 M 
ZX = 元 辣 (0) 
1 亲 (=12……,D) 
KB)= 方 之 王 () 
计算 方差 ， 
4 _ _ 
Sr = > [oo(4)-XiC4xxe(4) 一 Xe(4)] 
fi=1 
AN _ 
+>05(B)-X7CB)][xx(B) 一 Xe(B)] 
i=1 
(=12……，,P; 大 三 1.2,……,D) 
计算 距离 : 


=XI(4)- Xi(BD) (= 2……,) 
全 解 方程 组 Sc = 求 出 判别 系数 c ， 建立 判别 函数 


己 
0 
1 一 1 
人 @ 用 草 别 函 数 判 刚 新 样本 的 类 


在 MATLAB 中 编程 实现 的 Fisher 两 法 的 了 数 为 ， DistgshAnalysis 
功能 : 用 Fisher 两 类 判别 法 对 样本 进行 
调用 格式 :kindX = DOAXB Sa 
其 中 ，XA: 第 一 类 的 样本 矩阵 ; 

XB， 第 二 类 的 样本 和 窍 阵 ; 

SampX: 需要 分 类 的 样本 ; 

kindX ， 样本 的 类 别 。 


Fisher 两 类 判别 法 的 MATLAB , 程序 代码 如 下 所 示 ， 


function kinaqx = DistdshAnalysis(XA,XB,SarmpX) 
g 第 一 类 的 样本 矩阵 XA 

gs 第 二 类 的 样本 和 天 阵 : XB 

g% 需 要 分 类 的 样本 :SarmpX 

g% 样 本 的 类 别 : kinaXx 


format Tong 
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SZz1 = Size(XA) ; 

Sz2 = Size(XB); 

M = szl(1)， gs 样 本 个 数 
N = S2z2(1):; 

nmn=SzlL(2): 

meanxXA = mean(XA) : 

meanXB = mean(XB) : 

SX = Zeros (mn,n) ， 

Y = zeros(N,D) : 

for 1=13:nm 


for Jj=1L3:n 
SX(I,，]J) = Got (XA(: ,1i)-meanXA(i)*zeros(M,1),XRA(:，)-meanXRA(])*ZeroOs 
(M,1L)) 十 ... 
aot(XB(: ,1i)-meanXB(i)*2zeros(N,1)，XB(:，j)-meanXB(])*Zzeros 
(N,1)); 
emnd 
enG 


Q = trangspose (meanXA 一 meanXB) : 
c = SxNd; g% 判 别 系 数 
YA = Qot(c,meanxXA) ; 
YB = Qot(c,meanXB) ; 
(MxYA + NxYB)/V(MT+TN) ; 
Y0 = dottc,SampX);  g% 判 别 样本 的 类 别 
工 E YA > YB 
if Y0 > YC 


HK 
Q 
中 


P=0 
aisp(' 没 法 判断 ' ) ; 
e@1Se 
D =2; 
disp(' 样 本 属于 第 二 类 ' ) ; 


enaQ 


P = 2; 
aisp(' 样 本 属于 第 二 类 ' ) ; 


ee Se 
if Y0 一 Yc 


aisp(' 没 法 判断 ' ) ; 
elSe 
P= 工 
disp (' 样 本 属于 第 一 类 ' ) ; 
endQ 
enG 
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el1Se 
aisp( ' 没 法 判断 ' ) ; 
enG 


endQ 


Fisher 两 类 判别 法 应 用 实例 。 已 知 样本 如 下 表 所 示 ， 









































用 Fisher 判别 法 判别 样本 X?2=[7.90 2.40 4.30 33.2] 和 XI=[12.40 5.10 4.48 
24.6] 分 别 属于 哪 一 类 。 
解 : 在 MATILAB 窗口 输入 下 列 命令 : 


>> XA = [13.58 2.79 7.8 49.6:; 
22 .31 4.67 12.31 47.8: 

28 .82 4.63 16.18 62.15: 

15.29 3.54 7.58 43.2: 

28 .29 4.90 16.12 58.7]:， 

>> XB = [2.18 1.06 1.22 20.6 
3.85 0.80 4.06 47 .1 

11 .4 0 3.50 0 

3.66 2.42 2.14 15.1 

12.10 0 5.68 0]: 

>> X0O0 = [7.90 2.40 4.30 33.21]: 
>> XL = [12.40 5.10 4.48 24.6]: 
>> K = DisStgshAnalysigs(XRA,XB,XO) 

g% 样 本 属于 第 二 类 

大 = 2 

>> K = DistgshaAnalysis(XA,XB,X1) 

g% 样 本 属于 第 一 类 

K = 工 


所 以 X" 属于 第 二 类 ， 而 Xi 属于 第 一 类 。 
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有 gs 主 成 分 分 析 ， 


主 成 分 分 析 是 用 尽 可 能 少 的 指标 来 反映 主题 的 特征 ， 但 是 又 不 会 损失 原来 变量 太 多 的 
信息 。 主 成 分 分 析 本 质 上 是 一 种 对 变量 的 降 维 处 理 ， 即 用 较 少 的 变量 代替 原来 的 变量 ， 而 
新 变量 是 原来 变量 的 某 种 组 合 。 其 算法 过 程 介 绍 如 下 。 

僵 得 到 p 个 指标 的 N 组 样本 值 。 


XI1 加 2 X1P 

X21 ” X22 X25 
忒 一 。 

XNL  XN2 …' XNp 


伟 计算 各 指标 的 均值 和 标准 差 。 


AN 
均值 ， 姑 = > 7 


j=1 





侠 计算 协 方差 矩阵 R=| 记 ] ， 其 中 


1 AN 
方 一 7 
8 六 之 司 - 后 





也 二 如 -/ 
二 5 

侠 计算 及 的 特征 值 4,j,…,)， 和 特征 向 量 1 =[ 2 … 2 。 

侠 将 特征 值 从 大 到 小 排列 ， 设 排列 顺序 为 ,22,，…,Mp ， 找 出 ， 使 得 : 
2 


->0.85 
忆 


> 六 
六 1 





从 而 确定 mm 个 主 成 分 ， 令 
素 
Zi = 0,G=12… 四 
产 1 


舍 计算 前 六 个 主 成 分 的 样本 值 : 


呈 
2 = 了 及 区 ,=12 7N; =12…1 
天 =] 
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功能 : 对 样本 进行 主 成 分 分 析 

调用 格式 : [Z,m,lamda,U] = MainAnalysis(X) 
其 中 ，X:， 样本 和 矩阵 ; 

Z: 主 成 分 样本 矩阵 ; 

m:， 主 成 分 个 数 ; 

lamda: 主 成 分 对 应 的 特征 值 ; 

U:; 主 成 分 的 组 成 系数 。 











主 成 分 分 析 法 的 MATLAB 程序 代码 如 下 所 示 : 
function [Z,m,1armda,U] = MainaAnalysis(X) 
g% 样 本 德 阵 : 区 

g% 主 成 分 样本 甜 阵 : 2Z 

g% 主 成 分 个 数 : m 

g% 主 成 分 对 应 的 特征 值 : Lamdqa 

g% 主 成 分 的 组 成 系数 : U 


format Tong: 


SZ = Size(X) : 
N=Sz(1):; g% 样 本 个 数 
了 = SzZ(2): 


meanX = meanm(X) ; 
SX = Zeros (m,1); 
Y = Zeros (N,D) : 


for =1 :DTn gs 计 算 标 准 差 矩 阵 


SX(I) = SGrt (norm(X(1L:N,I))^ 人 2-2xmeanX(i)xsunm(X(L:N,I))+NxmeanX(IiI)^ 人 2) 
/SGIEL (NT1) ; 

enQ 
for 1=1:N 

for Jj=13:n 

Y(i,J) = (XI ) 一 meanX(J))/SXx(J) ; 

enmd 

eDn 


for =1 :mn 计算 协 方差 矩阵 

for ]Jj=1 :DTn 

r(i, JJj = aot(tyY(:,i)vY(:,，))/V(ON-1)， 

emnQ 
end 
[vel = elig(T); 
[sortE,turnV]l = sort(diag(te)，'aqescend'); % 将 特征 值 从 大 到 小 排序 
ESsum = SOLtB(1) 
TY = Sum(Giag(I) ) ， 








m = 了 工 ; 
while 1 确定 m 个 主 成 分 
if ESsumVTr > 0.85 
Dreak:; 
else 
mE 三 m+1; 
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Esum = ESsum 十 SOYLE (m) ; 

endQ 

enda 

Lamdqa = SoOrtE(1L:m) ; 

for i=l:m  g#% 计 算 主 成 分 的 样本 值 
U(:，i) = v(:turnV(I) ) ， 
Z(:，IL) Yxv(:vturnV(I) ) ， 

End 

format Short :; 


主 成 分 分 析 法 应 用 实例 。 对 下 列 数据 作 主 成 分 分 析 。 


革 











知 
1.75 







































































解 : 首先 建立 一 个 文本 文件 Xdata3.txt， 输 入 上 面 表格 中 的 数据 ， 然 后 在 MATLAB 窗 
口 输入 下 列 命令 


>> X=-1Load('XData3 .txt ' ) 
>> [2Z,m,Lamda,U] = MainaAnalysis(X) 
2Z= 0.0236 1.0216 1 .4549 
0.8634 2.1991 -0.4251 
一 .6305 -0.2490 -0.8189 
一 3.7465 0.9605 0.2302 
3.88957 开 .6351 0.3087 
3.8484 工 .4854 一 .0192 
1.6563 0.2723 -0.9813 
-2.8244 下 .1260 --0.9378 
-0.5006 -0.7942 一 .0229 
0.7116 -0.3156 -0.2899 
-0.2498 0.3585 1.95486 
一 0.6971 0.2061 1.2084 
一 .0568 下.1980 -0.0715 
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1.7813 -1.3984 1.0638 
-2.0647 0.2129 -0.2481 


m= 3 

1amqa = 4.8520 
1 .2445 
0.8703 


U = 0.4337 -0.0617 -0.2582 
0.4087 -0.3419 ”0.1177 
0.3895 “0.0121 -0.3799 
0.4211 -0.3174 ”0.0187 
0.3586 ”0.0656 0.2220 
0.1835 -0.7247 -0.3192 
-0.2944 -0.0352 -0.6353 
0.2586 ”0.4976 -0.4691 
从 上 面 的 结果 可 以 看 出 ， 主 成 分 分 析 的 结果 得 到 了 三 个 主 成 分 ( wm=3 )， 并 可 以 得 到 三 
个 主 成 分 的 表达 式 如 下 所 示 : 

Zi = 0.4337 贡 + 0.40872 + 0.3895 肪 +0.421174 + 0.358615 一 0.183586 -0.2944 六 +0.2586 了 
Z2 =--0.0617 乃 -0.3419 冯 +0.0121 到 -0.3174 胞 十 0.0656 瑟 -0.7247765 -0.0352 乃 + 0.4970 了 4 
Z3 =-0.2$82 太 +0.1177 态 -0.3799 肪 +0.0187 吧 + 0.2220 了 5 一 0.3192J6 一 0.63335 一 0.469178 

主 成 分 的 样本 值 即 为 输出 变量 中 的 Z。 


小 结 


本 章 简 要 介绍 了 数据 统计 分 析 中 的 几 大 分 析 方法 ， 每 种 方法 都 有 不 少 的 分 析 算 法 ， 倒 
如 聚 类 分 析 除 了 系统 聚 类 法 外 还 有 快速 聚 类 法 、 模 糊 聚 类 法 等 。 由 于 篇 幅 等 原因 ， 疫 有 把 
每 种 算法 一 一 用 程序 重新 写 过 ， 因 为 现在 有 SAS 和 SPSS 等 现成 的 统计 分 析 软 件 ， 功 能 非 
常 丰 富 。 本章 的 目的 是 让 读者 熟悉 统计 分 析 基 本 算法 的 程序 实现 方法 , 加 深 对 理论 的 了 解 。 
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附录 入 ”MATLAB 计算 常用 工具 箱 函 数 注释 


本 书 讲述 的 是 采用 MATLAB 编程 实现 科学 和 工程 中 常用 的 算法 ， 对 于 科学 计算 部 分 
涉及 的 主要 函数 以 及 工具 箱 ， 下 面 以 附录 的 形式 给 出 。 

本 附录 给 出 了 MATLAB 提供 的 曲线 拟 合 工具 箱 、 样 条 工具 箱 、 偏 微分 方程 工具 箱 和 
最 优化 工具 箱 中 函数 的 名 称 及 功能 ， 以 及 线性 代数 部 分 常用 函数 的 功能 ， 便 于 读者 进行 查 
询 和 参考 。 


A.1.1 和 矩阵 分 析 















nank 矩阵 的 秩 简化 矩阵 为 梯形 形式 


A.1.2 线性 方程 























附录 对 “MATLAB 计算 常用 工具 箱 函数 注释 


续 表 





功 能 更 功 能 
稀疏 和 矩阵 的 奇异 值 和 向 量 广义 特征 值 的 QZ 分 解 
Schur 分 解 

















和 矩阵 平方 根 
计算 一 般 和 矩阵 函数 











和 2 曲线 拟 合 工具 箱 函数 


A.2.1 ” 拟 合 数据 预 处 理 


函数 名 功 能 函数 名 功 能 
cftool 打开 GUI 形式 的 曲线 拟 合 工具 箱 smooth 对 数据 点 作 平 滑 处 理 
excludedata 去 除 异 常数 据点 














A.2.2 数据 拟 合 


功 能 函数 名 功 能 
打开 GUI 形式 的 曲线 拟 合 工具 箱 fittype 构造 一 个 曲线 拟 合 对 象 
用 指定 的 拟 合 模型 对 数据 进行 拟 合 获取 拟 合 选项 结构 体 的 某 个 字段 名 及 其 值 
fitoptions 创建 或 修改 拟 合 选项 结构 体 设置 拟 合 选项 结构 体 的 某 个 字段 的 值 



































A.2.3 ” 拟 合 类 型 和 方法 


函数 各 功 能 函数 名 功 能 
argnames 曲线 拟 合 类 型 { 或 函数 ) 对 象 的 输入 参数 名 ‖ indepnames 线 拟 合 类 型 ( 或 函数 ) 对 象 的 自 
二 判断 曲线 拟 合 类 型 ( 或 函数 ) 对 象 是 否 
型 | islinear 
为 线性 
曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 输 
数 个 数 
线 拟 合 类 型 ( 或 函数 ) 对 象 的 拟 
数 个 数 
_ 曲线 拟 合 类 型 { 或 函数 ) 对 象 的 问 
feval 计算 曲线 拟 合 类 型 ( 或 函数 ) 对 象 Probnames 
| 关 参 数 名称 
fittype 创建 一 个 曲线 拟 合 类 型 { 或 函数 ) 对 象 type 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 名 称 
formula 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 公式 


















































category 曲线 拟 合 类 型 { 或 函数 ) 对 象 的 拟 合 类 











coeffnames 曲线 拟 合 类 型 ( 或 函数 ) | 























dependnames | 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 因 变 量 numcoeffs 
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A.2.4 曲线 拟 合 的 方法 


argnames 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 输入 参数 名 曲线 拟 合 类 型 { 或 函数 ) 对 象 的 自 变量 
category 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 拟 合 类 型 执 合 函数 的 积分 


判断 曲线 拟 合 类 型 ( 或 函数 ) 对 象 是 否 
cfit 创建 一 个 曲线 拟 合 函 数 对 象 






















曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 输入 参 
coeffnames 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 系数 名 称 |‖ numargs 数 个 数 

1 

曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 拟 合 系 
coeffvalues 通过 拟 合 得 到 的 拟 合 函 数 的 系数 值 numecoefifs 数 个 数 

| 


拟 合 系 数 的 值 的 置信 区 间 plot 绘制 拟 合 曲线 图 


在 任意 点 处 用 拟 合 函 数 计算 得 到 的 函数 
dependnames | 曲线 拟 合 类 型 ( 或 函 数 ) 对 象 的 因 变 量 Predint 、 
值 的 95% 置 信 区 间 


曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 问题 相 
differentiate 求 取 拟 合 函 数 的 导数 probnames 、 
关 参 数 名 称 


计算 曲线 拟 合 类 型 ( 或 函数 ) 对 象 拟 合 函 数 中 的 与 问题 相关 的 参数 值 
曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 公式 曲线 拟 合 类 型 ( 或 函数 ) 对 象 的 名 称 


A.2.5 ” 拟 合 数据 后 处 理 


打开 GUI 形式 的 曲线 拟 合 工具 箱 执 合 函数 的 积分 
通过 拟 合 得 到 的 拟 合 函数 的 系数 值 绘制 拟 合 曲线 图 


、 在 任意 点 处 用 拟 合 函数 计算 得 到 的 函数 
confint 拟 合 系数 的 值 的 置信 区 间 predint 


































值 的 9$ 多 置信 区 间 


求 取 拟 合 函数 的 导数 拟 合 函 数 中 的 与 问题 相关 的 参数 值 


A.2.6 ”信息 显示 与 帮助 


cflibhelp datastats 


样 条 模型 或 内 插 模 型 的 相关 帮助 信息 
Re 样 条 工具 箱 函 数 

























显示 输入 数据 的 统计 信息 





A.3.1 样 条 GUI 函数 


在 节点 处 生成 B 样 条 曲线 


540 入 和 若 敌 










用 一 系列 方法 生成 各 种 样 条 曲线 
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A.3.2 样 条 构建 函数 


生成 给 定 约束 条 件 下 的 三 次 样 条 函数 
播 值 生成 三 次 样 条 函数 
平滑 生成 三 次 样 条 函数 
生成 一 条 内 插 参 数 的 三 次 样 条 曲线 
动态 生成 三 次 样 条 曲线 

生成 分 段 多 项 式样 条 函数 
生成 有 理 样 条 函数 
分 段 双 圆 缴 Hermite 插值 


A.3.3 操作 样 条 函数 





























生成 有 理 样 条 函数 
spapi 插值 生成 B 样 条 函数 
spaps 对 生成 的 B 样 条 曲线 进行 光滑 处 理 
用 最 小 二 乘法 拟 合生 成 B 样 条 函数 
生成 均匀 划分 的 B 样 条 函数 
生成 了 样 条 函数 












































































返回 样 条 函数 的 某 一 部 分 ( 如 断 点 或 系数 等 ) 画 样 条 曲线 图 

一 种 形式 的 样 条 函数 的 改变 部 分 在 样 条 曲线 中 插入 断 点 

对 样 条 函数 进行 算术 运算 生成 taryior 系数 或 taylor 多 项 式 
求 样 条 函数 的 微分 ( 即 求 导数 ) 计算 在 给 定点 处 的 样 条 函数 值 












































求 样 条 函数 的 方向 导数 播 值 函数 
求 样 条 函数 的 积分 fozeros 计算 函数 的 零点 

















把 一 种 形式 的 样 条 函数 转化 成 另 一 种 形 
式 的 样 条 函数 


在 间断 点 处 求 函数 值 如 2fm 





求 取 函 数 的 最 小 值 


函数 名 功 能 
求 出 用 于 生成 样 条 曲线 的 节点 数组 knt2brk 从 节点 数组 中 求 得 节点 及 其 重 次 
在 已 知 节点 数组 中 添加 一 个 或 多 个 节点 knt2mlt 从 节点 数组 中 求 得 节点 及 其 重 次 
求 出 节点 数组 元 素 的 平均 值 newknt 对 分 段 多 项 式样 条 函数 进 
增加 断 点 数组 中 元 素 的 重 次 optknt 求 出 用 于 内 播 的 最 优 节点 数组 
求 出 节点 数组 points 的 元 素 在 节点 数组 
meshpoints 中 属于 第 几 个 分 量 












































求 出 用 于 生成 样 条 曲线 的 sorted 





A.3.5 ” 解 线性 方程 组 的 函数 


功 能 函数 名 功 








描述 分 块 对 角 和 矩阵 的 详细 情况 slvblk 解 对 角 占 优 的 线性 方程 组 
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A.3.6_ 样 条 及 工具 箱 的 信息 显示 


me 显示 一 条 3 样 条 曲线 和 它 的 分 段 形式 ms | 显示 样 条 工具 箱 术 语 的 解释 


A.3.7 “实用 函数 











生成 B 样 条 函数 的 配置 矩阵 subplus 返回 参数 的 正 数 部 分 
0 左面 的 节点 序列 从 B 形式 转换 为 pp 形式 titanium 返回 titanium 热 数 据 
0 右面 的 节点 序列 从 B 形式 转换 为 pp 形式 


























偏 微分 方程 工具 箱 函数 


A.4.1 ” 偏 微分 方程 求解 算法 函数 


生成 自 适应 网 格 并 求解 PDE 问题 求解 抛物 线 型 PDE 问题 





assema 组 合 面积 的 整体 贡献 pdeeig 求解 特征 值 PPE 问题 
assemb | 组 合 边界 条 件 的 贡献 pdenonlin 求解 非 线性 PDE 问题 
组 合 刚度 矩阵 和 PDE 问题 的 右 端 项 poisolv 在 矩形 网 格 上 对 泊 松 方程 进行 快速 求解 


求解 双 曲 线 PDE 问题 
A.4.2 ”用户 界面 算法 函数 


pdeellip 绘 桶 圆 pderect 绘 矩 形 


将 PDE 工具 箱 1.0 模 型 的 M 文件 转换 为 PDE 工 打开 PDE 工具 箱 图 形 用 户 集成 界面 
pdemdlcv pdetool 
具 箱 1.0.2 版 本 的 格式 (GUI ) 









































A.4.3 ”几何 算法 函数 


核对 几何 描述 矩阵 的 有 效 性 在 参数 表示 和 圆 弧 长 度 之 间 进 行内 插 
删除 最 小 子 域 之 问 的 界线 poimesh | 在 矩形 几何 图 形 上 生成 规则 网 格 
decsg 将 建设 性 实体 几何 模型 分 解 为 最 小 子 域 refinemesh “| 加 密 一 个 三 角形 网 格 
initmesh 创建 初始 三 角形 网 写 边界 条 件 指定 文件 
jigglemesh 微调 三 角形 网 格 的 写 几 何 指定 函数 
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附录 条“MATLAB 计算 常用 工具 箱 函 数 注释 


A.4.4 绘图 函数 


pdegplot 绘制 PDE 几何 图 
绘 PDE 三 角形 网 格 


A.4.5 “实用 算法 函数 

















bpdesurf 绘 三 维 表面 图 






























dst, idst 离散 化 sin 转换 








pdeadgsc | 使 用 相对 容 限 临 界 值 选择 三 角形 计算 结构 力学 张 量 函数 


pdeadworst | 选择 相对 于 最 坏 值 的 三 角形 
与 给 定 三 角形 集合 相 邻 的 三 角形 的 指数 用 于 泊 松 方程 快速 求解 器 的 边界 点 矩阵 
PDE 解 的 梯度 poicalc 矩形 网 格 上 泊 松 方程 的 快速 求解 器 
从 节点 数据 至 三 角形 中 点 数据 进行 内 插 经 过 规范 排序 的 矩形 网 格 的 点 的 指数 
|] pdejmps 对 于 自 适 应 网 格 进行 误差 估计 求解 广义 稀 朴 特征 值 问题 
pdeprtni | 从 三 角形 中 点 数据 向 节点 数据 进行 内 揪 从 PDE 三 角形 网 格 到 矩形 网 格 进行 内 插 























A.4.6 自 定义 算法 函数 


函数 名 功 能 函数 名 功 能 
Pdebound 边界 条 件 M 文件 pdegeom 几何 模型 M 文件 

















A.5.1 “最 小 化 函数 





功 能 
无 约束 多 变量 问题 最 小 化 
半 无 限 约束 多 变量 非 线性 问题 最 小 化 
使 用 第 三 方 库 KNITROS 求 解 多 变量 
fminbnd 

非 线性 问题 最 小 化 
有 约束 的 非 线性 最 小 化 linprog 求解 线性 规划 问题 


求解 最 大 最 小 约束 问题 quadprog 求解 二 次 规划 问题 
使 用 无 导数 方法 求解 无 约束 多 变量 问题 最 小 化 
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求解 0-! 整数 规划 问题 
标 达到 问题 


bintprog 



































fgoalattain fseminf 




































有 边界 的 标量 非 线性 最 小 化 ktrlink 
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A.5.2 “方程 求解 函数 


通 数 名 
fsolve 非 线性 方程 求解 


A.5.3 ”最 小 二 乘 函 数 
函数 名 功 能 
lsqcurvefit 非 线性 曲线 拟 合 

A.5.4 图 形 用 户 界面 ( GUI ) 


选择 求解 器 、 最 优化 选项 和 求解 最 优化 问题 的 工具 


A.5.5 ”实用 函数 


color 稀 耻 有 限 差分 的 列 分 区 获取 优化 选项 结构 的 参数 值 
fzmault 零 空间 基 的 乘法 创建 或 编辑 优化 选项 结构 






















功 能 
fzero 单 变量 连续 函数 求 根 


isqnonlin 非 线性 最 小 二 乘 
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附录 节 ”本 书 所 编写 的 算法 程序 索引 


本 书 精 选 了 科学 和 工程 中 常用 的 200 余 个 算法 ， 并 编写 了 这 些 算法 的 MATLAB 
程序 。 这 些 程序 编写 思路 清晰 ， 注 释 丰 富 ， 而 且 经 过 了 验证 ， 可 以 直接 应 用 于 实际 。 建 议 
读者 从 一 开始 就 耐心 地 分 析 、 练 习 和 调试 这 些 程序 ， 在 实践 中 掌握 MATLAB 编程 。 

这 些 程序 代码 在 随 书 光盘 中 有 序 地 列 出 ， 读 者 可 方便 地 进行 应 用 。 同 时 ， 为 了 便于 读 
者 阅读 、 分 析 、 学 习 和 应 用 这 些 算法 程序 ， 本 附录 给 出 了 这 些 算 法 程序 在 书 中 的 索引 。 


有 有 第 4 章 “ 插 值 ”的 算法 程序 索引 

















函数 名 
Language 





功 能 

求 已 知 数据 点 的 拉 格 朗 日 插值 多 项 式 

求 已 知 数据 点 的 艾 特 肯 插 值 多 项 式 
Newton 求 已 知 数据 点 的 均 差 形式 的 牛顿 插值 多 项 式 
Newtonforward | 求 已 知 数据 点 的 前 向 牛顿 差分 插值 多 项 式 
Newtonback 求 已 知 数据 点 的 后 向 牛顿 差分 插值 多 项 式 4.4.1 
二 未 已 知 数据 点 的 高 斯 插值 多 项 式 
Hermite 求 已 知 数据 点 的 埃 尔 米 特 插值 多 项 式 

求 已 知 数据 点 的 分 段 三 次 埃 尔 米 特 插值 多 项 式 及 其 插值 点 处 的 值 
求 已 知 数据 点 的 二 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
求 已 知 数据 点 的 第 一 类 三 次 样 条 插值 多 项 式 及 其 插值 点 处 的 值 
ThrSample2 求 已 知 数据 点 的 第 二 类 三 次 样 条 播 值 多 项 式 及 其 播 值 点 处 的 值 
ThrSampie3 求 已 知 数据 点 的 第 三 类 三 次 样 条 播 值 多 项 式 及 其 插值 点 处 的 值 
BSample | 求 已 知 数据 点 的 第 一 类 B 样 条 的 插值 

DCS 用 倒 差 商 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
Neville 用 Neville 算法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
FCZ | 用 何苦 商 蔓 法 求 已 知 数据 点 的 有 理 分 式 形式 的 插值 分 式 
用 双 线 性 插值 求 已 知 点 的 插值 

用 二 元 三 点 拉 格 朗 日 插值 求 已 知 点 的 插值 

用 分 片 双 三 次 埃 尔 米 特 插值 求 插值 点 的 z 坐标 


4.1 
. 70 


72 

























Atken 



































SubHermite 









SecSample 
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第 5 


章 “ 函 数 逼 近 ” 的 算法 程序 索引 


Chebyshev 





位 于 的 页 码 





115 





勒 让 德 多 项 式 有 逼近 已 知 函 数 





Legendre 
Pade 











帕 德 形式 的 有 理 分 式 逼 近 已 知 函数 














117 




















lmz 
ZJPF 求 
FZZ 














期 数据 点 的 傅立叶 逼近 





应 分 段 线性 法 逼 近 已 知 函 数 
































功 “能 





Chapoly 
pmethod 





通过 求 矩 阵 特征 多 项 式 的 根来 求 其 特征 值 








社 法 求 矩 阵 的 主 特征 值 及 主 特征 向 量 











位 于 的 章节 位 于 的 页 码 
6.4.1 





瑞 利 商 加 速 需 法 求 对 称 矩 阵 的 主 特征 值 及 主 特征 向 量 








收缩 法 求 矩 阵 全 部 特征 值 





dimethod 


dqrtz 











收缩 法 求 和 矩阵 全 部 特征 值 








位 移 逆 需 法 求 矩 阵 离 某 个 常数 最 近 的 特征 值 及 其 对 应 的 特征 








QR 基本 算法 求 矩 阵 全 部 特征 值 





hessdqrtz 


海 森 伯 格 QR 算法 求 矩 阵 全 部 特征 值 
瑞 利 商 位 移 QR 算法 求 矩 阵 全 部 特征 














位 于 的 页 和 
146 
149 





中 点 公式 求 取 导 数 





三 点 法 求 函 数 的 导数 





FivePoint 


五 点 法 求 函 数 的 导数 





DiffBSample 


三 次 样 条 法 求 函数 的 导数 





CISimpson 


自 适应 法 求 函 数 的 导数 





辛普森 数值 微分 法 求 函 数 的 导数 





Richason 
ThreePoint2 


FourPoint2 


理 查 森 外 推算 法 求 函数 的 导数 
三 点 法 求 函 数 的 二 阶 导 数 








四 点 法 求 函 数 的 二 阶 导 数 





FivePoint2 


五 点 法 求 函 数 的 二 阶 导 数 





Diff2BSample 


三 次 样 条 法 求 函数 的 二 阶 导数 


546 名 加 色 种 


ET 
ET 
182 
184 
18S 


位 于 的 章节 位 于 的 页 码 
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“数值 积分 ”的 算法 程序 索引 











CombineTrapn 





IntSimpson 


| 复合 梯形 公式 求 积分 













位 于 的 章节 位 于 的 页 码 
8.1 


I88 
198 






































高 斯 拉 道 公式 求 积 
高 斯 - 洛 巴 托 公式 求 积分 

















IntSample 


IntGaussLager 









IntGaussHermite 
IntQBXF1 
IntQBXF2 
DblTraprl 















Unc 有 交 人 人 [和 












200 
202 

















8.5.3 


8.6 205 

























自 适应 辛普森 公式 求 积 分 
三 次 样 条 插值 求 积分 

















12 
214 















用 高 斯 - 拉 盖 尔 公式 求 积分 
用 高 斯 - 埃 尔 米 特 公 式 求 积分 











DblSimpson 


IntDBGauss 



















努 利 法 求 按 模 最 大 实 根 
贝 努 利 法 求 按 模 最 小 实 根 
用 二 分 法 求 方程 的 一 个 根 














求 第 一 类 切 比 雪 夫 积 分 8.10.3 
求 第 二 类 切 比 雪夫 积 8.10.4 217 







































位 于 的 页 码 




















3 黄金 分 割 法 求 方程 的 一 个 根 

不 动 点 迭代 法 求 方程 的 一 个 根 

用 区 肯特 加 速 的 不 动 点 迭代 法 求 方程 的 一 个 根 
用 史 立 苏 森 加 速 的 不 动 点 迭代 法 求 方程 的 一 个 根 
用 一 般 弦 截 法 求 方程 的 一 个 根 






































Secant 


PYZ 








用 单 点 弦 截 法 求 方程 的 一 个 根 
双 点 弦 截 法 求 方程 的 一 个 根 
用 平行 弦 截 法 求 方程 的 一 个 根 
改进 弦 截 法 求 方程 的 一 个 根 
史蒂芬 森 法 求 方程 的 一 个 根 
用 劈 因 子 法 求 方程 的 一 个 
































次 














Parabola 





用 抛物 线 法 求 方程 的 一 个 根 
钱 伯 斯 法 求 方程 的 一 个 根 












二 可 可 可 547 


人 ATLAB 语言 常用 算法 程序 集 





NewtonRoot 
SimpleNewton 


续 表 
EEEEE 
用 牛顿 法 求 方程 的 一 个 根 
简化 牛顿 法 求 方程 的 一 个 根 
牛顿 下 山 法 求 方程 的 一 个 根 











用 

















用 蒙特 卡 洛 法 求 方程 的 一 个 根 





Montecario 
MultiRoot 





求 存 在 重 根 的 方程 的 一 个 重 根 9.2.15 





255 


































用 不 动 点 迭代 法 求 非 线性 方程 组 的 一 个 根 
用 牛顿 法 法 求 非 线 性 方程 组 的 一 个 根 

用 离散 牛顿 法 法 求 非 线性 方程 组 的 一 个 根 
牛顿 - 雅 可 比 和 迭代 法 求 非 线性 方程 组 的 一 个 根 
牛顿 -SOR 迭代 法 求 非 线性 方程 组 的 一 个 根 

牛顿 下 山 法 求 非 线性 方程 组 的 一 个 根 

两 点 割 线 法 的 第 一 种 形式 求 非 线性 方程 组 的 一 个 根 
两 点 割 线 法 的 第 二 种 形式 求 非 线性 方程 组 的 一 个 根 
拟 牛顿 法 求 非 线 性 方程 组 的 一 组 解 
对 称 秩 1 算法 求 非 线性 方程 组 的 一 个 根 
用 D-F-P 算法 求 非 线性 方程 组 的 一 组 解 
用 B-F-S 算法 求 非 线性 方程 组 的 一 个 根 





涅 | 河 | 末 







































mulBEFS 









ImulGSND 


EE 第 1 





ET 





用 共 屯 梯度 法 求 非 线性 方程 组 的 一 组 角 





用 数值 延 拓 法 求 非 线 性 方程 组 的 一 组 解 
用 参数 微分 法 中 的 欧 拉 法 求 非 线性 方程 组 的 一 组 解 
用 参数 微分 法 中 的 中 点 积分 法 求 非 线性 方程 组 的 一 组 解 








用 高 斯 牛顿 法 求 非 线性 方程 组 的 一 组 解 


章 “ 解 线性 方程 组 的 直接 法 ”的 算法 程序 索引 


用 阻尼 最 小 二 乘法 求 非 线 性 方程 组 的 一 组 解 















函数 名 
SolveUpTriangle 
GaussXQByOrder 
GaussSXQLineMain 












函数 功能 
求 上 三 角 系 数 和 矩阵 的 线性 方程 组 的 解 
高 斯 顺序 消去 法 求 线性 方程 组 的 解 









位 于 的 章节 位 于 的 页 码 
王 | 
ET 

























GaussXQA1IMain 






高 斯 按 列 主 元 消去 法 求 线性 方程 组 的 解 [nz la 
高 斯 全 主 元 消去 法 求 线性 方程 组 的 解 


















GaussJordanXQ 


Crout 





548 jp 知 拓 各 


Doolite 多 利 特 勒 分 解法 求 线性 方程 组 的 解 


高 斯 - 若 当 消去 法 求 线性 方程 组 的 解 
克 劳 特 分 解法 求 线性 方程 组 的 解 


305 
306 
308 






附录 妨 ” 本 书 所 编写 的 算法 程序 索引 
















续 表 
L77 分 解法 求 线性 方程 组 的 解 320 
SymPos2 LDI 分 解法 求 线性 方程 组 的 解 
改进 的 LDZ 分 解法 求 线性 方程 组 的 解 323 
加 边 求 逆 法 求 线性 方程 组 的 解 327 
叶 尔 索 夫 求 道 法 求 线性 方程 组 的 解 


上 E3 第 12 章 “ 解 线性 方程 组 的 迭代 法 ”的 算法 程序 索引 


ED 
EECTT 

二 机 次 名 这 代 法 有 人 性 方程 细 全 ET 
E 

































理 查 森 迭 代 法 求 线性 方程 组 的 角 

Bauseidel 高 斯- 赛 德尔 帮 代 法 求 线性 方程 组 的 解 
SOR 超 松弛 迁 代 法 求 线性 方程 组 的 解 
对 称 逐 次 超 松弛 迁 代 法 求 线性 方程 组 的 解 


JOR 雅 可 比 超 松弛 和 迭代 法 求 线性 方程 组 的 解 [6 |3a6 
















twostep 两 步 进 代 法 求 线性 方程 组 的 解 12.1.7 

fastdown 最 速 下 降 法 求 线性 方程 组 的 解 
共和 梯 度 法 求 线性 方程 组 的 解 
预 处 理 共和 梯 度 法 求 线性 方程 组 的 解 
BJ 块 雅 克 比 欠 代 法 求 线性 方程 组 的 解 
块 高 斯 - 赛 德尔 迭代 法 求 线性 方程 组 的 解 


块 逐次 超 松弛 从 代 法 求 线性 方程 组 的 解 





334 
336 
338 
339 
341 
“343 
344 
346 
348 
350 
352 
353 
357 
第 13 章 “随机 数 生成 ”的 算法 程序 索引 


可 
后 
有 有三 
MulMOD1 用 乘 同 余 法 1 产生 随机 数列 
MulMOD2 用 乘 同 余 法 2 产生 随机 数列 
ET 
和 大 
有 
广大 




















产生 柯 西 分 布 的 随机 数列 
产生 爱 尔 朗 分 布 的 随机 数列 
产生 正 态 分 布 的 随机 数列 






产生 韦伯 分 布 的 随机 数列 


二 本 可 可 549 




















和 AT 作 LA 区 语言 常用 算法 程序 集 











续 表 
人 于 Ra 
PoisonDist 产生 泊 松 分 布 的 随机 数列 13.10 
BenuliDist 产生 贝 努 里 分 布 的 随机 数列 387 
BGDist 产生 贝 努 里 -高 斯 分 布 的 随机 数列 3 


88 
有 靖 8 


























































位 于 的 章节 位 于 的 页 码 
393 










用 Lanczos 算法 计算 伽 玛 函 数 的 自然 对 数值 

用 伽 玛 范 数 计算 贝塔 函数 的 值 

逼近 法 计算 不 完全 伽 玛 函 数 的 值 
通 近 法 计算 不 完全 贝塔 函数 的 值 
有 逼 近 法 计算 伽 玛 函 数 的 值 
逼近 法 计算 第 二 类 整数 阶 贝 塞 尔 函 数值 

用 逼近 法 计算 变型 的 第 一 类 整数 阶 贝 塞 尔 函 数值 
逼近 法 计算 变型 的 第 二 类 整数 阶 贝 塞 尔 函 数值 
高 斯 积分 计算 误差 函数 值 






























































































































高 斯 积分 计算 余弦 积分 值 
高 斯 积分 计算 指数 积分 值 
吉 近 法 计算 指数 积分 值 
高 斯 积分 计算 第 一 类 椭圆 
用 高 斯 积分 计算 第 二 类 椭 



















































































第 15 章 “ 常 微分 方程 的 初 值 问题 ”的 算法 程 


邓 


索引 


函数 名 功 能 位 于 的 章节 位 于 的 页 码 
DEEuler 用 欧 拉 法 求 一 阶 常 微分 方程 的 数值 解 上 429 


隐 式 欧 拉 法 求 一 阶 常 微分 方程 的 数值 解 
改进 欧 拉 法 求 一 阶 常 微分 方程 的 数值 角 
中 点 法 求 一 阶 溃 微分 方程 的 数值 解 
| pELGKT2_suen | 用 休 恩 法 求 一 阶 常 微分 方程 的 数值 解 
休 恩 三 阶 法 求 一 阶 常 微分 方程 的 数值 角 






























































DELGKT3_kuta 库 塔 三 阶 法 求 一 阶 常 微 分 方程 的 数值 解 

经 典 龙 格 - 库 塔 法 求 一 阶 常 微分 方程 的 数值 角 
基 尔 法 求 一 阶 常 微分 方程 的 数值 角 
用 默 森 单 步 法 求 一 阶 常 微分 方程 的 数值 解 
用 米尔 恩 法 求 一 阶 常 微分 方程 的 数值 角 
用 亚当 斯 法 求 一 阶 常 微分 方程 的 数值 解 






































550 PP 拓 拓 知 























附录 关 ” 本 书 所 编写 的 算法 程序 索引 





续 表 
功 能 ”位 于 的 章节 位 于 的 页 码 
DEYCJZ_mid 中 点 -梯形 预测 校正 法 求 一 阶 常 微分 方程 的 数值 解 15.5.1 452 
DEYCJZ_adms 阿达 姆 斯 预测 校正 法 求 一 阶 常 微分 方程 的 数值 解 15.5.2 可 
DEYCJZ_adms2 密 伦 预 测 校正 法 求 一 阶 常 微分 方程 的 数值 解 15.5.3 457 
DEYCJZ_yds 亚当 斯 预测 校正 法 求 一 阶 常 微分 方程 的 数值 解 15.5.4 460 
DEYCJZ_myds 用 修正 的 亚当 斯 预测 校正 法 求 一 阶 常 微分 方程 的 数值 解 15.5.4 462 
DEYCJZ_hm 用 汉 明 预测 校正 法 求 一 阶 常 微分 方程 的 数值 解 
用 外 推 法 求 一 阶 常 微分 方程 的 数值 解 
DEWT_glg 用 格拉 格外 推 法 求 一 阶 常 微 分 方程 的 数值 解 

























































































第 16 章 “ 偏 微分 方程 的 数值 解法 ”的 算法 程序 索引 
玫 名 


peEllipS 
peEllip5m 用 工 字 型 差分 格式 解 拉 普 拉 斯 方程 
peHypbYF 迎风 格式 解 对 流 方程 

peHypbLax 拉克 斯 - 弗 里 德 全 于 入 攻 作 下 全 对 江 广 程 
peHyPbLaxW 
peHypbRich 
peHypbMLW 拉克 斯 - 温 德 洛 夫 多 步 格式 解 对 流 方 程 

peHypbMC MacCormack 多 步 格式 解 对 流 方 程 

peHypb2LEF 拉克 斯 - 弗 里 德里 希 斯 格式 解 二 维 对 流 方 程 的 初 值 问题 
peHypb2FL 用 拉克 斯 - 弗 里 德里 希 斯 格式 解 二 维 对 流 方程 的 初 值 问题 
peParabExp 用 显 式 格式 解 扩散 方程 的 初 值 问题 

peParabTD 用 跳 点 格式 解 扩散 方程 的 初 值 问题 

peParabImp 用 隐 式 格式 解 扩 散 方程 的 初 边 值 问题 


peParabKN 用 克拉 克 - 尼 科 尔 森 格式 解 扩散 方程 的 初 边 值 问题 






































































































































用 加 权 隐 式 格 式 解 扩散 方程 的 初 边 值 问题 
peDKExp 用 指数 型 格式 解 对 流 扩散 方程 的 初 值 问题 
用 萨 马尔 斯 基 格 式 解 对 流 扩 散 方程 的 初 值 问题 


peParabWegImp 
































第 17 章 “ 数 据 统计 和 分 析 ” 的 算法 程序 索引 


功 能 位 于 的 章节 位 于 的 页 码 

用 线性 回归 法 估计 一 个 因 变 量 与 多 个 自 变量 之 间 的 线性 关系 
PolyReg 用 多 项 式 回归 法 估计 一 个 因 变量 与 一 个 自 变量 之 间 的 多 项 式 关系 
CompPoly2Reg 用 二 次 完全 式 回归 法 估计 一 个 因 变 量 与 两 个 自 变 量 之 间 的 关系 
用 
用 


ColiectAnaly 最 短 距离 算法 的 系统 聚 类 对 样本 进行 聚 类 、 527 
Fisher 两 类 判别 法 对 样本 进行 分 类 . 530 


MainAnalysis 对 样本 进行 主 成 分 分 析 




















MultiLineReg 






























































DistgshAnalysis 
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